Perl: legge il file di testo web e lo "apre"

Question

Sto provando a creare uno script che legge i file di testo e li analizza, indipendentemente dal fatto che il file di testo sia online o offline.

La parte offline è fatto, utilizzando

Ora per la parte on-line, c'è comunque di leggere un file di testo su un sito web e poi "aprire" vero?

Quello che spero di raggiungere è questo:

if ($offline) { 
    open(FILENAME, "anyfilename.txt") 
} 
elsif ($online) { 
    ##somehow open the http web text so that I can do a while (<FILENAME>) later 
} 

analyze_file(); 

sub analyze_file { 
    while (<FILENAME>) {analyze analyze} 
} 

C'è il "get ('http://weblink.com/textfile.txt;)", ma crea una stringa. Non posso fare un po '() con quella stringa.

Qualcuno sa come si può fare?

Answer 1

È semplice, basta usare lo stile open FILEHANDLE,MODE,REFERENCE di open.

use LWP::Simple; 
if ($offline) { 
    open(FILENAME, '<', "anyfilename.txt") 
} 
elsif ($online) { 
    my $text = get 'http://example.com'; 
    open(FILENAME, '<', \$text); 
}