作者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