如何用perl打开一个txt文件并修改后覆盖原文件?

小弟最近刚学习Perl语言,想做个试验,即用perl打开一个txt文件并修改后覆盖原文件,不知哪位高人能赐教源代码,不甚感激。
print FILE @new;
这个语句就实现了将数组new的内容输入到句柄FILE,并改变了“$name.txt”的内容了吗?

第1个回答  推荐于2016-02-08
$file="name.txt";
open FILE, ">$file" or warn"can't open the file";
#以写的方式打开文件,会覆盖掉原来的内容,谨慎操作
@new=qw/how are you/;##数组new存放你的新数据
print FILE @new;
close FILE;本回答被提问者采纳
第2个回答  2010-05-11
按照以下步骤操作:
1.在文本界面输入:vi 文件名.txt
2.按下i键进入编辑模式,开始编辑文字
3.按下ESC键退出编辑模式
4.接着输入:wq

这样就完成了对文件的修改和保存!

perl如何打开一系列相同后缀名的文件,并对其中的字符串进行替换...
首先获取.text文件名列表,你可以事先将名字写到一个文件里,如name.txt (linux下直接ls)!\/usr\/bin\/perl open NAME,"name.txt";while (<NAME>){ chomp $_;open IN,"$_";a=<IN>;open OUT,">$_";foreach $b(@a){ chomp $b;b =~ s\/aaa\/bbb\/g;print OUT "$b\\n";} } ...

perl 可以对文件完成先遍历再修改的操作吗?
open(LOG,">>a.txt")a=<LOG>; #为了记录文件的行数 marker=0;while(<LOG>){ marker++;if ($marker eq scalar(@a)){ print LOG "输入你要添加的";} }

perl 如何打开指定路径下的文件?
open(FILE, "D:\/ferl.txt"); #打开一个文件句柄 while(<FILE>){ #逐行读取该文件然后显示出来 print "$_\\n";} close(FILE) #关闭文件句柄 在WHILE循环中也可以加入一些正则匹配等代码等等。

perl有没有这样的功能!我在执行程序中间打开一个文本文件!像这样。syste...
use Win32::API;WinExec = Win32::API->new('KERNEL32', 'WinExec','PN','N');if($WinExec->Call("notepad 124.txt",1)>31){ WinExec使用方法见Window函数帮助 调用成功 } else { print "Process Error!\\n";}

perl如何编写脚本批量替换文本内的字符串?
12open F, "example.txt" or die $!; # 打开文件example.txt 13@array = ; # 读取文件内容到数组@array 14foreach(@array){ 15 if(\/T(\\d)\\dC\/ or \/T(\\d)\\d+$\/){ # 查找匹配模式T后面跟着一个数字,然后是C或者行尾 16 s\/$1\/1\/; # 使用正则表达式替换第一个括号内的数...

如何用perl读取txt文件中的数据
!\/usr\/bin\/perl textname="\/存放路径\/文件名.txt"; #例如$textname="E:\/lqf.txt";open(FILE1,$textname);#打开文件 line=<FILE1>;#将文件的每一行读取到数组@line中,文件的每一行作为一个数组元素 close FILE1;保存这个文件的内容,只要对@line数组进行操作就可以了 ...

怎样用perl打开其他盘文件
都可以,建议用"\/"而不是"\\"。perl中的"\\"有特殊含义,用起来不如"\/"方便。举例说明打开E盘下的myfile.txt。1. open FILEHANDLE,"E:\/myfile.txt" 。2. open FILEHANDLE,"E:\\\\myfile.txt" 。

使用perl来编程,有什么方法能在脚本运行时,对txt文件中某一行的变量值...
open($f,'a.txt');e=0;while(<$f>){ if(\/cccc =\\d+\/){} elsif(\/bbbb =\\d+){$e=1;} else{if($e){$d.=$_;}else{$p.=$_;}} } close $f;seek($f,0,0);c=(15,10,8);b=(12,9,20);for(1..3){ print "try the $_ times\\n";<STDIN>;open($f,'a.txt'...

perl无法搜索到txt中的原始数据,txt在UE中打开
如果是txt文件,不管是perl还是别的程序语言,里面的字符串没有什么“获取”不到的。可能由于没有提供详细描述,没有代码和数据格式,所以导致没人回答。希望下次描述清楚,提供相关代码、图片等,回答就会更快一些。

Perl-4 Windows批处理(cmd\/bat)常用命令大全 2020-12-20
copy con test.txt 从屏幕上等待输入,按 Ctrl+Z 结束输入,输入内容存为test.txt文件 con代表屏幕,prn代表打印机,nul代表空设备 copy 1.txt + 2.txt 3.txt 合并1.txt 和 2.txt 的内容,保存为 3.txt 文件 如果不指定 3.txt ,则保存到 1.txt copy test.txt + 复制文件到自己,实际上是修改了文件日期...

相似回答