blob: fe973a5249dcf33ae685b068568155bf632c0359 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl
use lib "../lib";
use Rest;
use CGI;
use Poetaster;
my $file = $ARGV[0] || "twain";
my $data = load_data($file);
$data =~ s/<[^>]+>//g;
$data =~ s/\r\n/ /g;
$data =~ s/\s+/ /g;
$data =~ s/\. \. \. /... /g;
my $self = new Poetaster;
my $poem = $self->poem($data);
print $poem;
sub load_data
{
my ($file) = @_;
my $data = '';
if ($file =~ /^http/)
{
$data = Rest->new->rest_get_raw($file);
}
else
{
local $/;
open F, $file;
$data = <F>;
close F;
}
return $data;
}
|
