Opened by rk-ger at 2006-08-08 00:04
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Du kannst angeben welches Zeichen, oder welche Zeichenkette als Zeilenende von Perl verwendet wird. Hier ein kleines Beispiel:
\n\n
<!--EDIT|Ronnie|1154992371-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
{
local $/ = '/////XYZ/////'; #/
while (<DATA>) {
s/^\\+\w+\\+//g;
s/\/+\w+\/+$//g;
print Dumper [split /\|/, $_];
}
}
__DATA__
\\\\\XYZ\\\\\Wert100:D|Wert330:12345|Wert400:012345678970|Wert530:16|Wert545:02.08.2006|Wert760:0|Wert761:Hier steht 1 Wert|Wert800:Text1|Wert805:3782|Wert810:Text2|Wert811:Noch ein Wert|Wert820:Im Hafen 00|Wert821:D|Wert822:12345|Wert823:Deutschland|Wert853:XX|Wert854:1231329|Wert860:xxxxxxxxxxx|Wert861:Herr|Wert862:Max Muster|Wert863:Ja auch|Wert864:Text99|/////XYZ/////\\\\\XYZ\\\\\Wert100:D|Wert330:12345|Wert400:012345678970|Wert530:16|Wert545:02.08.2006|Wert760:0|Wert761:Hier steht 1 Wert|Wert800:Text1|Wert805:3782|Wert810:Text2|Wert811:Noch ein Wert|Wert820:Im Hafen 00|Wert821:D|Wert822:12345|Wert823:Deutschland|Wert853:XX|Wert854:1231329|Wert860:xxxxxxxxxxx|Wert861:Herr|Wert862:Max Muster|Wert863:Ja auch|Wert864:Text99|/////XYZ/////
<!--EDIT|Ronnie|1154992371-->