[初学请教] 想调用一个外部程序，然后将其输出重定向到一个指定文件中，怎么写？

百分百好牛

不好意思，第一次写perl，如果太白了，还请大家见凉。
Baidu了许多，但是找不到能够用的。

1. 
   
2. $path = "c:\\temp\\list.txt";
   
3. my $hfile = open(source, "< $path");
   
4. if ($hfile)
   
5. {
   
6.   print $path;
   
7.   print "\n";
   
8. 
   
9.   $input = IO::File->new($path);
   
10.   my $outfile = "C:\\temp\\outfile.txt";
    
11.   open IN, ">$outfile";
    
12. 
    
13.   while(defined($line = $input->getline()))
    
14.   {
    
15.       chomp($line);
    
16.       STDOUT->print($line);
    
17.       system("ping $line"); #I want to redirect the output to a file.
    
18.       print "\n";
    
19.   }
    
20. 
    
21.   $input->close();
    
22.   $outfile->close();
    
23. }
    
24. 
    
25. close source;
    

复制代码

yang200218

直接用管道啊....

system("ping $line > ping.file");

albertd

回复 1# 百分百好牛


    An example from <<network programming with perl>>


#!/usr/bin/perl
# file: redirect.pl

print "Redirecting STDOUT\n";
open (SAVEOUT,">&STDOUT");
open (STDOUT,">test.txt") or die "Can't open test.txt: $!";

print "STDOUT is redirected\n";
system "date";

open (STDOUT,">&SAVEOUT");
print "STDOUT restored\n";

When this script runs, its output looks like this:

% redirect.pl
Redirecting STDOUT
STDOUT restored

and the file test.txt contains these lines:

STDOUT is redirected
Thu Aug 10 09:19:24 EDT 2000