Datenmanipulation: Durchsuchen eines Files und ausgabe in.. (Seite 2) (Allgemeines zu Perl)

[thread]6412[/thread]

Datenmanipulation: Durchsuchen eines Files und ausgabe in.. (Seite 2)

2004-07-20 00:52

User since
2004-07-18
5 Artikel
BenutzerIn
[default_avatar]

Jetzt hab ich ne Teillösung:

Code: (dl )

#!/usr/bin/perl

$file = 'el.htm';
open(DATA, $file);
$data = <DATA>;
#$data =~s/<[^>]*>([^<]*)<\/[^>]*>/$1/gs;
#print $data;



while ($zeile=<DATA>){

 if ((rindex $zeile,"<p><b>") > 0) {

     print $zeile;
 }

}

ergibt mir jetzt

[html]Prénom : ANIA J.
Sexe : FILLE
Classe : ARZIER 3-4P (VAUD)
Age : 10.3 ans
E-Mail : <a href="mailto:arzierpicchio@esge.ch?Subject=Pour%20ANIA%2....">arzierpicchio@esge.ch</a>
Mes mots-clé : CHIENS / BADMINTON / FLORENT PAGNY / MATHEMATIQUES / MER
Mon CV : Salut, je m'appelle Ania. je viens de Russie et je voudrais
Fiche mise à jour le : 1/12/04[/html]

Jetzt muss ich nur noch in einer Zeile das richtige auslesen können...

[html]Sexe : FILLE[/html]

output, dann Fille
Danke für eure Hilfe

Bearbeitet von Crian: CODE- und HTML-Tags ergänzt\n\n

[E|B]

2004-07-20 02:11

User since
2003-08-08
2561 Artikel
HausmeisterIn

Code: (dl )

1
2
3

$string = "... <p><b>Sexe : </b>FILLE</p> ...";
$string =~ m/.*?Sexe : <\/b>(\w+).+/gis;
print $1;

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Crian

2004-07-20 14:39

User since
2003-08-04
5873 Artikel
ModeratorIn

Willkommen MP :-)

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 2004-07-18 20:39.