Anirban Adhikary wrote:
Dear List
I have write the The following code to check a file and print only distinct
lines to a new file and skips the duplicate lines. My source file is as
follows
hello how are you?
hello how are you?
What language did you want to use?
What language did you want to use?
I am here
You are there
this is my first perl script
What language did you want to use?
###############################################################################
my code is as follows
#use strict;
#use warnings;
print "Enter the Absolutepath of the file\t";
my $input=<STDIN>;
chomp($input);
dup($input);
sub dup
{
my $filename=shift;
my $count=0;
my @arr;
my $el;
my $element;
open(FH,"$filename");
while(<FH>)
{
chomp($_);
$element = $_;
if($count ==0)
{
push(@arr,$element);
$count+=1;
print "Count is $count\n";
}
else
{
foreach $el(@arr)
{
my $len=$#arr;
chomp($el);
# print "$element\n";
#print "The length of arr is $len\n";
if($el == $element)
{
print "\t######Inside If######\t\n";
print $element."\n";
next;
#push(@arr,$_);
}
elsif($el != $element)
{
push(@arr,$element);
print "\t########Inside Elseif\n";
#next;
}
}
}
}
###############################################################
The problems I am facing are
1) The code is not getting entered into elsif block
2) I am comparing between 2 strings but if I use "eq" or "ne" for
comparison I am getting some horrible output so I am using numeric
comparison.
3)If I am giving print the $element variable outside foreach loop it is
getting printed but Inside foreach loop it is not showing anything.
Can anybody Please suggest me where I am making the mistake?
The usual way to do what you want is to use a hash:
use strict;
use warnings;
print "Enter the Absolutepath of the file\t";
chomp( my $filename = <STDIN> );
open my $FH, '<', $filename or die "Cannot open '$filename' $!";
my %seen;
while ( <$FH> ) {
unless ( $seen{ $_ }++ ) {
print;
}
}
__END__
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
