nicht angemeldet
Hi,
while (my $zeile =<DATEI>)
{
$zeile =~ s/<FONT FACE="Arial">/test/g;
$zeile=~s/(<body.*?>)/$1<p>$datei</p>/i;
print (DATOUT "$zeile");
}
close(DATEI);
close(DATOUT);
}
}
close(DIR);
Das sollte den Dateinamen in einen <p>-Tag direkt hinter <body> schreiben. (ungetestet)
HTH
ortenau-s-bahner
--
ss:} zu:$ ls:} fo:| de:] va:) ch:? sh:( n4:# rl:? br:> js:| ie:( fl:{ mo:)
ss:} zu:$ ls:} fo:| de:] va:) ch:? sh:( n4:# rl:? br:> js:| ie:( fl:{ mo:)