Hai
Thank you again for your reply. i have modified your script and this worked out for me. Here is the script that i have used.
partNames.pl
while( <> ) {
my $c = substr $_ ,0, 1;
#print "C value --> ".$c."\n";
$file = "names".$c;
&file_write($file,$_);
}
sub file_write(){
$_file = shift;
$_data = shift;
open (DATA_FILE,">>$_file") or die("Cannot open a file $_file ->$!\n"
+);
print DATA_FILE "$_data";
close(DATA_FILE);
}
uniqNames.pl
for my $fname ( glob 'names*' ) {
my %uniq;
open my $fh, '<', $fname or die $!;
while( <$fh> ) {
print unless exists $uniq{ $_ };
$uniq{ $_ } = 1;
}
}
Thank you once again for your help.
|