33 lines
562 B
Perl
33 lines
562 B
Perl
|
#!/usr/bin/perl
|
|||
|
|
|||
|
my $fill = "RRREEEPPP";
|
|||
|
|
|||
|
my $end++;
|
|||
|
|
|||
|
while(<STDIN>) {
|
|||
|
my $line = $_;
|
|||
|
|
|||
|
# $line =~ s/ZAGOR/Bj<42>rn Stenberg/g;
|
|||
|
|
|||
|
$line =~ s/<2F>/\Ö/g;
|
|||
|
$line =~ s/<2F>/\ö/g;
|
|||
|
$line =~ s/</\</g;
|
|||
|
$line =~ s/>/\>/g;
|
|||
|
|
|||
|
if($line =~ s/(LINK\((\"([^\"]*)\"))/$fill/) {
|
|||
|
my $url = $2;
|
|||
|
$url =~ s/@/\#%40;/g;
|
|||
|
$url =~ s/=/\#%3D;/g;
|
|||
|
$url =~ s/&/\&/g;
|
|||
|
$line =~ s/$fill/LINK\($url/;
|
|||
|
}
|
|||
|
print $line;
|
|||
|
|
|||
|
if($line =~ /^ *ENDDATE/) {
|
|||
|
if($end++ == 15) {
|
|||
|
last;
|
|||
|
}
|
|||
|
|
|||
|
}
|
|||
|
}
|