Για γνώστες perl/CGI (html -> file)

[imported_melody]

Ξέρει κανείς κανένα τρόπο/εντολή για να τραβάω μια σελίδα από web και να την αποθηκεύω σε file ή τέλος πάντων να μπορώ να τη χρησιμοποιήσω (να την ψάξω) μέσα στο cgi script?

 

Η ιδέα είναι να πάρω μια σελίδα με θερμοκρασίες και να κρατήσω ΜΟΝΟ το νούμερο που θέλω, χωρίς να χρησιμοιήσω ΟΛΗ την υπόλοιπη σελίδα ή το banner που δίνουν...

 

Για να δω αν ξέρει κανείς...

[miltos]

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif">Originally posted by melody:<strong>Για να δω αν ξέρει κανείς...</strong></font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">den einai kai toso dyskolo ayto poy psaxneis... to mono poy prepei na kaneis einai na antistoixiseis to source toy remote file me mia metablhth kai... ayto htan olo.

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> system($REMOTE_FILE = "lynx -source http://kapos.kapou.kati/toarxeio.html"); [/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">kai ystera kaneis oti thes sto $REMOTE_FILE px gia na to typwseis sto apotelesma toy cgi kaneis

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> open(REMOTE_FILE);

@array = <REMOTE_FILE>;

close(REMOTE_FILE);

foreach (@array)

{

print();

} [/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">Kalh tyxh

 

Filika Miltos

[sk8]

ayto pou les vre ektyponei OLH thn selida... to palikari eipe oti 8elei mono to meros pou dixnei thn 8ermokrasia!

[Γηρυόνης]

Από τη στιγμή που η Perl έχει ένα τεράστιο εύρος regular expressions δεν πιστεύω ότι είναι δύσκολο να ψάξεις όλη τη σελίδα για να βρεις τις θερμοκρασίες. Ήδη τον κώδικα που διαβάζει όλη τη σελίδα τον έχεις, το μόνο που σου μένει είναι να μηχανευτείς ένα τρόπο να παίρνεις μόνο τα νούμερα.

[miltos]

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">quote:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif">Originally posted by sk8:

<strong>ayto pou les vre ektyponei OLH thn selida... to palikari eipe oti 8elei mono to meros pou dixnei thn 8ermokrasia!</strong></font><hr /></blockquote><font size="2" face="Verdana, Helvetica, sans-serif">sebasto to sxolio soy alla prwta tha eprepe na diabaseis to post moy... egw toy lew pos na parei thn page apo to remote host kai apo ekei kai pera na kanei oti thelei sto source... kai toy dinw ena paradeigma gia na typwnei to source sthn dikh toy selida...

Thn epomenh fora pio xrhsima post...

 

Filika Miltos

-= God is real, unless declared as integer! =-

[imported_melody]

Milto, help...

Den doyleyei, den diabazei th selida.

Koita pws to ebala:

 

system($REMOTE_FILE = "lynx -source http://www.artinoi.gr/index.html");

 

open(REMOTE_FILE);

@array = <REMOTE_FILE>;

close(REMOTE_FILE);

 

kai o pinakas @array einai adeios.

alla3a to open se:

 

open(FILE $REMOTE_FILE);

@array = <FILE>;

close(FILE);

 

kai pali ta idia. To kanw apo unix shell (lynx -source http://www.artinoi.gr/index.html) kai doyleyei... Ti den exw kala? Mporeis na kaneis mia dokimh esy?

 

Thanks

[imported_melody]

Σωστά... Ευχαριστώ Μίλτο... Ηξερα ότι στην Perl θα υπήρχε ΣΙΓΟΥΡΑ τέτοια εντολή... Εχω από το καλοκαίρι που γράφω και έχω ξετρελαθεί... Ποτέ δεν έγραφα τόσα πολλά, τόσο καλά σε τόοοσο λίγο χρόνο...

 

1000 ευχαριστώ...

Το πως θα βρω μέσα στη σελίδα (πίνακα πια) αυτό που ψάχνω, αυτό είναι εύκολο... Είναι θέμα "πουτανιάς" (sorry) πια...

[Γηρυόνης]

Xwris na kserw idiaitera Perl de 8a eprepe na anoikseis kapoia syndesh me to emote server mesw HTTP h toylaxiston mesw TCP/IP gia na diabaseis ta dedomena;

 

Isws ayto boh8hsei:

http://www.perlmonks.org/index.pl?lastnode_id=1842&node_id=136495

[imported_melody]

Οχι, τελικά έφταιγε άλλο. ο lynx ήθελε να βρει terminal (τουλάχιστον η version που έχει o server μας). Εδωσα lynx......... 2>error.log που εδωσε μηνυμα "cannot initialize terminal or possiton cursor"...

 

Τελικά μέσα ο server είχε το wget που κάνει ακριβώς αυτή τη δουλειά, δηλαδή παιρνει μια σελίδα και την αποθηκεύει...

Το να βρω μέσα στη σελίδα τα στοιχεία που ήθελα ήταν πολύ εύκολο... 2 split συνεχόμενα και τελείωσε...

 

Δείτε το αποτέλεσμα στο www.artinoi.gr (πρώτη σελίδα, η θερμοκρασία/καιρικές συνθήκες κτλ...)

[orfeo]

Πολύ χρήσιμο topic. Εγώ θα πρότεινα την χρήση του module LWP που προτείνει Γυρυόνις. Γενικότερα υπάρχουν πολλά modules για τετοιες δουλειές που μπορούν να κάνουν την ζωή μας πιο εύκολη. Πάντως αφού δούλεψε είσαι εντάξει