18 lines
339 B
Perl
18 lines
339 B
Perl
{
|
|
# vim: ft=perl:
|
|
%lines = ();
|
|
@lines = ();
|
|
open (RD, "</opt/phpki/html/config.php")
|
|
|| warn "Cannot open input file /opt/phpki/html/config.php: $!\n";
|
|
while (<RD>)
|
|
{
|
|
chomp;
|
|
next if grep { /^$/ } $_ ;
|
|
next if grep { /^\?/ } $_;
|
|
push @lines, $_;
|
|
$lines{$_} = 1;
|
|
}
|
|
close(RD);
|
|
"";
|
|
}
|