是否有更好的方法来编写这些代码以避免冗余？

Question

我在一个程序中有一个代码段，它接受来自管道的GNU样式输入(这是一个文件名列表)。如果STDIN不包含数据，则需要接受来自包含文件名的预定文本文件的输入。

我发现自己需要写多余的代码。是否有可能简化这段代码以避免冗余？

sub downloadlinkgen {
    my $fh;
    print "Printing links\n";
    if ($getfilelist==1) {
        open $fh, '<', "fuzzyfile" or die $!;
        while (<$fh>) {
            chomp ($_);     
            (my $fname,my $path, my $suffix) = fileparse($_);
            my ($name, $ext) = $fname =~ /(.*)\.(.*)/;      
            my $newfile=$path.$name.".$ext";
            $newfile =~ s/\s/%20/g; 
            $newfile =~ s/\/root/http:\/\/myip/;        
            print $newfile."\n";        
        }
    } else {        
        while (<>) {
            chomp ($_);     
            (my $fname,my $path, my $suffix) = fileparse($_);
            my ($name, $ext) = $fname =~ /(.*)\.(.*)/;      
            my $newfile=$path.$name.".$ext";
            $newfile =~ s/\s/%20/g; 
            $newfile =~ s/\/root/http:\/\/myip/;        
            print $newfile."\n";        
        }
    }
}

Answer 1

是的，只需使默认的ARGV文件句柄打开文件：

sub downloadlinkgen {
    @ARGV = 'fuzzyfile' if $getfilelist == 1;
    print "Printing links\n";
    while (<>) {
        chomp ($_);     
        (my $fname,my $path, my $suffix) = fileparse($_);
        my ($name, $ext) = $fname =~ /(.*)\.(.*)/;      
        my $newfile=$path.$name.".$ext";
        $newfile =~ s/\s/%20/g; 
        $newfile =~ s/\/root/http:\/\/myip/;        
        print $newfile."\n";        
    }
}

Answer 2

sub downloadlinkgen {

  # default file handle  
  my $fh = \*ARGV;
  print "Printing links\n";
  if ($getfilelist==1) {
    open $fh, '<', "fuzzyfile" or die $!;
  }

  while (<$fh>) {
    chomp ($_);   
    (my $fname,my $path, my $suffix) = fileparse($_);
    my ($name, $ext) = $fname =~ /(.*)\.(.*)/;    
    my $newfile=$path.$name.".$ext";
    $newfile =~ s/\s/%20/g; 
    $newfile =~ s/\/root/http:\/\/myip/;    
    print $newfile."\n";    
  }
}

来自perldoc -f readline

从其类型from包含在EXPR中的文件句柄读取(如果未提供EXPR，则从*ARGV读取)

因此，\*ARGV是对从<>读取时使用的文件句柄的引用，在这两种情况下您都可以使用$fh。

Answer 3

即使你不知道ARGV，你也可以做这样简单的事情：

sub downloadlinkgen {
    my $fh;
    print "Printing links\n";
    if ($getfilelist==1) {
        open $fh, '<', "fuzzyfile" or die $!;
        while (<$fh>) {
            process_line($_);     
        }
    } else {        
        while (<>) {
            process_line($_);       
        }
    }
}

sub process_line {
    my $line = shift;

    chomp ($line);     
    (my $fname,my $path, my $suffix) = fileparse($line);
    my ($name, $ext) = $fname =~ /(.*)\.(.*)/;      
    my $newfile=$path.$name.".$ext";
    $newfile =~ s/\s/%20/g; 
    $newfile =~ s/\/root/http:\/\/myip/;        
    print $newfile."\n";  
}