Perl: прочитать текстовый веб-файл и «открыть» его

Я пытаюсь создать сценарий, который будет читать текстовые файлы, а затем анализировать их, независимо от того, находится ли текстовый файл в сети или в автономном режиме.

Автономная часть выполняется с использованием

open(FILENAME, "anyfilename.txt")
analyze_file();

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

Теперь для сетевой части можно ли вообще прочитать текстовый файл на веб-сайте, а затем «открыть» его?

Я надеюсь достичь следующего:

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}
}

Есть "get ('http://weblink.com/textfile.txt;)", но он создает строку. Я не могу сделать while () с этой строкой.

Кто-нибудь знает, как это можно сделать ?

5
задан tshepang 7 March 2014 в 16:37
поделиться