preload
Oct 18

[Perl] BPS-FlickrFilter

餉佗蝬脰楝 潸”閰隢 Print This Post
302 Views嚚

舐撘銝餉舐其蝺渡 Perl 嚗賡Ｗ臬嗆活

踝
頛詨乩 Flickr 抒Ｙ雯嚗靘踵箸蝡璅憿ａ蝯蝬脣雿蝔晞璅蝐歹銝血丘SSHTML蝣潔葉

祈 WWW::Mechanize 璅∠嚗雿Ｗ靘蝺函Ⅳ憟賢嚗芸末寧 system call cURL 靘血甇閬銵函內撘其遢蝧餅賊曄函啁賬

銝銝畾萇格撠望舀孵神臭誑芸潔 blogger 銝

Screenshot:
嚗隞 http://www.flickr.com/photos/lauct/3701237852/ 箔嚗

demo

demo

ps. 撖怎敺嚗嗅祕銝憭芸末曆靘 XD
FlickrFilter銝頛嚗Flickr2bps (189)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84

#!/usr/bin/env perl
 
# flickr.pl
# Created by Chun-Ting Liu on 2009-10-17
 
require 5.008008;
#use warnings;
#use strict;
my $title, $imgurl, $username, $canonical, $tag, $comment;
 
print "隢頛詨乏lickrＹ雯嚗隞亙拇賢鞈閮嚗\n";
my $url = <STDIN>;
chomp( $url );
print "\n瑕蝬脤銝...\n";
system ("curl $url | head -n 300 > flickr.temp.htm");
print "瑕摰Ｕ\n\n";
open FH, ("flickr.temp.htm")
	or die  "瑼獢憭望: $!";
 
while (<FH>) {
 
	chomp;
	if(/meta name="title"/) {
		s/<meta name="title" content="//;
		s/\" \/>//;
 
		$title = $_;
		print "Title:\n$title\n\n";
	}
 
	if(/link rel="image_src"/) {
		s/	<link rel="image_src" href="//;
		s/\" \/>//;
		s/_m.jpg/.jpg/;
 
		$imgurl = $_;
		print "Image:\n$imgurl\n\n";
	}
 
	if(/geo_possessed_username/) {
		s/var geo_possessed_username = '//;
		s/[;]//;
		s/\\'s\'//;
 
		$username = $_;
		print "User:\n$username\n\n";
	}
 
	if(/link rel="canonical"/) {
		s/	<link rel="canonical" href="//;
		s/\" \/>//;
 
		$canonical = $_;
		print "PhotoPageURL:\n$canonical\n\n";
	}
	#<meta name="description" content="galileo09">
	if(/meta name="description"/) {
		s/	<meta name="description" content="//;
		s/">//;
 
		$comment = $_;
		print "Comment:\n$comment\n\n";
	}
	#tag keywords
	if(/meta name="keywords"/) {
		s/	<meta name="keywords" content="//;
		s/\">//;
		if (/photography, digital photography, cameraphones, camera, hobby photography, photo, digital camera, compactflash, smartmedia, cameras, canon, nikon, olympus, fujifilm, video/) {
			s/photography, digital photography, cameraphones, camera, hobby photography, photo, digital camera, compactflash, smartmedia, cameras, canon, nikon, olympus, fujifilm, video//;
		}
		if (/, photography, photos, photo/) {
			s/, photography, photos, photo//;
		}
 
		$keyword = $_;
	}	
}
close FH;
system ("rm flickr.temp.htm");
 
 
print "HTML 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="'.$imgurl.'" class="flickr-photo" style="border: solid 6px #fff;"/><br /><span class="flickr-caption"><a href="'.$url.'">'.$title.'</a>, originally uploaded by '.$username.'.<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";
print "Tag:\n$keyword\n\n";

皞急交

頛乩葉…

甇瑕脖隞憭..

賊蝡嚗

Tagged with: •

Leave a Reply