免费注册 查看新帖 |

Chinaunix

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

如何用最少的语句解析这个代码? [复制链接]

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2014-03-25 15:03 来自手机 |显示全部楼层
print reverse <>
上面这行代码我想用自己的代码解析和分解,有没有最简单或者最短的?
我写了一个,挺麻烦的。连i++或者push都出来了。

论坛徽章:
5
丑牛
日期:2014-01-21 08:26:26卯兔
日期:2014-03-11 06:37:43天秤座
日期:2014-03-25 08:52:52寅虎
日期:2014-04-19 11:39:48午马
日期:2014-08-06 03:56:58
发表于 2014-03-25 15:10 |显示全部楼层
  1. for my $line ( reverse <> ) {
  2.     dosomething; # 用自己的代码解析和分解
  3. }
复制代码
  1. my @in = reverse <>;
  2. for my $line (@in) {
  3.     dosomething; # 用自己的代码解析和分解
  4. }
复制代码

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2014-03-25 15:14 |显示全部楼层
谢谢楼上,可能我没讲清楚,我想把reverse和<>分开。

论坛徽章:
5
丑牛
日期:2014-01-21 08:26:26卯兔
日期:2014-03-11 06:37:43天秤座
日期:2014-03-25 08:52:52寅虎
日期:2014-04-19 11:39:48午马
日期:2014-08-06 03:56:58
发表于 2014-03-25 15:22 |显示全部楼层
{:2_172:}是没讲清楚
  1. my @result;
  2. for my $line (<>) {
  3.     my $ok = dosomething;
  4.     unshift @result, $ok;
  5. }

  6. print @result;
复制代码

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2014-03-25 15:45 |显示全部楼层
嗯,运行正确,不错!

论坛徽章:
1
2015年辞旧岁徽章
日期:2015-03-03 16:54:15
发表于 2014-03-25 16:00 |显示全部楼层
不过有个疑问,unishift是操作数组的,为何你的还可以操作文件并显示?
  1. @ARGV=qw\larry.txt moe.txt curly.txt\;
  2. my @result;
  3. for my $line(<>){
  4. my $ok=$line;
  5. unshift @result,$ok;
  6. }
  7. print @result;

  8. @ARGV=qw\larry.txt moe.txt curly.txt\;
  9. print reverse <>;
复制代码

论坛徽章:
0
发表于 2014-03-25 16:37 |显示全部楼层
涨姿势了~
回复 4# pitonas


   

论坛徽章:
5
丑牛
日期:2014-01-21 08:26:26卯兔
日期:2014-03-11 06:37:43天秤座
日期:2014-03-25 08:52:52寅虎
日期:2014-04-19 11:39:48午马
日期:2014-08-06 03:56:58
发表于 2014-03-25 16:42 |显示全部楼层

{:2_172:}你的可以
  1. @ARGV=qw\larry.txt moe.txt curly.txt\;
  2. print reverse <>;
复制代码

论坛徽章:
5
丑牛
日期:2014-01-21 08:26:26卯兔
日期:2014-03-11 06:37:43天秤座
日期:2014-03-25 08:52:52寅虎
日期:2014-04-19 11:39:48午马
日期:2014-08-06 03:56:58
发表于 2014-03-25 16:45 |显示全部楼层
(⊙0⊙) ~ 大神。涨了.~

回复 7# TrishaTie


   

论坛徽章:
5
丑牛
日期:2014-01-21 08:26:26卯兔
日期:2014-03-11 06:37:43天秤座
日期:2014-03-25 08:52:52寅虎
日期:2014-04-19 11:39:48午马
日期:2014-08-06 03:56:58
发表于 2014-03-25 16:49 |显示全部楼层
{:2_172:}

  1. my $ok = dosomething; # 操作文件
  2. print @result; # 显示
复制代码
回复 6# sohusina


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

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP