Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
Roland Bauer
Roland.Bauer at mediaprint.at
Fri May 26 09:51:40 CDT 2000
* * * vienna-pm-list * * *
Zu Frage 1 (Variante 2):
use strict;
# VARIANTE 2
# fuer nicht "allzu lange" Files ...
my $alles;
{
local $/ = undef;
$alles = <DATA>;
}
my @records = split /^=$/m, $alles;
for my $record (@records) {
$record =~ s/^\n+//s; # Leerzeilen am Beginn entfernen
$record =~ s/\n+$//s; # Leerzeilen am Ende entfernen
$record or next; # leere ueberspringen
$record =~ s/\n+/; /sg; # <<<<<<< VARIANTE 2
print "$record;\n";
}
__DATA__
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=
name=XYZ ungeloest
ort=nirgendwo
e-mail=kaner kennts
time=DatumUhrzeit
=
###
You are subscribed to vienna-pm-list as "Roland Bauer" <Roland.Bauer at mediaprint.at>
http://www.fff.at/fff/vienna.pm/
More information about the Vienna-pm
mailing list