Perl: Đọc tệp văn bản web và "mở" nó

Question

Tôi đang cố gắng tạo tập lệnh sẽ đọc tệp văn bản và sau đó phân tích chúng, bất kể tệp văn bản có trực tuyến hay ngoại tuyến.

Các ẩn phần được thực hiện, sử dụng

Đây là phần trực tuyến, là có anyway để đọc một file văn bản trên một trang web và sau đó "mở" nó?

gì tôi hy vọng sẽ đạt được điều này là:

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ó là "get ('http://weblink.com/textfile.txt;)" nhưng nó tạo ra một chuỗi. Tôi không thể làm một lúc() với chuỗi đó.

Có ai biết cách thực hiện điều này không?

Answer 1

Thật đơn giản, chỉ cần sử dụng kiểu open FILEHANDLE,MODE,REFERENCE của open.

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