Re: searching through data


There's more than one way to do things
	PerlMonks

Re: searching through data

by dreadpiratepeter (Priest)

on Apr 16, 2009 at 12:19 UTC ( [id://757959]=note: print w/replies, xml )

Need Help??

in reply to searching through data

I would use a hash, like so (untested code warning):

use strict;
use warnings;

my @array;  # contains numbers (1..1000000) ~ 400000 numbers

my %hash;
open (in , "<", "in.txt") || die "$!";
while(<in>){
m/^(\d+)/;
$hash{$1} = 1;
} 
close in;

foreach my $num (@array) {
  print "$num, " if exists $hash{$num};
}
[download]

-pete
"Worry is like a rocking chair. It gives you something to do, but it doesn't get you anywhere."