Opened by Gast at 2005-10-26 14:09
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
Ok hier mein Beispiel:
\n\n
<!--EDIT|master|1130325859-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
open(DATEI, "<daten.txt") or die $!;
while (<DATEI>)
{
$tmp = $_;
$tmp =~ s/\"//gis; # Diese Zeile Entfernt alle "
my @Daten = split(';', $tmp); #Im Array @Daten sind jetzt alle Felder der aktuellen Zeile.
# Zugriff auf ein Element der Aktuellen Zeile ==> $Daten[1]
# Du kannst jetzt gleich in diesem schritt bearbeiten
# und durch ">>" anhängen Zeilenweise in eine neue Datei schreiben.
}
close(DATEI);
<!--EDIT|master|1130325859-->
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;