Μια πιο ευέλικτη εφαρμογή λήψης web σελίδων

Όπως θα παρατηρήσετε, όταν αρχίσετε να ασχολείστε με modules, οι καλοί άνθρωποι που τα δημιουργούν δυστυχώς δεν δίνουν την ανάλογη σημασία στο documentation. Οι οδηγίες χρήσης είναι συνήθως σύντομες και δυσανάγνωστες ειδικά για τον αρχάριο προγραμματιστή.

Γι’ αυτό και θα επιμείνουμε περισσότερο στα πιο συνηθισμένα modules δίνοντας πολλά διαφορετικά παραδείγματα. Ο ακόλουθος κώδικας καλεί μια σελίδα και την αποθηκεύει σε μια scalar μεταβλητή:

#!/usr/bin/perl -w

use strict;

use LWP::Simple;

my $URL = 'http://www.flash.gr';

my $content;

$content = get($URL);

print "$content\n";

Η χρησιμότητά του βρίσκεται στο ότι:

1. Αντί να δηλώσουμε στο module το URL ως μια διεύθυνση το δηλώνουμε ως μεταβλητή π.χ. αντί για my $page = get ('http://www.flash.gr') λέμε $content = get($URL). Έτσι, τώρα μπορούμε να χρησιμοποιήσουμε το ίδιο πρόγραμμα για να λάβουμε αυτόματα πολλά URLs.
2. Το περιεχόμενο αποθηκεύεται στη μεταβλητή $content και μπορούμε να το διαχειριστούμε όπως θέλουμε.

Η εξήγηση του κώδικας είναι:

Κατά τα γνωστά.

Ορίζουμε ποιο URL θέλουμε να καλέσουμε.

Δηλώνουμε τη μεταβλητή $content

Ορίζουμε το περιεχόμενο της $content και η Perl (για την ακρίβεια το module) φροντίζει να το λάβει.

Παρουσιάζουμε στην οθόνη το περιεχόμενο της $content. Αυτό φυσικά δεν είναι απαραίτητο, αλλά είναι ένας εύκολος τρόπος για να δούμε να η σελίδα ελήφθη σωστά.