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