Antw: [vienna.pm] Text Formatierungen / Sonderzeichen
Roland Bauer
Roland.Bauer at mediaprint.at
Fri May 26 09:49:40 CDT 2000
* * * vienna-pm-list * * *
zu Frage 1:
#-----------------------------------------------------------------------
use strict;
# 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
my @pairs = split /\n+/, $record;
print join("; ", @pairs) . ";\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