[問題] 從檔案抓命令執行

[iswearwang (^_^)]

在一資料夾下有許多檔案...
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
推 LiloHuang:@data=<FD>; 改 $_ = join('',<FD>);