I wish to create a script that reads from n files until i have m total unique lines. In order to do this, I would like to use anonymous file handles. my code just gives me warnings which suggest that lines are not being read. can anyone give me a pointer as to what is wrong with my code?
#!/usr/bin/perl
use strict;
use warnings;
my $wantedLines = shift; # number of unique instances wanted
my $numFiles = 0;
my @files = ();
while( my $file = shift)
{
open $files[$numFiles++], '<', $file or die "can't open $file, $!\
+n";
}
my $totalLines = 0;
my $ct = 0;
my %unique = ();
while($totalLines <= $wantedLines)
{
my $num = $ct++;
$num = $num%$numFiles;
print "$num\n";
my $this = <$files[$num]>;
unless(exists $unique{$this})
{
print $this;
$totalLines++;
}
}