mirror of
https://github.com/MariaDB/server.git
synced 2025-09-03 08:02:04 +02:00
12 lines
274 B
PHP
12 lines
274 B
PHP
--perl
|
|
my $fname= "$ENV{'SEARCH_FILE'}" or die "SEARCH_FILE not set";
|
|
|
|
open (FILE, '<', "$fname") or die("Unable to open '$fname': $!\n");
|
|
# Count lines in the SEARCH_FILE.
|
|
my $line_count = 0;
|
|
$line_count++ while <FILE>;
|
|
close(FILE);
|
|
|
|
print "$line_count\n"
|
|
EOF
|
|
|