Opened by krusty at 2006-08-11 14:11
User since
2006-01-27
91 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-01-27
91 Artikel
BenutzerIn
Vielleicht habe ich auch noch eine andere Möglichkeit.
In der Mail die ich von meinem Postfach abgeholt habe steht die csv folgdendermaßen drin.
Den Header habe ich mal weg gelassen.
test1;test2;test3;test4;test=
5;test6
1;2;3;4;5=
;6
usw.
also die Zeile sind einfach wild unterbrochen mit einem "=" und einem Return. Gibt es die Möglichkeit per Script die Zeilen wieder zusammenzufügen?
Habe folgendes Script geschrieben:
Damit bekomme ich die "=" aus den Zeilen. Nur wie bekomme ich die Zeilenumbrüche hinter den "=" weg???
Habt ihr eine Idee???
Versucht habe ich es schon mit diesem Suchmuster:
oder auch
Dann bekomme ich aber nichts mehr zurück. :(
In der Mail die ich von meinem Postfach abgeholt habe steht die csv folgdendermaßen drin.
Den Header habe ich mal weg gelassen.
test1;test2;test3;test4;test=
5;test6
1;2;3;4;5=
;6
usw.
also die Zeile sind einfach wild unterbrochen mit einem "=" und einem Return. Gibt es die Möglichkeit per Script die Zeilen wieder zusammenzufügen?
Habe folgendes Script geschrieben:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/usr/bin/perl -w
use strict;
use warnings;
my $path = "/Ordner/wo/alles/liegt";
my $file = "datei_mit_der_mail";
my $gefunden = 0;
open(DATA, "<$path/$file") || die "Cannot open $file file!\n";
while (<DATA>)
{
chomp;
$zeile = $_;
if ( /^test1;test2;test3/ )
{
$gefunden = 1;
}
if ( $gefunden == 1 )
{
if ( $zeile =~ s/\=// )
{
print "Debug: $zeile\n";
}
}
}
close (DATA);
Damit bekomme ich die "=" aus den Zeilen. Nur wie bekomme ich die Zeilenumbrüche hinter den "=" weg???
Habt ihr eine Idee???
Versucht habe ich es schon mit diesem Suchmuster:
Code: (dl
)
if ( $zeile =~ s/\=\r// )
oder auch
Code: (dl
)
if ( $zeile =~ s/\=\n// )
Dann bekomme ich aber nichts mehr zurück. :(