如何从Perl脚本调用shell

Question

Perl脚本从配置文件中读取url。在存储为URL = http://example.com的配置文件数据中。 我怎样才能得到网站名称。我试过

open(my $fh, "cut -d= -f2 'webreader.conf'"); 

但它不起作用。

请帮忙！

Answer 1

你有阅读管-|后续内容是被分叉的命令指示，

open(my $fh, "-|", "cut -d= -f2 'webreader.conf'") or die $!; 

print <$fh>; # print output from command 

更好的方法是直接用perl的读取文件，

open(my $fh, "<", "webreader.conf") or die $!; 
while (<$fh>) { 
    chomp; 
    my @F = split /=/; 
    print @F > 1 ? "$F[1]\n" : "$_\n"; 
} 

Answer 2

也许是这样的？

$ cat urls.txt 
URL=http://example.com 
URL=http://example2.com 
URL=http://exampleXXX.com 

$ ./urls.pl 
http://example.com 
http://example2.com 
http://exampleXXX.com 

$ cat urls.pl 
#!/usr/bin/perl 

$file='urls.txt'; 
open(X, $file) or die("Could not open file."); 

while (<X>) { 
    chomp; 
    s/URL=//g; 
    print "$_\n"; 
} 
close (X);