preload
Jan 12

[Perl] 蝘鈭箏極瑞拳嚗flickr2bps

閰屜C, 餉佗蝬脰楝 撠∟隢 »
214 Views嚚

餈()摮 Perl砌閬摮 Ruby 嚗銝箸潔誑憭批飛撠憿曇芸楛賊銝摮嚗賊尹 Perl 豢 Ruby 憭閮勗嚗隞亙 Perl 函頂蝯梁恣銝銋臬憟賢極瘀隞仿舐匱蝥 Perl 扼

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/usr/bin/env perl -w
#摮貊Perl蝺渡
#鈭Flickr瘝靘Blog This賊嚗隞交舐撘嚗
#鞎潔flickrＺ閮嚗Ｙ靘踵潸票軔psHTML憪蝣
#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";
Tagged with: • •