用perl对文件中的字符串做处理的一个简单的示例

发布时间：2020-12-15 20:59:09 所属栏目：大数据来源：网络整理

导读：test.txt的内容 5 4 3 2 1 现在把里面的2换成two Perl code ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 use ? strict; my ? @old ? =?(); my ? @new ? =?(); ? open (F,? '+test.txt' ) or? die ? "$!n" ; @old ? =?F; ? ? for ? my ? $line

test.txt的内容

5
4
3
2
1
现在把里面的2换成two

 
      use?strict; 
     
      my?@old?=?(); 
     
      my?@new?=?(); 
     
      ? 
     
      open (F,?'+<test.txt')or?die?"$!n"; 
     
      @old?=?<F>; 
     
      ? 
     
      ? 
     
      for?my?$line?(@old)?{ 
     
      ????chomp ($line);?????? 
     
      ????if?($line?==?'2')?{????? 
     
      ????????push（ @new,?'two');?? 
     
      ????}?else?{ 
     
      ????????push (@new,?$line);??? 
     
      ????} 
     
      } 
     
      ? 
     
      seek?F,?0,?0; 
     
      ? 
     
      print??F?join?"n",?@new; 
     
      close?F;

其实对文件中的字符串做处理，最好的工具还是sed,上面的例子转换成sed工具只要一条命令：

sed?-i?'s/2/two'?filename

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!