「perl/script/MarkdownをHTMLに変換」の版間の差分

提供: dsk's note
移動: 案内検索
(ページの作成:「<syntaxhighlight lang="perl"> #!/usr/bin/perl use strict; use warnings; use lib '/home/dsktnk/local/lib/perl5'; use Text::Markdown qw/markdown/; use LWP::UserAgent; prin...」)
(相違点なし)

2015年3月25日 (水) 17:20時点における版

#!/usr/bin/perl
use strict;
use warnings;
use lib '/home/dsktnk/local/lib/perl5';
use Text::Markdown qw/markdown/;
use LWP::UserAgent;
 
print qq|Content-type: text/html\n\n|;
my $url="http://dsktnk.sakura.ne.jp/test.md";
my $ua = LWP::UserAgent->new;
$ua->agent('Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)');
my $request = HTTP::Request->new('GET' , "$url");
my $response = $ua->request($request);
my $data = $response->content;
my $html = markdown($data);
print $html;