免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1594 | 回复: 6

如何在文本加入字符有没有更好的方法 [复制链接]

论坛徽章:
0
发表于 2012-06-16 09:56 |显示全部楼层


#!/usr/bin/perl


$a = "hehe\n";

while ($cc = <DATA>) {
       
        print $cc;
       
if ($cc =~ /^a02/) {
                        
                print $a;
                       
                         }
   
   
}


__DATA__
a01
sdsdsdasdasd
a02
sdfdjfoasjdfkasjdf
a03
asdfokiosdifpiop


在A02下面这行加入hehe

论坛徽章:
2
CU大牛徽章
日期:2013-04-17 11:46:28CU大牛徽章
日期:2013-04-17 11:46:39
发表于 2012-06-16 10:05 |显示全部楼层
  1. my $data = join '', <DATA>;
  2. $data =~ s/^a02/a02\nhehe/gm;
  3. print $data;
复制代码

论坛徽章:
2
CU大牛徽章
日期:2013-04-17 11:46:28CU大牛徽章
日期:2013-04-17 11:46:39
发表于 2012-06-16 10:18 |显示全部楼层
  1. while (<DATA>) {
  2.     print;
  3.     if (/^a02/) {
  4.         print "hehe\n";
  5.     }
  6. }
复制代码

论坛徽章:
2
CU大牛徽章
日期:2013-04-17 11:46:28CU大牛徽章
日期:2013-04-17 11:46:39
发表于 2012-06-16 11:22 |显示全部楼层
  1. while (<DATA>) {
  2.     print;
  3.     print "hehe\n" if (/^a02/);
  4. }
复制代码

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
发表于 2012-06-16 13:28 |显示全部楼层
回复 1# ymhui520

How about this

$a = "hehe\n";
while (<DATA>) {
   print;
   print $a if(m/^a02/);   
}
   

论坛徽章:
5
技术图书徽章
日期:2014-04-18 08:52:38午马
日期:2014-04-30 13:28:11摩羯座
日期:2014-11-07 13:34:122015年亚洲杯之日本
日期:2015-03-12 14:01:4915-16赛季CBA联赛之北京
日期:2017-06-28 17:25:56
发表于 2012-06-16 17:46 |显示全部楼层
sed   '/a02/  a\hehe'  a

论坛徽章:
0
发表于 2012-06-17 23:40 |显示全部楼层
喜欢这个~~~~
cdtits 发表于 2012-06-16 10:05
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP