13 lines
182 B
Plaintext
13 lines
182 B
Plaintext
{
|
|
$OUT .= "";
|
|
foreach my $line (@lines)
|
|
{
|
|
chomp $line;
|
|
next if grep { /^$/ } $line ;
|
|
push @lines, $_;
|
|
|
|
$OUT .= "$line\n";
|
|
}
|
|
$OUT .= "?>";
|
|
}
|