免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 3696 | 回复: 12

这个用perl怎么写 [复制链接]

论坛徽章:
0
发表于 2014-09-02 16:45 |显示全部楼层
变换前
common.count=10
process1.id=100111
process1.alias=name1

process2.id=100112
process2.alias=name2

process3.id=100113
process3.alias=name3

process4.id=100114
process4.alias=name4
……
……

删除原process2后 剩下的前面递增后面参数不变
common.count=9
process1.id=100111
process1.alias=name1

process2.id=100113
process2.alias=name3

process3.id=100114
process3.alias=name4
……
……

论坛徽章:
0
发表于 2014-09-02 17:08 |显示全部楼层
看看可行不?
  1. open(DATA,"file_name");
  2. my $num=1;
  3. while(<DATA>){
  4.         if(!/^$/)
  5.         {
  6.         $temp=int $num/2;
  7.         s/(process)\d/$1$temp/g;       
  8.         $num++;
  9.         }
  10.         print;
  11. }
复制代码

论坛徽章:
0
发表于 2014-09-02 17:13 |显示全部楼层
好像不行  但还是要谢谢你啦 :wink: 回复 2# frankhyk


   

论坛徽章:
0
发表于 2014-09-02 17:20 |显示全部楼层
输出什么样的结果了?

   

论坛徽章:
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
发表于 2014-09-02 17:22 |显示全部楼层

论坛徽章:
0
发表于 2014-09-02 17:28 |显示全部楼层
哈哈 被发现了 说是awk都能用perl处理 想来试试看 回复 5# jason680


   

论坛徽章:
0
发表于 2014-09-02 17:30 |显示全部楼层
输出和原来的一样  你这样写上面的count也会变嘛 回复 4# frankhyk


   

论坛徽章:
1
金牛座
日期:2014-08-10 21:59:41
发表于 2014-09-02 18:01 |显示全部楼层
会多一行  然后cont没变的笨方法↓
  1. my ($delete, $tri) = ('process2', 0);
  2. open R, "file_name";
  3. while(<R>){
  4.         if($_ =~ /$delete/){
  5.                 $tri = 1;
  6.         } elsif($tri && $_ =~ /process(\d)(.+)/) {
  7.                 print "process", $1 - 1, "$2\n";
  8.         } else {
  9.                 print $_;
  10.         }
  11. }
复制代码

论坛徽章:
33
荣誉会员
日期:2011-11-23 16:44:17天秤座
日期:2014-08-26 16:18:20天秤座
日期:2014-08-29 10:12:18丑牛
日期:2014-08-29 16:06:45丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17寅虎
日期:2014-09-11 14:24:21天蝎座
日期:2014-09-17 08:33:55IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:0015-16赛季CBA联赛之天津
日期:2016-05-06 12:46:59
发表于 2014-09-02 18:04 |显示全部楼层
本帖最后由 q1208c 于 2014-09-02 18:04 编辑

放进一个数组, 然后 shift 行不?

论坛徽章:
0
发表于 2014-09-03 09:01 |显示全部楼层
大哥请指教一二 回复 9# q1208c


   
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP