如何遍历字符串

ynchnluiti

原帖由 ateny 于 2009-2-12 11:44 发表
是读文件占用cpu高

代码是
while(){
    ..
}

执行
cat A_file | ./exe.pl

有什么好的解决方法吗

是循环里的代码占用cpu高吧

cobrawgl

难道 perl 不会读文件，还得用 cat 帮忙

Lonki

my $str = 'aaabbcca';
print $str =~ tr/a//, "\n";

ateny

是读文件耗cpu

while(<>){
    next;
}

这样也是高cpu。

是否是文件大的原因？

[ 本帖最后由 ateny 于 2009-2-12 12:46 编辑 ]

ynchnluiti

原帖由 ateny 于 2009-2-12 12:40 发表
是读文件耗cpu

while(){
    next;
}

这样也是高cpu。

不用管道呢？

1. #!/usr/bin/perl
   
2. 
   
3. while (<>) {
   
4.     next;
   
5. }

复制代码

./exe.pl A_file

文件很大吗

ateny

原帖由 ynchnluiti 于 2009-2-12 12:46 发表

不用管道呢？
#!/usr/bin/perl

while () {
    next;
}

./exe.pl A_file

文件很大吗

一样cpu高

文件很大

ynchnluiti

原帖由 ateny 于 2009-2-12 12:48 发表
一样cpu高
文件很大

1. while (<>) { #没写成 while () 吧:P
   
2.     next;   # 用print, cpu利用率会低一些，因为多了i/o时间
   
3. }

复制代码

我用大文件测了下，next的时候大概20%左右，用print基本在%10以内。