Lauct's BLOG

#!/usr/bin/env perl -w
#學習Perl的練習
#有些Flickr沒提供Blog This的選項，所以才會有這支程式，
#手動貼上flickr圖片頁面資訊，產生便於貼到bps的HTML原始碼
#Author: Lauct
#Date:	2008/01/12
print "這是一支讓你手動貼上Flickr相簿資訊，以產生HTML的小程式。\n\n";
print "請輸入圖片網址：\n";
chomp($img_url = <STDIN>);
#print "請輸入圖片替代文字：\n";
#$img_text_alt = <STDIN>;
print "請輸入圖片頁面網址：\n";
chomp($page_url = <STDIN>);
print "請輸入圖片標題：\n";
chomp($img_title = <STDIN>);
print "請輸入原始上傳者網址：\n";
chomp($uploader_url = <STDIN>);
print "請輸入原始上傳者姓名：\n";
chomp($uploader_name = <STDIN>);
print "請輸入簡短評論：\n\n";
chomp($comment = <STDIN>);
print "你所需要的 HTML code 已經產生囉！\n請複製以下的 code 貼至需要的地方 :-)\n\nHTML Code:\n\n";
print '<style type="text/css">.flickr-photo { }.flickr-frame {	float: center; text-align: center; margin-left: 15px; margin-bottom: 15px; }.flickr-caption { font-size: 0.8em; margin-top: 0px; }</style><div class="flickr-frame">	<img src="'.$img_url.'" class="flickr-photo" style="border: solid 6px #fff;"/><br /><span class="flickr-caption"><a href="'.$page_url.'">'.$img_title.'</a>, originally uploaded by <a href="'.$uploader_url.'">'.$uploader_name.'</a>.<br />This photo was picked by <a href="http://beautypapers.blogspot.com/">beautypapers</a>.</span></div><p class="flickr-yourcomment">'.$comment.'</p>'."\n\n\n";