Opened by linpi at 2006-11-05 09:30
User since
2006-11-05
2 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
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
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1162724037-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
<!--EDIT|pq|1162724037-->