Learning Perl中的小程序求解

Tiger_cn

这个程序的题目是
Modify the program from the previous exercise so that each file specified on the command line has its lines individually reversed.
其中的 previous exercise
是Write a program that acts like cat, but reverses the order of the lines of all the lines from all the files specified on the command line or all the lines from standard input if no files are specified.

然后答案是
@ARGV = reverse @ARGV;
print reverse <>;
看起来是应该实现的输入
123
456
返回
654
321
但是实际不是
456
123

af80

Modify the program from the previous exercise so that each file specified on the command line has its lines individually reversed.
这里的意思是说，把文件里的每行独自反转输出，就是每行从后往前输出。


Write a program that acts like cat, but reverses the order of the lines of all the lines from all the files specified on the command line or all the lines from standard input if no files are specified.
这里的意思是说，把你从命令行或标准输入里接受到的行，反转顺序再输出，就是把文件的行，从底部往顶部输出。

这样就很容易做了吧。

Tiger_cn

是啊  我理解的和你一样
但是结果不一样的

apile

reverse碰到array..把 从index最大的开始读取..
<>这个返回是array...所以...得到
456
123
请多想想..

兰花仙子

原帖由 Tiger_cn 于 2005-11-8 19:02 发表
是啊  我理解的和你一样
但是结果不一样的

你理解的才不是和她的一样呢。

1. @ARGV = reverse @ARGV;
   
2. print reverse <>;

复制代码

reverse是区分上下文环境的，前者是列表上下文，reverse的作用是把列表元素的order反一下。
后者位于标量上下文，reverse把标量字符的位置反一下。

[ 本帖最后由 兰花仙子 于 2005-11-8 20:52 编辑 ]

poize

输入
123
456
然后是怎么停止输入了啊,我输入123回车输入456,回车.还要输入,怎么样表示输入完成了

兰花仙子

原帖由 poize 于 2005-11-8 21:06 发表
输入
123
456
然后是怎么停止输入了啊,我输入123回车输入456,回车.还要输入,怎么样表示输入完成了

ctrl+D嘛

poize

原来是ctrL+D,我还以为是+Z,没办法,无奈+C,结果就结束了

兰花仙子

原帖由 poize 于 2005-11-8 21:42 发表
原来是ctrL+D,我还以为是+Z,没办法,无奈+C,结果就结束了

人生诸多无奈哦

FinalBSD

Ctrl+C 相当于killall -TERM,Ctrl+Z相当于bg