day spec

#!/usr/bin/env perl

use warnings;
use strict;

$csg = CSG->new;

$csg->FristPhaseNote({
  date     => "2009/01/16", 
  location => "Lib, 5F, Column Q30", 
  prepare  => ["9:40~11:50", "13:30~14:00"],
  end      => "17:10",
});

__END__

 

摩羯座老公使用說明書

hmmm 只能說很中肯 XDDD

品名：
摩羯座老公

生產日期：
摩羯月(12月22日——1月19日)，年份憑個人喜好。

主要成分：
奮鬥力51%，忠誠29%，正直13%，樸實木訥7%。

主要功能：
1、本產品能動性很強，可大量減少用戶勞作時間。
2、能為用戶的生活、情感、物質提供穩定保障。
3、能默默地儘量實現用戶需要。

適用人群：
適用於溫順嫻雅、勤儉節約的女性。

注意事項：
1、不要對該產品的浪漫因子抱有太多期望，不然失望的人一定是用戶。
2、本品在運作時，請別隨意打擾。
3、用戶在使用時，儘量少做錯事，否則要承受其冰冷外殼下的噪音騷擾。
4、別強行把該產品推到熱鬧、繁雜的環境中去。
5、請尊重本產品的勞作能力和對工作的偏愛。
6、用戶如遇到無法解決的障礙時，請立即諮詢「科技紫微星座網」，以免搶修不及時，要到民政局申請繁雜的換貨手續。

禁忌：
太以自我為中心、缺乏家庭經營觀念、無法理解本品事業心的人，為拒絕往來戶；本品對於「小心眼」之類的用戶評鑑頗為敏感，當面使用容易導致突發慘案，慎之。

貯藏：
該產品適宜在可施展抱負的工作環境中生存。

包裝：
看上去嚴謹、正式的包裝材料為宜。

備註：
使用一段時間後，本品的中部易出現膨脹，屬正常現象，不影響正常使用；如有其他影響使用之故障，可送至醫院相關科室進行維修。

 

GitHub Creator

Install

# cpan Git::Github::Creator

Setting in ~/.github_creator.ini

[github]
        login_page="https://github.com/login"
        account=joe@example.com
        password=foobar
        remote_name=origin
        debug=1

Then, in local git repository

github_creator --name my-project --desc "an awesome thing"

Arguments are optional in a Perl module with META.yml.

GitHub Creator's repository and manual on cpan

 

0d6d98

simple clone of GitHub Badge

Thanks to jQuery, I just spend three hours to create GitHub Widget, a clone of GitHub Badge. The widget is put in the sidebar of this page.



Compare with GitHub Badge, GitHub Widget is full written in jQuery, so that it is also compatible with IE. And the usage and html structure is full compatible with GitHub Badge.

I host it here temporarily. Please feel free to use it.

 

github api callback

Not documented on Official GitHub API Guide, GitHub provide "callback" parameter to allow corss-site json accessing.

Example in jQuery:

<script src='http://ajax.googleapis.com/ajax/libs/jquery/1.2.6/jquery.min.js' type="text/javascript"></script>

<script>

function myFunction(data) {
    // data is the json we would get
}

$.getScript("http://github.com/api/v1/json/username?callback=myFunction")

</script>

 

hide blogger navigation bar

memo:

.Navbar {
    visibility:hidden;
    display: none;
}

 

OPT presentation

Slide which was uploaded to slideshare.net:

OPT Presentation

View SlideShare presentation or Upload your own. (tags: photonics physics)

PDF of submitted paper:

http://sites.google.com/site/shelling/Home/archive/opt2008%5Brevisedrelease%5D.pdf?attredirects=0

PDF version slide:

http://sites.google.com/site/shelling/Home/archive/opt-presentation.pdf?attredirects=0

 

perl work with growl

Excerpt from
http://oreilly.com/catalog/9780596526740/toc.html
and
http://search.cpan.org/~cnandor/Mac-Growl-0.67/lib/Mac/Growl.pm

A quick method to post notification to Growl.

#!/usr/bin/env perl

use warnings;
use strict;

use Mac::Growl qw(:all);

Mac::Growl::RegisterNotifications(  
    # register your application in Growl before posting.
    # just one time enough.
    'growlalert',   # app name
    ['alert'],           # all notification
    ['alert'],           # default notification
);

Mac::Growl::PostNotification(  
    # post notification to Growl
    "growlalert",                    # app name
    "alert",                              # notification type
    "this is a title",                # alert title
    "this is a description",   # alert content
);

 

push in scheme

 01 (define push
 02   (lambda (element stack)
 03     (append stack (cons element '()))))
 04
 05 (push 'd '(a b c))  ; => (a b c d)

Though putting element before stack is a little weird XD.