sslug-teknik team mailing list archive

[Carsten Svaneborg <carsten.svaneborg@xxxxxxxx>]

"Bo Rosén" wrote:
> Det är naturligtvis enkelt med filnamnen, men hur gör jag med länkarna
> inne i filerna?

Følgende perl script burde (helt uprøvet) kopiere en htm fil til en
html fil, og samtidig fixe alle links fra .htm til .html inde i
filen. (Hvis du bruger onmouseover oa. argumenter i links vil disse
ikke ændres).

#!/usr/bin/perl

#Første argument på kommando linien:
my $filnavn=lc $ARGV[1];

#Ingen record separator
$/=undef;

#indlæs fil:
open IN, ARGV[1] or die "Error! $!";
my $content=<IN>;
close IN;

#addere et ekstra l til alle links.
$content =~ s/<\s*a\s+href\s*=\s*"([^"]*)"\s*>/<a href="$1l">/gi;

#$1l er $1 efterfulgt af et lille L 

#adder et l
$filnavn .= "l";

open OUT, ">".$filnavn or die "Error! $!";
print OUT $content;
close OUT;

-- 
    No matter how fast light travels it finds *
    the darkness has always got there first,  *  Carsten Svaneborg
	     and is waiting for it.           *   zqex at risoe.dk
	-- (Terry Pratchett, Reaper Man)      *