Здраствуйте,помогите пожалуйста..
open(FH,"</home/yulya/11") or die $!;
my $first_row = <FH>;
printf(STDERR "first_row: %s\n", $first_row);
close(FH);
my $shell_curl = q!curl %s 2>/dev/null | iconv -f cp1251 -t utf-8 | sed -n -r -e '/<item>/,/<\/item>/{ /<description>/ { s/.*\[CDATA\[(.+)\]\].*/\1/; p; }; }'!;
$shell_command = sprintf ($shell_curl, $first_row);
my @citations = split(/[\n\r]+/, qx($shell_command));
printf(STDERR "first_row11: %s\n", @citations[0]);
return @citations;
}
