關(guān)于目錄問(wèn)題

林間笑客

我想對(duì)當(dāng)前目錄（/home/ssw/)test 下n 個(gè) *out 子目錄的下的DOC目錄下的以*pl 結(jié)尾的文件的中的aaaa 替換成bbbb  ，每個(gè)*out 子目錄下都有一個(gè)DOC 目錄和一堆文件，文件夾只有一個(gè)DOC ，DOC 下面有很多 以*.pl 結(jié)尾的文件，我想將這些以*.pl 結(jié)尾的文件中的aaaa 替換成bbbb, 我寫(xiě)的sripts 如下：卻一直有問(wèn)題，請(qǐng)大家?guī)臀曳治鱿略��?,看完小駱駝，還是很生搬硬套，
#!/usr/bin/perl -w
my $dir = "/home/ssw/test";
opendir DH $dir or die "can not open $dir !";
my  @out_dir = glob ("/home/ssw/*out";
closedir DH ;
foreach my $subdir (@out_dir) {
$docname = "$dir/$subdir" ;
opendir DH , $subdir or die "I can not open $dir !" ;
chdir './DOC' ;
my @files = glob "*.pl" ;
my $file ;
my $line ;
foreach my $line (@files)  {
open FH ,$line or die "I can not open $line !" ;
          while (<FH> {
           chomp ;
           s/aaaa/bbbb/ ;
          print
}
}
}
closedir DH ;     

q1208c

有兩點(diǎn)建議:
1. 把代碼放在 "代碼"框里, 這會(huì)讓別人更容易看懂你的程序.

2. 把報(bào)錯(cuò)一塊發(fā)上來(lái), "目測(cè)" 是一門(mén)很高深的學(xué)問(wèn), 不是只有高手高手高高手才做得到.

inbus

find . -name \*.pl -print|grep  -e 'out\/' |grep -e '\/DOC\/'|xargs perl -pi -e 's/aaaa/bbbb/'

b114213903

inbus 發(fā)表于 2014-07-16 12:59
find . -name \*.pl -print|grep  -e 'out\/' |grep -e '\/DOC\/'|xargs perl -pi -e 's/aaaa/bbbb/'

{:3_189:}