in reply to Completely New To Perl - Need Help Commenting Script

$linecnt = `wc -l < $ARGV[0]`;

[download]

what is this?

Replies are listed 'Best First'.
Re^2: Completely New To Perl - Need Help Commenting Script
by choroba (Cardinal) on Jul 25, 2013 at 17:05 UTC
    Non-portable equivalent of 
    open my $FH, '<', $ARGV[0] or die $!;
1 while <$FH>;
$line_count = $.;
seek $FH, $. = 0, 0;

    [download]
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]

In Section Seekers of Perl Wisdom