preload
Oct 18

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


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

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

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

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

demo

demo

ps. 撖怎敺嚗嗅祕銝憭芸末曆靘 XD
FlickrFilter銝頛嚗Flickr2bps (207)
蝜潛梯 »

Tagged with:
Oct 07

閬斗瑟摮銝脫 undef 銝舐征摮銝莎臭誑雿輻 defined 賢
undef 喳嚗嗡撘詨賢喟

閬芾撱箇 undef 潘
$var = undef;

Tagged with:
Oct 07

潛暹鈭 Linux 銝 pidof 隞文臭誑敺瑁銝剔摨pid

OSX 銝行批遣隞歹嗆仿 ps aux | grep XXX 銋臭誑啁詨踝Y憿舐內蝯銝憭銋暹楊

閰西餅 pidof source code 靘蝺刻陌嚗雿蝺其韏瑚XD

撟詨末嗡擃靘鈭 scrpit

冽迨蝭蝔撘蝣潔誑鞈嚗
Shell Script嚗

1
2
#!/bin/sh
ps axc|awk "{if (\$5==\"$1\") print \$1}";

Perl嚗

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
 
@procs = `ps -x`;
 
for $proc (@procs ) {
    if( $proc =~ /\s+(\d+)\s+\S+\s+\S+\s+\S+\s+(\S+)/ ) {
	$pid = $1;
	$name = $2;
	if( $name =~ /$ARGV[0]/ ) {
	    print "$pid ";
	}
    }
}
 
print "\n";

link嚗macosxhints.com – Create a pidof command to find PID numbers easily

Tagged with:
Jan 14

曆銝銝銝蝔桀隤閮瘥頛嚗靘撠撠渡銝銝

Perl


Perl 隤閮銝剖喳臭誑箔亥店TMTOWTDI嚗

There’s More Than One Way To Do It.
嚗銝芯蝔格寞靘隞嗡嚗

Perl 雿 Larry Wall 撱箄降臭誑蝮桀神閰敹菜Tim Toady

虫撣詨虜霈鈭箸唾絲 Perl 靽隤荔

Easy things should be easy, and hard things should be possible.

Python


Python 潭鈭 Tim Peters 撖怎 python 潸嚗蝔梁摭he Zen of Python嚗嚗

There should be one– and preferably only one –obvious way to do it.

Ruby


KISS嚗Keep It Super Simple嚗

POLS嚗撠撽閮嚗嚗Principle Of Least Surprise

鞈1嚗鈭箄 – Ruby嚗Python嚗Perl 銝剖喟銝
鞈2嚗Lighty RoR: Ruby 頝 Python 祈釭銝銝

鞈3嚗INET6: 憭抵敺憭拍撘隤閮憸冽

Tagged with:
Jan 12

餈()摮 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賊嚗隞交舐撘嚗
#鞎潔flickrZ閮嚗Y靘踵潸票軔psHTML憪蝣
#Author: Lauct
#Date:	2008/01/12
print "臭航雿鞎潔Flickr貊倏鞈閮嚗隞亦YHTML撠蝔撘\n\n";
print "隢頛詨亙蝬脣嚗\n";
chomp($img_url = <STDIN>);
#print "隢頛詨亙蹂誨摮嚗\n";
#$img_text_alt = <STDIN>;
print "隢頛詨亙Y雯嚗\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 撌脩Y嚗\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:
Feb 28

PTT蝎曇臬唳鈭箔蝝寥憟頠擃嚗撌脩摰鋆憟賭嚗靘蹂蝑閮

CocoaPerlCEDICT

CocoaPerlCEDIT摰鋆蝑閮
蝜潛梯 »

Tagged with: