亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 關(guān)于目錄問題 [打印本頁]

作者: 林間笑客 時(shí)間: 2014-07-15 21:26
標(biāo)題: 關(guān)于目錄問題
我想對當(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, 我寫的sripts 如下：卻一直有問題，請大家?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 時(shí)間: 2014-07-16 08:23
有兩點(diǎn)建議:
1. 把代碼放在 "代碼"框里, 這會(huì)讓別人更容易看懂你的程序.

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

作者: inbus 時(shí)間: 2014-07-16 12:59
find . -name \*.pl -print|grep -e 'out\/' |grep -e '\/DOC\/'|xargs perl -pi -e 's/aaaa/bbbb/'

作者: b114213903 時(shí)間: 2014-07-16 13:35

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:}

歡迎光臨 Chinaunix (http://72891.cn/)

^{<blockquote id="6t6ln"></blockquote>}