Как вызвать оболочку из скрипта perl

Question

Perl script читает 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);