Thank you for John.I think your method would be much faster than mine. Now I'm going to rewrite this program with C language,but I'll test it using all the ways given by everyone here.Thanks.
On 12/8/05, John W. Krahn <[EMAIL PROTECTED]> wrote: > > Jennifer Garner wrote: > > hi,lists, > > Hello, > > > I have a file which is so large,which looking as: > > > > 61.156.49.18:28360 > > 61.183.148.130:27433 > > 222.90.207.251:25700 > > 202.117.64.161:25054 > > 218.58.59.73:24866 > > 221.233.24.9:22507 > > 222.187.124.4:21016 > > ... > > > > and more than 45000000 lines. > > > > the part after ":" is no use for me,I only need the IP. > > > > for each IP,such as '218.58.59.73', I want to get this result: > > > > 218.58.59. xxx yyy xxx+yyy > > > > I want to know how many IP are in the range of '218.58.59.1' to ' > > 218.58.59.127',this is 'xxx'; > > and how many IP are in the range of '218.58.59.128' to '218.58.59.254 > ',this > > is 'yyy'. > > > > I write this code: > > open (FILE,$file) or die "$!"; > > while(<FILE>) > > { > > next if /unknown/o; > > next if /^192\.168\./o; > > chomp; > > my ($ip,$num) = split/:/,$_; > > if ($ip = ~ /^(\d+\.\d+\.\d+\.)(\d+)/o){ > > my ($net,$bit) = ($1,$2); > > $total{$net}{low}{$bit} = 1 if $bit < 128; > > $total{$net}{high}{$bit} = 1 if $bit >=128 and $bit > < > > 255; > > $total{$net}{total}{$bit} = 1; > > } > > } > > close FILE; > > > > foreach (sort { scalar keys %{$total{$b}{total}} <=> scalar keys > > %{$total{$a}{total}} } keys %total) > > { > > print RESULT "$_","\t",scalar keys %{$total{$_}{low}},"\t", > > scalar keys %{$total{$_}{high}},"\t",scalar keys > > %{$total{$_}{total}},"\n"; > > } > > > > > > but it's too slow for me to wait the result.How can I get it more > effective > > and run less time?thanks. > > This is quite a bit faster then your version: > > open FILE, '<', $file or die "Cannot open '$file' $!"; > > my ( %low, %high, %total ); > while ( <FILE> ) { > next if /unknown/; > next if /^192\.168\./; > > next unless /^(\d+\.\d+\.\d+\.)(\d+)/; > > if ( $2 < 128 ) { > $low{ $1 }++; > } > else { > $high{ $1 }++; > } > > $total{ $1 }++; > } > > close FILE; > > > for ( sort { $total{ $b } <=> $total{ $a } } keys %total ) { > print RESULT "$_\t", $low{ $_ } || 0, "\t", $high{ $_ } || 0, "\t", > $total{ $_ }, "\n"; > } > > > John > -- > use Perl; > program > fulfillment > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response> > > >