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

sohusina

晕，少打了字，我说的是逆序操作和逆序显示文件，unshift是如何做到的？

pitonas

晕{:2_179:}

1. my @a = 1;
   
2. push @a, 2;
   
3. 
   
4. say @a;    # @a: ( 1, 2 )
   
5. unshift @a, 0;
   
6. say @a;    # @a: ( 0, 1, 2 )

复制代码

sohusina

呵呵，我的例子文件都有三行，比如说 larry.txt moe.txt curly.txt，
分别为
larry.txt
i am a1
i am a2
i am a3
moe.txt
i am b
curly.txt
i am c1
i am c2

经过如上你的unshift语句 操作得到
i am c2
i am c1
i am b
i am a3
i am a2
i am a1

我的意思是 文件倒序显示是（你的上述语句，6楼代码）如何做到的？

rubyish

1. print reverse map {
   
2.   # 用自己的代码解析和分解
   
3. } <>;

复制代码

104359176

说的和解答的都没看懂，我还以为想做语法解析。

欧阳西风

回复 13# sohusina


    这个unshift其实就是堆栈中的入栈吧，不过unshift是操作的数组的头(索引最小值)，push是操作的数组的尾。

    所以这里的循环其实就是不断将每一行入栈，最后打印整个堆栈的数据。


    按照你给的数据，@result数组的数据在每次循环后的结果为(省略了字符串的引号与每个字符串最后的换行符)：

1. 
   
2. (i am a1)
   
3. (i am a2, i am a1)
   
4. (i am a3, i am a2, i am a1)
   
5. (i am b, i am a3, i am a2, i am a1)
   
6. (i am c1, i am b, i am a3, i am a2, i am a1)
   
7. (i am c2, i am c1, i am b, i am a3, i am a2, i am a1)
   

复制代码