mirror of
https://github.com/MariaDB/server.git
synced 2025-11-26 07:29:42 +01:00
10 lines
272 B
PHP
10 lines
272 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
|