碰到個(gè)可能有意思的$. 小問(wèn)題，求教

chenhao392

前兩周看到某帖子提到了$. ，當(dāng)時(shí)學(xué)習(xí)了.剛才要用，結(jié)果詭異....

求教：請(qǐng)問(wèn)1去哪里了？

1. cat 123
   
2. 1
   
3. 2
   
4. 3
   
5. 4

復(fù)制代碼

1. cat 123|perl -ne 'while(<>){print "$.\t$_";}'
   
2. 2        2
   
3. 3        3
   
4. 4        4

復(fù)制代碼

zhlong8

-n 什么意思清楚不？

chenhao392

回復(fù) 2# zhlong8


    只是看人這么用了，就一直在用，查了下，說(shuō)：
-n
Wrap the entire program (or one liner) in a loop that reads input using <> and assigns each input line to $_

chenhao392

回復(fù) 2# zhlong8


    太陽(yáng)要落山了，得去吃飯了....回來(lái)再看帖子...

jason680

回復(fù)  zhlong8


    只是看人這么用了，就一直在用，查了下，說(shuō)：
-n
Wrap the entire program (or  ...
chenhao392 發(fā)表于 2011-05-20 09:45

cat 123 | perl -ne '{print "$.\t$_"}'

py

回復(fù)  zhlong8


    只是看人這么用了，就一直在用，查了下，說(shuō)：
-n
Wrap the entire program (or  ...
chenhao392 發(fā)表于 2011-05-20 09:45

如果LZ查看了-n是什么意思仍然不解，那就google一下“一行Perl”

chenhao392

回復(fù) 6# py


    謝謝

chenhao392

幾日忙碌，上來(lái)更新一下...

-n 大致相當(dāng)于while(<>){}, 然而我的程序內(nèi)又有了一個(gè)while(<>){}.
測(cè)試：

1. cat 1.txt |perl -e 'while(<>){while(<>){print;}}'
   
2. 2
   
3. 3
   
4. 4
   

復(fù)制代碼

果然也沒(méi)有了 1.


關(guān)于第一行消失的原因，我懷疑是多余的使用了一次鉆石操作符.
可如此推想，兩個(gè)while中的<>結(jié)果不應(yīng)該是24么, 3為什么會(huì)出現(xiàn)？

flw

拿起筆在紙上一句一句地模擬運(yùn)行一下。

chenhao392

回復(fù) 9# flw


    嗯，該是我自己好好想的，謝謝

    第一行，while(<>)將其賦值給$_;
    第二行，循環(huán)內(nèi)的while(<>)將其賦值給$_，并print;
     ...
    依此類推到第四行

    不存在第五行，兩個(gè)while(<>)被連續(xù)退出..


    為了測(cè)試，寫如下code:

1. cat 1.txt |perl -e 'while(<>){print;while(<>){print;}}'
   
2. 1
   
3. 2
   
4. 3
   
5. 4
   

復(fù)制代碼

此帖close了吧？