sslug-teknik team mailing list archive

[Asbjoern Grandt <asbjorn@xxxxxxxxxx>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Saturday 14 February 2004 12:34, Asbjoern Grandt wrote:
> On Friday 13 February 2004 13:06, Asbjoern Grandt wrote:
> > On Friday 13 February 2004 12:44, Kim Schulz wrote:
> > > On Fri, 13 Feb 2004 10:04:49 +0100
> > >
> > > noget ala følgende kunne gøre det;
> >
> > Tak for hjælpen, det virker.
> >
> > mvh
> > Asbjørn Grandt
>
> Og så ikke helt alligevel...
>
> Det virker fint med vilkårlig tekst inde i filen, men den har noget
> svært med at fange 'start af linien'.
> $file =~ s/^\s*$/\<p\>\n/g;
>
> Dette finder alle tomme linier i teksten, og indsætter en <p>. Det
> gjorde det i hvert tilfælde da jeg brugte
> perl -pi -e "s/^\s*$/\<p\>\n/g" temp.txt
>
> Nogle ideer ?
>
> mvh
> Asbjørn Grandt

Dette virler, men der må da være en smartere måde :
...
my @lines;
my @iLines = split(/^/, $file);

foreach(@iLines) {
s/^(Chapter|Part)\ (.*)$/\<h3\>\1\ \2\<\/h3\>/g;
s/^(Prologue|Epilogue)$/\<h3\>\1\<\/h3\>/gi;
s/^[\*\ \-\=\~\@]{2,}$/\<h4\>\*\*\*\*\*\<\/h4\>\n\<p\>/g;
s/^\s*$/\<p\>\n/g;
chomp;
push @lines, $_;
}
$file = join("\n", @lines);
...

mvh
Asbjørn Grandt
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)

iD8DBQFALg3IQKgAVMn7PyMRAvzxAJ0U1EKRp38balKoVJO5wVBQd8SwZACfXlEE
zLLJu9Szv3SADMhMGb+vGSE=
=ie6K
-----END PGP SIGNATURE-----