8 lines
111 B
Perl
8 lines
111 B
Perl
|
open(FILE, <>);
|
||
|
my $lines_counter = 0;
|
||
|
while(<>)
|
||
|
{
|
||
|
$lines_counter += 1;
|
||
|
}
|
||
|
print "lines: $lines_counter\n";
|