Chinaunix首页 | 论坛 | 博客
  • 博客访问: 362951
  • 博文数量: 35
  • 博客积分: 2176
  • 博客等级: 大尉
  • 技术积分: 797
  • 用 户 组: 普通用户
  • 注册时间: 2006-08-13 14:03
文章分类

全部博文(35)

文章存档

2012年(9)

2009年(14)

2008年(12)

我的朋友

分类:

2009-12-01 23:47:48

如下文本:
12
23
34
45
56
67
 
想要得到的结果:
1223
3445
5667
 
perl 代码实现
 
1. perl -pe "chomp if $.%2" file
2. perl -pe "chomp; $_.=<>" file
3. perl -lpe "$\=--$|?$,:$/" file
 
第一种解释比较好理解,奇数行chomp去掉“\n”;
第二种所有行去去掉换行符,通过连接符“.”连接读入的下一行“<>”;
第三种是最神奇的
$| 默认是为0,通过--$|实现1与0相互跳转
$, 默认是空字符串
$/ 默认是换行符
$\ 要输出的字符一般是“$/"
l  当$|=1的时候当前行chomp去掉“\n”。
 
 
参考解释:
阅读(1284) | 评论(0) | 转发(0) |
0

上一篇:C实现atoi

下一篇:android游戏引擎

给主人留下些什么吧!~~