「perl/script/MarkdownをHTMLに変換」の版間の差分
提供: dsk's note
< perl
(ページの作成:「<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;