Write perl code to find the number of lines in a file

Question

Gregg Leventhal · Accepted Answer

#!/usr/bin/perl
my $file = @argv[0];
if ( $ARGV > 0 ) { die "Usage: Lines.pl filename 
" };
my $lines = `wc -l $file`;
print "$file has $lines lines 
";

lol

Gregg Leventhal · Answer

I meant

#!/usr/bin/perl
my $file = @ARGV[0];
if ( $ARGV > 0 ) { die "Usage: Lines.pl filename 
" };
my $lines = `wc -l $file`;
print "$file has $lines  
";

Anonymous · Answer

if ($#ARGV < 0) {
  die "Usage : q4.pl filename
";
}
my $file = $ARGV[0];
my $lines = `wc -l $file`;
my ($line,$rest) = split(//,$lines);

print "$file has $line lines 
";

GE

GE interview question

Interview Answers

Followed companies

Job searches

Bowls

Want the inside scoop on your own company?