namen & email vcard extrahieren: regulärer ausdruck mit strings (Allgemeines zu Perl)

[thread]8473[/thread]

namen & email vcard extrahieren: regulärer ausdruck mit strings

linpi

2006-11-05 09:30

User since
2006-11-05
2 Artikel
BenutzerIn

hallo, ich versuche aus eine reihe namen & emails aus vcard blocks extrahieren; aus mehrere zeilen eine neue zeile herauszumachen. ich lese die zeile der datei mit $tmpline = <TMPFILE>;. wie kann ich aus dem string $tmpline ein s/// und das resultat in eine neue variablen hinzufügen? hier ist das kleine programme wo ich bis jetzt gemacht habe (ein 2. perl-script...) danke für jede hilfe. Pierre

Code: (dl )

open(TMPFILE, "$tmp_file") || die "could not open file: $tmp_file";
while(<TMPFILE>)
{
    if (/BEGIN:VCARD/)
    {
      $tmpline="";
      until ( $tmpline =~ m/END:VCARD/ )
      {
         $tmpline = <TMPFILE>;
         if ( $tmpline =~ m/^FN:/) {print " tmpline=$tmpline"; }
         if ( $tmpline =~ m/^item1.EMAIL;/) {print "tmpline=$tmpline";}
         if ( $tmpline =~ m/^EMAIL;/) {print "tmpline=$tmpline";}
      }
    }
}
close (TMPFILE);

edit pq: code-tags hinzugefügt\n\n

esskar

2006-11-05 11:21

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

hast du dir die module auf cpan: CPAN:

vcard
angeschaut?

linpi

2006-11-05 12:55

User since
2006-11-05
2 Artikel
BenutzerIn

danke, guter tipp. ich habe noch nie cpan gearbeietet, gute gelegenheit mir mit cpan vertraut zu machen.

styx-cc

2006-11-05 13:32

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Da gibts auch nen schicken Artikel im Wiki: Wiki:

WieInstalliereIchEinModul

MfG

Pörl.

Crian

2006-11-06 14:18

User since
2003-08-04
5871 Artikel
ModeratorIn

Generelle Tipps:
- use strict
- use warnings
- führe $! in der Fehlermeldung von open mit auf

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2006-11-05 09:30.