作者iswearwang (^_^)
看板perl
标题[问题] 从档案抓命令执行
时间Tue Aug 21 20:55:59 2007
在一资料夹下有许多档案...
ex:a.txt,b.txt,c.txt,.......
其内容为
ex: a.txt前面都有comment
/*
#>ls
*/
b.txt
/*
#>pwd
*/
我想要抓取每个档案的档名..建其资料夹...并在其资料夹下run抓到的command
比如 在 a 资料夹下run ls, b资料夹下run pwd ..
下面是我写的程式....一直抓不到档案里的command....很头痛
#!/usr/bin/perl
$some_dir="./";
opendir (DIR, $some_dir) || die "can't opendir $some_dir: $!";
foreach $file_list (readdir DIR){
next if $file_list =~ /^\./;
open (FD,"$file_list") || die "can't open file";
@data=<FD>;
$_=~/^\#\>(.*)/;
printf("$_\n");
}
close(FD);
closedir DIR;
经过测试....可以读到档案里的内容....但是抓不到要run的 command...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.169.79.86
1F：推 LiloHuang:@data=<FD>; 改 $_ = join('',<FD>); 08/21 21:17