如何用最少的语句解析这个代码？

sohusina

print reverse <>
上面这行代码我想用自己的代码解析和分解，有没有最简单或者最短的？
我写了一个，挺麻烦的。连i++或者push都出来了。

pitonas

1. for my $line ( reverse <> ) {
   
2.     dosomething; # 用自己的代码解析和分解
   
3. }

复制代码

1. my @in = reverse <>;
   
2. for my $line (@in) {
   
3.     dosomething; # 用自己的代码解析和分解
   
4. }

复制代码

sohusina

谢谢楼上，可能我没讲清楚，我想把reverse和＜＞分开。

pitonas

{:2_172:}是没讲清楚

1. my @result;
   
2. for my $line (<>) {
   
3.     my $ok = dosomething;
   
4.     unshift @result, $ok;
   
5. }
   
6. 
   
7. print @result;

复制代码

sohusina

嗯，运行正确，不错！

sohusina

不过有个疑问，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. 
   
9. @ARGV=qw\larry.txt moe.txt curly.txt\;
   
10. print reverse <>;

复制代码

TrishaTie

涨姿势了~
回复 4# pitonas


   

pitonas

{:2_172:}你的可以

1. @ARGV=qw\larry.txt moe.txt curly.txt\;
   
2. print reverse <>;

复制代码

pitonas

(⊙０⊙) ~ 大神。涨了.~

回复 7# TrishaTie


   

pitonas

{:2_172:}

1. 
   
2. my $ok = dosomething; # 操作文件
   
3. print @result; # 显示

复制代码

回复 6# sohusina