關(guān)于"求助"問(wèn)題

yearnx

那個(gè)問(wèn)題在shell版不能解決,所以我才貼這里的!!

大家可以看看shell版面歐~~這個(gè)問(wèn)題很多人都無(wú)法用awk/sed解決徹底!

別小看這個(gè)問(wèn)題~~~

別怪我羅嗦~~~

呵呵,冒者被封~~~~

apile

給你個(gè)提示..用 s///g;
其它自己看書(shū)...

蘭花仙子

原帖由 "yearnx" 發(fā)表：
那個(gè)問(wèn)題在shell版不能解決,所以我才貼這里的!!

大家可以看看shell版面歐~~這個(gè)問(wèn)題很多人都無(wú)法用awk/sed解決徹底!

別小看這個(gè)問(wèn)題~~~

別怪我羅嗦~~~

呵呵,冒者被封~~~~

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my $total=0;
   
6. while(<>;)
   
7. {
   
8.     next if /^$/;
   
9.     chomp;
   
10.     my @words=split;
    
11.     my $num=grep(/^is$/,@words);
    
12.     $total+=$num;
    
13. }
    
14. 
    
15. print $total,"\n";

復(fù)制代碼

ps: 大家只是覺(jué)得你的問(wèn)法有點(diǎn)無(wú)聊ing

yearnx

還是蘭花仙子有慈悲心,謝謝了

我用s/ /\n/g可以了.

還有個(gè)問(wèn)題.難道shell版面麻油高人么?

我打算去做作~~~呵呵

蘭花仙子

原帖由 "yearnx" 發(fā)表：
還是蘭花仙子有慈悲心,謝謝了

我用s/ /\n/g可以了.

還有個(gè)問(wèn)題.難道shell版面麻油高人么?

我打算去做作~~~呵呵

shell版不乏高人的，肯定是你問(wèn)問(wèn)題的方法不對(duì)，

rorot

1. awk '{for (i=1; i<=NF; ++i) if ($i == "is") ++n} END{ print n }' 2.txt
   

復(fù)制代碼

flw

原帖由 "yearnx" 發(fā)表：
那個(gè)問(wèn)題在shell版不能解決,所以我才貼這里的!!

大家可以看看shell版面歐~~這個(gè)問(wèn)題很多人都無(wú)法用awk/sed解決徹底!

別小看這個(gè)問(wèn)題~~~

別怪我羅嗦~~~

呵呵,冒者被封~~~~

關(guān)于“求助”問(wèn)題。
哼！
難道你絲毫都不覺(jué)得恥辱？
自己的帖子，標(biāo)題不說(shuō)清楚，引用的時(shí)候居然說(shuō)“關(guān)于求助問(wèn)題”而不臉紅。
哼！
求助問(wèn)題，沒(méi)人知道你是什么問(wèn)題。
關(guān)于求助問(wèn)題，沒(méi)人知道說(shuō)的是那個(gè)問(wèn)題。
漢語(yǔ)不會(huì)說(shuō)，當(dāng)然沒(méi)法和人交流了，居然自己還一點(diǎn)都感覺(jué)不到，說(shuō)是 shell 版沒(méi)有高人。
哼！這次已經(jīng)沒(méi)人理你了，難道下次還想讓僅有的幾個(gè)熱心人都不理才過(guò)癮？