» 读取某文件第一行内容并且将以该内容为文件名的压缩文件解压到指定目录的perl脚本调和的松树林

读取某文件第一行内容并且将以该内容为文件名的压缩文件解压到指定目录的perl脚本

#!/usr/bin/perl

open(TMPFILE,"filename.txt")||die "error";
while($line=<TMPFILE>)
{
if ( $line =~ /zz_\d+\.tar\.bz2/ )
{
$tmp= $&;
}
last
}
close(TMPFILE);
system("cd path1 ; bunzip2 < path2/$tmp | tar xvf - ");