Font
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]1057[/thread]

Problem mit Schreiben eines RegEx-Pattern in Datei



<< >> 3 entries, 1 page
guest Gast
 2006-07-20 12:34
#10730 #10730
Hallo,

ich möchte folgendes erreichen: Etwas in einer Datei finden und nur das gefundene (+ Zusatztext) in eine neue Datei schreiben.

Mein Skript sieht wiefolgt aus:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl -w

use strict;

print "Die Datei wird nun bearbeitet ...!\n";

open(DATEI, "</home/user/perl/wirrwarr.txt") || die "Datei nicht gefunden";
my @ArrayEins = <DATEI>;
close(DATEI);

my @ArrayZwei;
foreach(@ArrayEins){
$_=~ s/([A-Za-z0-9_.-]+@[A-Za-z0-9_]+\.+[A-Za-z]{2,4})/MAILADDY $1 ENDE/g;
push(@ArrayZwei,$_);
}
open(DATEI, ">/home/user/perl/neue_datei.txt") || die "Datei nicht
gefunden";
print DATEI @ArrayZwei;
close(DATEI);

Ich habe zum Testen das Matchen von E-Mail-Adressen gewählt. Im "Endprodukt" sollen mir aus einer HTML-Datei Zahlen gematcht werden, die ich dann beschrifte (vgl. "MAILADDY [Match] ENDE" im Beispiel).

Er matcht mir mit meinem Skript nun die E-Mail-Adressen und umschließt sie mit "MAILADDY" und "ENDE". Nun soll dies in neue_datei.txt geschrieben werden und nur dies, nicht, was sonst noch in der wirrwarr.txt steht.
renee
 2006-07-20 12:40
#10731 #10731
User since
2003-08-04
14371 articles
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl -w

use strict;

print "Die Datei wird nun bearbeitet ...!\n";

open(DATEI, "</home/user/perl/wirrwarr.txt") || die "Datei nicht gefunden";
my @ArrayEins = <DATEI>;
close(DATEI);

my @ArrayZwei;
for my $elem(@ArrayEins){
my @match = $elem=~ /([A-Za-z0-9_.-]+@[A-Za-z0-9_]+\.+[A-Za-z]{2,4})/g;
push(@ArrayZwei,map{"MAILADDY $_ ENDE"}@match);
}

open(DATEI, ">/home/user/perl/neue_datei.txt") || die "Datei nicht
gefunden";
print DATEI @ArrayZwei;
close(DATEI);
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2006-07-20 12:41
#10732 #10732
User since
2003-08-04
14371 articles
ModeratorIn
[Homepage] [default_avatar]
Zum Auffinden von E-Mail-Adressen empfehle ich CPAN:Email::Find und zum parsen von HTML CPAN:HTML::Parser.
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< >> 3 entries, 1 page



View all threads created 2006-07-20 12:34.