The below code is showing errors kindly help me to solve the errors in the code
package My::count
use Exporter qw(import);
our @Export_ok=qw(line_count);
sub line_count {
my $line=@_;
return $line;
}
I saved above code in count.pm
use My::count qw(line_count);
open INPUT,"<filename.txt";
$line++;
print line count is $line \n";
I saved this file in a.pl
Let's look at this code in some detail.
# There's a typo on the line below. It should be /usr/bin/perl
#!usr/bin/perl
# Never comment out these lines.
# Instead, take the time to fix the problems.
# Oh, and it's "warnings", not "warning".
#use strict;
#use warning;
# Always check the return value from open()
# Please use lexical filehandles.
# Please use three-arguments to open().
# open my $ip_fh, '<', 'test1.txt' or die $!;
open IP,"<test1.txt";
my ($line_count,$word_count)=(0,0);
# You're rather fighting against Perl here.
# If you do things in a Perlish manner then it all becomes easier
while(my $line=<IP>) {
$line_count++;
my @words_on_this_line= split(" ",$line);
$word_count+= scalar(@words_on_this_line);
}
print"This file contains $line_count lines\n";
print"this file contains $word_count words\n";
# It all goes a bit wrong here. You don't have an array called @IP.
# I think you wanted to iterate across the file again.
# Either use seek() to return to the start of the file, or store
# the lines in @IP as you're reading them.
# Also, you need to declare $line.
foreach $line(@IP) {
if ($line =~ /^>/) {
print $line;
}
}
close IP;
I would do something like this.
#!/usr/bin/perl
use strict;
use warnings;
use 5.010; # for say()
my $filename = shift || die "Must give file name\n";
open my $fh, '<', $filename or die "Can't open $filename: $!\n";
my ($word_count, @matches);
while (<$fh>) {
# By default, split() splits $_ on whitespace
my @words_on_line = split;
$word_count += @words_on_line;
push @matches, $_ if /^>/;
}
# No need to count lines, Perl does that for us (in $.)
say "This file contains $. lines";
say "This file contains $word_count words";
print @matches;