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