Problem mit Schreiben eines RegEx-Pattern in Datei (sonstige Sprachen, auch PHP)

[thread]1057[/thread]

Problem mit Schreiben eines RegEx-Pattern in Datei

Gast Gast

2006-07-20 12:34

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 )

#!/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

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

#!/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

User since
2003-08-04
14371 Artikel
ModeratorIn

Zum Auffinden von E-Mail-Adressen empfehle ich CPAN:

Email::Find und zum parsen von HTML CPAN:

HTML::Parser.

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