在linux下用perl修改文件

第宽雀雹一是，perl文件的第一行要指定perl解释器的位置，典型的如下

#!/usr/bin/perl

第二是，perl文件的权限要有可执行的权限，可通过右键－岁顷＞属性－＞权限，勾选来添加可执行权限（当然，你本身也应该有修改该文件权限的权限），也可以通过在命令行上执行chmod

+x

来添加执行权限慎帆。

你这如姿猜问题问的不清楚， 你给的例子里面也只处理了10转28， 而且目前你这个写法, 110 也会被转化为128, 最重要的是，你这代码完全不能修改你的文件， 因为你 foreach $kill(@new)   {$kill=~s/10/28/g} 这个只是对临时变量$kill处理了。 完全没有对@new改动，所以再把new的内容写到FILE2没有意义。

open FILE1,"a.txt"     

my @new=<FILE1>

my $result = join 册脊'', @new

$result =~ s/10/28/gis

close FILE1

open FILE2,">a.txt"   

print  FILE2 $result

close FILE2

测试了一下28替换10的，源文件内容：

# 102319482311010101a

# 11210948231a

# 112119482310b

执行之后，同一文件内容改变为：

# 282319482312828281a

# 11228948231a

# 112119482328b

你看看是不渣型是能解答你的问题

一句是不够的，一般需要打开文件、修改大烂内容、关闭文件，最简单的直接生成文件也要三句。如果是修改，基本的讨论的新建立一个文件、一一罩燃读出源文件，不断写滚闷漏入新文件，边读边写，该改的就改。

最短三句：

FD=open('>1.txt')

print FD,'hello'

close(FD)

---