Daily Archives: 十月 31st, 2007

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

2007 十月 31 星期三 16:27 – 16:27

#!/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 - “);

By zerged | Posted in linux solaris shell eda 以及工作相关 | Comments (0)