
echo "asfsaf
gfsfdsf
asfasdas
gds
fs
f" >>123.txt
可以用perl#!/usr/bin/perl
my $dir = '/home/tmp'
opendir (DIR,$dir)
my @file = grep { /^\w+/i} readdir(DIR)
close DIR
my $i = 0
my $ii = $#file
while($i <= $ii){
open FILE, "$dir/$file[$i]"
@cat = <FILE>
close FILE
open OUT,">$dir/$file[$i]"
$nn = $#cat
$n = 0
while($n <= $nn){
$cat[$n]=~s/^(.sabc \w+)/$1a/
print OUT "$cat[$n]"
$n++
}
close OUT
$i++
}
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)