关于"求助"问题

yearnx

那个问题在shell版不能解决,所以我才贴这里的!!

大家可以看看shell版面欧~~这个问题很多人都无法用awk/sed解决彻底!

别小看这个问题~~~

别怪我罗嗦~~~

呵呵,冒者被封~~~~

apile

給你個提示..用 s///g;
其它自己看書...

兰花仙子

原帖由 "yearnx" 发表：
那个问题在shell版不能解决,所以我才贴这里的!!

大家可以看看shell版面欧~~这个问题很多人都无法用awk/sed解决彻底!

别小看这个问题~~~

别怪我罗嗦~~~

呵呵,冒者被封~~~~

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";

复制代码

ps: 大家只是觉得你的问法有点无聊ing

yearnx

还是兰花仙子有慈悲心,谢谢了

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

还有个问题.难道shell版面麻油高人么?

我打算去做作~~~呵呵

兰花仙子

原帖由 "yearnx" 发表：
还是兰花仙子有慈悲心,谢谢了

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

还有个问题.难道shell版面麻油高人么?

我打算去做作~~~呵呵

shell版不乏高人的，肯定是你问问题的方法不对，

rorot

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

复制代码

flw

原帖由 "yearnx" 发表：
那个问题在shell版不能解决,所以我才贴这里的!!

大家可以看看shell版面欧~~这个问题很多人都无法用awk/sed解决彻底!

别小看这个问题~~~

别怪我罗嗦~~~

呵呵,冒者被封~~~~

关于“求助”问题。
哼！
难道你丝毫都不觉得耻辱？
自己的帖子，标题不说清楚，引用的时候居然说“关于求助问题”而不脸红。
哼！
求助问题，没人知道你是什么问题。
关于求助问题，没人知道说的是那个问题。
汉语不会说，当然没法和人交流了，居然自己还一点都感觉不到，说是 shell 版没有高人。
哼！这次已经没人理你了，难道下次还想让仅有的几个热心人都不理才过瘾？