如果用C++写一个在指定路径下所有文件中查找指定字符串的程序,需要多少代码呢? #!/usr/bin/perl -w use strict; my $str= shift @ARGV; print "Searching for $str.../n"; my $flag = 0; print @ARGV."/n"; my @result; foreach my $filename (@ARGV) { #print "Accessing $filename.../n"; $flag = find($filename,$str); if( $flag eq 1 ) { push @result,$filename; } #if( !$flag ) #{ # print "Have not found the $str.../n"; #} } printf "%s/n" x @result,@result; sub find { open FILE,"<","$_[0]"; while(<FILE>) { if(/^$_[1]/) { print "Find the $_[1] in $_[0].../n"; close FILE; return 1; } } close FILE; return 0; }