Just in Love 愛在其衷:私人工具箱：flickr2bps

<< 慶祝 renew Lauct.org 三年，我再加送神秘小禮物 | 回blog首頁 | 開啟 Mac OS X 10.5 Leopard 的 PHP >>

2009年01月12日

私人工具箱：flickr2bps

最近在(重)學 Perl。本來要學 Ruby 的，不過基於以前大學專題時曾自己摸過一陣子，和圖書館 Perl 的書比 Ruby 多許多，以及 Perl 在系統管理上也會是個好工具，所以還是繼續玩 Perl 吧。

#!/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";

Posted by jusofie at 樂多Roodo! │01:08 │回應(0) │引用(0) │ＰＣ閒話

樂多分類：日記/一般工具：編輯本文
標籤：Perl

引用URL

http://cgi.blog.roodo.com/trackback/8069709

姓名 :
Email :
URL :
回應狀態:	公開私密
	記住我的資訊顯示我的圖像 ( 登入或申請個人圖像 )
回應內容 :

回最上方