Lauct's BLOG » Programming

[Java] 各種型別(Type)的預設初值(Initial Value)

Lauct — Fri, 13 May 2011 03:59:29 +0000

Type	Initial Value
boolean	false
char	‘\u0000′
byte, short, int, long	0
float, double	+0.0
object reference	null

[Git] 切換至某tag的branch

Lauct — Thu, 27 Jan 2011 10:43:52 +0000

git clone http://git.example.com/git/example.git my_abc

git clone will give you the whole repository.

git tag -l

list tags

git checkout -b <new_branch_name> <tag_name>

create a new branch from

git checkout <branch_name>

Switch to a new branch ‘branch_name’

[URL][Doc] Advanced Linux Programming 中文翻譯計畫

Lauct — Wed, 05 Jan 2011 15:31:31 +0000

Advanced Linux Programming 中文翻譯 Linux 系统高级编程 Related posts:找會 Linux 的人 [Linux][URL] Arch Linux 準備 Linux 認證的一些注意事項與學習順序參考 Related posts:

[Perl] 反轉數字陣列印出並加入分隔

Lauct — Sun, 02 Jan 2011 18:13:40 +0000

#!/bin/perl -w
 
@isbn = ( 
"9789861058092",
"9789861053134",
"9789861050355",
"9789861044965",
"9789861039855",
"9789861036182",
"9789861031958",
"9789861027364",
"9789861022499");
@s = reverse @isbn;
print join "\n",@s,"\n";

result:
9789861022499 9789861027364 9789861031958 9789861036182 9789861039855 9789861044965 9789861050355 9789861053134 9789861058092

[Unix][Dev] Mac OS X 下使用 gtags 和 htags trace code

Lauct — Tue, 28 Dec 2010 04:25:58 +0000

利用MacPorts套件系統來安裝 http://www.macports.org/

sudo port install global

以 trace lftp 的 source code 為例

先抓下tarball

wget -c http://ftp.yars.free.net/pub/source/lftp/lftp-4.1.1.tar.gz

解壓縮

tar zxvf lftp-4.1.1.tar.gz

切換進 source code 的 folder

cd lftp-4.1.1

執行 htags 來產生 source code 的網頁

htags -g -Fnsa

screenshot:

要有搜尋功能請到 HTML 目錄中底下的 cgi-bin 子目錄新增 .htaccess：

Options +ExecCGI
AddHandler cgi-script .cgi

ps. 但我在 Mac OS X 10.6 上找不出怎麼正確讓 CGI-BIN 啟用的方法，所以暫時無法搜尋滿可惜的，有沒有先進知道該怎麼作呢？

ref1: http://chunchaichang.blogspot.com/2010/05/gtags-trace-code.html
ref2: http://williewu.blogspot.com/2007/02/gnu-global-souce-code-tag-system.html
ref3: http://welkinchen.blogspot.com/2009/10/gnu-global.html

[Django] 安裝與開新專案步驟

Lauct — Wed, 11 Nov 2009 02:10:36 +0000

安裝

tar zxvf Django-*.tar.gz

cd Django-*.

sudo python setup.py install

開一個新專案

~/djcode$ django-admin.py startproject mysite

~/djcode$ ls -a mysite/
./           ../          __init__.py  manage.py    settings.py  urls.py

__init__.py: 偽裝目錄成package

manage.py: 一個cli的工具，讓妳可以用多種方式和Django專案互動

settings.py: Django專案的設定/組態

urls.py: 此Django專案的URL宣告

執行開發用Server

~/djcode/mysite$ python manage.py runserver
Validating models...
0 errors found
 
Django version 1.1.1, using settings 'mysite.settings'
Development server is running at http://127.0.0.1:8000/
Quit the server with CONTROL-C.
[10/Nov/2009 19:55:59] "GET / HTTP/1.1" 200 2053

It worked!

改Port或IP

python manage.py runserver 8080

python manage.py runserver 0.0.0.0:8080

[Python] 在Python中使用中文

Lauct — Thu, 05 Nov 2009 03:18:29 +0000

tchinese.py

#!/bin/python
print "Python是個酷玩意"

python tchinese.py
SyntaxError: Non-ASCII character '\xe6' in file tchinese.py on line 2, but no encoding declared; see http://www.python.org/peps/pep-0263.html for details

錯誤訊息中的連結到這篇文章：PEP 0263 — Defining Python Source Code Encodings
文中提到：

To define a source code encoding, a magic comment must be placed into the source files either as first or second line in the file, such as:
# coding=
or (using formats recognized by popular editors)
#!/usr/bin/python
# -*- coding:  -*-
or
#!/usr/bin/python
# vim: set fileencoding= :

Example:

#!/bin/python
# -*- coding: utf-8 -*-
print "Python是個酷玩意"

Result:

Python是個酷玩意

[Python] 學習參考資料: 如何像電腦科學家一樣思考、電腦做什麼事

Lauct — Mon, 02 Nov 2009 11:52:04 +0000

如何像電腦科學家一樣思考How to Think Like a Computer Scientist (中譯版) 原文

這是一本不錯的 Python 工具書，適合 Python 初學者閱讀的入門書

中譯版

電腦做什麼事

電腦做什麼事是一系列Python程式語言的教學文章，我們嘗試提供給讀者以簡單、直覺的方式學習程式語言，進而了解體會電腦背後運作的道理。

–

來源：學習寫程式 – Sy3es_wiki

[轉載] PHP:檔案處理

Lauct — Mon, 02 Nov 2009 02:01:54 +0000

PHP 檔案處理

讀檔:

1.fopen

範例:


$handle = fopen("open_file.txt", "r");
if( $handle === FALSE)
{    
    echo "Open File Fail" . "
";
} 
else
{    
    echo "Open File Success" . "
";
    while (!feof($handle))
    {
        $current_line = fgets($handle);
        echo $current_line . "
";
    }
}
 
?>

2.file_get_contents

範例:


 
$handle = file_get_contents('open_file.txt');
echo $handle;
 
?>

=========================================================

寫檔:

1.fwrite


$handle = fopen('open_file.txt', 'w');
fwrite($handle, "test1");
fclose($fp);
?>

ps:fwrite 是沒有加換行字元,如果要換行必須加上 \n 處理

2.file_put_contents


    $handle = 'open_file.txt';
    $current_line = "line1\n";
    file_put_contents($handle, $current_line);
?>

source: PHP:檔案處理 @ 拉不拉多的夢幻世界 :: 痞客邦 PIXNET ::

[Perl/Tk] 學習筆記 1: Hello World

Lauct — Wed, 28 Oct 2009 07:19:00 +0000

Hello World

#!/usr/bin/env perl
 
# helloworld.pl
#
# Created by Chun-Ting Liu on 2009-10-28
 
require 5.008008;
use warnings;
use strict;
use Tk;
my $mw = MainWindow->new;	#建立一個視窗
$mw->title("Hello World");	#改變視窗標題文字，若沒有指定則預設為檔名（首字母會自動大寫）。title method不是必要的但會比較好看。
$mw->Button(-text => "Done!",
	-command => sub { exit })->pack();
	#建立一個寫著Done!的Button widget，點擊後則執行 exit。
MainLoop;	#開始GUI事件處理

[Perl][Video][Tutorial] 探索Perl的世界匯總

Lauct — Sat, 17 Oct 2009 19:40:18 +0000

[Perl][轉錄] 實例說明 Perl 特殊變數

Lauct — Sat, 17 Oct 2009 19:11:26 +0000

先來一個例子吧

#!/usr/bin/perl

use warnings;

@array = qw(a b c d);

foreach (@array) {

print $_,” “;

}

例子的作用就是定義一個數組並把其中的元素打印出來，這裡需要注意的是foreach循環部分，foreach循環的標準格式應該是：

foreach $element (@array){

……

}

其中數組@array將其中的元素依次賦值給$element，但是在上面那個程序中，我並沒有這樣做，在程序中，我就使用到了perl中內置的一個特殊變數 $_ 。

在程序第五行中：foreach (@array) 實際上就是等於 foreach $_ (@array)，在這裡，$_是預設是輸入/輸出，因此，如果在程序中有類似的沒有明確聲明的變數位置的時候，就有可能能使用$_代替。

再看另外一個內置變數

perl -e “sleep(5);print qq(The PID of process perl.exe is : $$)”;

這是一句命令行上使用的perl程序，作用就是打印出一段話：print qq(The PID of process perl.exe is : $$) ，在這裡，存在著特殊變數$$ ；

$$是當前perl解析器的進程ID（即，PID），大家可以將在段程序寫在命令行上，該程序會在perl解析器運行5秒後打印出perl解析器的進程ID，大家可以在程序運行期間通過查看進程列表來確定打印結果是否正確（^_^不會錯的）。

接下來是一個用來返回錯誤信息（或是錯誤號）的特殊變數。

為了省事，不寫程序了，還是來個命令行的吧

perl -e “opendir FH,’c: one’ or die qq(can’t open:$!);”;

這句話就是要打開C盤下的一個none目錄（而實際上我的C盤中並沒有此目錄，之所以這樣寫的目的就是為了引起一個程序中的錯誤信息），如果沒有打開的話，會執行後面的die qq(can’t open:$!)

在這裡，$!就指明瞭錯誤信息的內容，命令行會返回錯誤信息：

can’t open:No such file or directory at -e line 1.

$!在open或是opendir中用的比較多（無論是打開文件還是管道或是其他）。

來個例子，說一個有意思的特殊內置變數

$text = “C:\test.txt”;

{

open FH,$text or die “can’t open:$!”;

my $line = ;

close FH;

print $line;

}

print “#===========================# “;

{

undef $/;

open FH,$text or die “can’t open:$!”;

my $line = ;

close FH;

print $line;

}

=================================

C盤下的test.txt的內容是：

111111111111111111111111111

222222222222222222222222222

333333333333333333333333333

=================================

好，程序的運行結果是：

111111111111111111111111111

#===========================#

111111111111111111111111111

222222222222222222222222222

333333333333333333333333333

程序就不多廢話了，作用就是讀文件，關鍵部分在“$line = ”，尖括號操作符（即，<>）作用是讀取一行文件內容（相信大多數教程或是書上都是這麼寫的），但是，這裡所說的一行，實際上是有一個標準的，那就是當perl在遇到了換行符後，邊認為是一行，而換行符預設情況下是由於$/這個特殊變數定義的，是預設值。

也就是說，perl 在每次使用<>操作符讀文件的時候，會先從$/中獲得一個叫做“分隔符”的東西，並以該分隔符為標記來讀取文件，如果按預設的$/來說，這個分割符就是一個換行符，所以，預設時，<>操作符才會每次讀取一行文本。

在給出的例子中，有這樣一句：undef $/ ，也就是將$/設置為未定義的值，這樣一來呢，$/就不再起作用了，因此，大家可以看到，第二次進行同樣的操作的時候， <>操作符就不再是只讀一行而是將文件內容全部讀出來了。

接下來看一個會受到$/影響的內置變數，還是先說實例：

$text = “C:\test.txt”;

open FH,$text or die “can’t open:$!”;

while () {

print “line $. is:$_”;

}

close FH;

先來看循環中的：print “line $. is:$_”

程序的作用是讀文件，並且，將文件逐行賦值給$_（因為只用了<>操作符而沒有指定內賦值變數，因此，預設就是賦值給了$_）；

但是這裡除了$_，還有一個變數“$.”

我們來看一下結果：

line 1 is:111111111111111111111111111

line 2 is:222222222222222222222222222

line 3 is:333333333333333333333333333

可見，變數$.的作用是一個類似計數器的東西，但是，為甚麼剛開始我說$.會受到$/變數的影響呢？

將上面的例子稍做修改，再看一下：

$text = “C:\test.txt”;

undef $/; # 注意，多加了這一行

open FH,$text or die “can’t open:$!”;

while () {

print “line $. is:$_”;

}

close FH;

第二行多加了一句undef $/; ，上面已經說過它的作用了，來看一下這段程序運行的結果：

line 1 is:111111111111111111111111111

222222222222222222222222222

333333333333333333333333333

本來應該是三行的文本，不但被一次性打印出來，而且還指明瞭“line 1”（看來程序認為這個文本只有一行），為甚麼？

這是因為$.變數並不是一個單純的行計數器，確切地說，可以說$.是一個對$/計數器，我們再來看一段程序大概就會明白了：

$text = “C:\a.txt”;

$/ = “;”; # 注意這裡，這裡我並將$/設置為未定義，而是給其賦值為分號

open FH,$text or die “can’t open:$!”;

while () {

print “line $. is:$_ “;

}

close FH;

再看一下C盤下的a.txt的內容：

ddd;bbb;ccc;fff;eee;

就這麼簡單了。

看一下運行結果：

line 1 is:ddd;

line 2 is:bbb;

line 3 is:ccc;

line 4 is:fff;

line 5 is:eee;

看過這段程序應該就明白了吧。

好，$.已經講得差不多了，接下來再說一個它的特性，仍然是看程序說話：

$text = “C:\test.txt”;

open FH,$text or die “can’t open:$!”;

while () {

print “line $. is:$_ “;

}

print ” “,$.;

close FH;

print ” “,$.;

這個程序要注意的是最後三行中的兩個print ” “,$.;（一個是在關閉文件前，另外一個則是在關閉文件後）。

看一下執行結果：

line 1 is:111111111111111111111111111

line 2 is:222222222222222222222222222

line 3 is:333333333333333333333333333

結果的前三行剛才就已經知道了，這不是我們關心的，我們應該關心的是最後兩行結果（即兩個print ” “,$.;的結果）；

$.變數是具有記憶性的（從原理上來將，它是一個包變數），因此，在關閉文件前打印會發現，它的值是還沒有變化的（這時的值和最後一次讀完文件的值均為3）；

而在關閉文件後，該變數又被重新初始化為0了。

這個特性大家注意一下就可以了，因為其中的原理涉及到了perl的作用域和包的一些知識，不是很容易說清楚，所以就不說了，如果對包和作用域有瞭解的讀者對這部分即使我不講他們也應該能理解的。

再說最後一個吧

說一個用來簡單判斷操作系統類型的，看個例子：

C:>perl -e “print $^O;”;

MSWin32

注意，這裡這個特殊變數$^O 最後一個字符是字母O，且大寫。

如果是在linux下的話，結果就不是MSWin32了，而是Linux ；

這是一個判斷環境的變數，簡單實用。

perl的內置特殊變數還有很多的，例如常用的還有@_、@ARGV、$ARGV、%INC、%ENV等等，有很多，不可能一一列舉了，這裡給出一個比較有總結性的列表，是chinaunix上perl社區的一個網友總結的，還算比較全：

$- 當前頁可打印的行數,屬於Perl格式系統的一部分

$! 根據上下文內容返回錯誤號或者錯誤串

$” 列表分隔符

$# 打印數字時預設的數字輸出格式

$$ Perl解釋器的進程ID

$% 當前輸出通道的當前頁號

$& 與上個格式匹配的字符串

$( 當前進程的組ID

$) 當前進程的有效組ID

$* 設置1表示處理多行格式.現在多以/s和/m修飾符取代之.

$, 當前輸出字段分隔符

$. 上次閱讀的文件的當前輸入行號

$/ 當前輸入記錄分隔符,預設情況是新行

$: 字符設置,此後的字符串將被分開,以填充連續的字段.

$; 在仿真多維數組時使用的分隔符.

$? 返回上一個外部命令的狀態

$@ Perl解釋器從eval語句返回的錯誤消息

$[ 數組中第一個元素的索引號

$ 當前輸出記錄的分隔符

$] Perl解釋器的子版本號

$^ 當前通道最上面的頁面輸出格式名字

$^A 打印前用於保存格式化數據的變數

$^D 調試標誌的值

$^E 在非UNIX環境中的操作系統擴展錯誤信息

$^F 最大的文件捆述符數值

$^H 由編譯器激活的語法檢查狀態

$^I 內置控制編輯器的值

$^L 發送到輸出通道的走紙換頁符

$^M 備用內存池的大小

$^O 操作系統名

$^P 指定當前調試值的內部變數

$^R 正則表達式塊的上次求值結果

$^S 當前解釋器狀態

$^T 從新世紀開始算起,腳步本以秒計算的開始運行的時間

$^W 警告開關的當前值

$^X Perl二進制可執行代碼的名字

$_ 預設的輸入/輸出和格式匹配空間

$| 控制對當前選擇的輸出文件句柄的緩衝

$~ 當前報告格式的名字

$` 在上個格式匹配信息前的字符串

$’ 在上個格式匹配信息後的字符串

$+ 與上個正則表達式搜索格式匹配的最後一個括號

$< 當前執行解釋器的用戶的真實ID

$ 含有與上個匹配正則表達式對應括號結果

$= 當前頁面可打印行的數目

$> 當前進程的有效用戶ID

$0 包含正在執行的腳本的文件名

$ARGV 從預設的文件句柄中讀取時的當前文件名

%ENV 環境變數列表

%INC 通過do或require包含的文件列表

%SIG 信號列表及其處理方式

@_ 傳給子程序的參數列表

@ARGV 傳給腳本的命令行參數列表

@INC 在導入模塊時需要搜索的目錄列表

$-[0]和$+[0] 代表當前匹配的正則表達式在被匹配的字符串中的起始和終止的位置。

–

via 举例说明PERL特殊变量,CGI-Perl技术文章,CGI-Perl系列教程,CGI-Perl

[Perl] 常見特殊變數

Lauct — Sat, 17 Oct 2009 17:33:44 +0000

1. $_ 
$ARG，常常是一個預設變數 
 
2. @_ 
@ARG，子例程參數表 
 
3. {row.content} 
$PROGRAM_NAME，本程序的名字 
 
4. @ARGV 
本程序的命令行參數表 
 
5. $" 
$LIST_SEPARATOR，數組內插到雙引號字符串中時所用的分隔符， 
預設為空格 
 
6. $, 
$OFS，或$OUTPUT_FIELD_SEPARATOR，用於print的輸出字段分隔符， 
即一個print語句中用逗號分隔的部分之間用甚麼分隔，預設為無 
 
7. $ 
$ORS，或$OUTPUT_RECORD_SEPARATOR，用於print的輸出記錄分隔符， 
即一個print語句結束時末尾添加甚麼，預設為無 
 
8. $/ 
$RS，或$INPUT_RECORD_SEPARATOR，輸入記錄分隔符，改變了readline， 
和chomp對於“行”的看法，預設為換行符 
 
9. $. 
$NR，或$INPUT_LINE_NUMBER，最後讀取的“行”號(注意行的概念可能 
被8所改變) 
 
10. $| 
$AUTOFLUSH，或$OUTPUT_AUTOFLUSH，輸出緩衝區開關，預設為0，即關 
 
11. $$ 
$PID，或$PROCESS_ID，本腳本的進程號(PID) 
 
12. $! 
$ERRNO，或$OS_ERROR，上一次系統調用錯誤值 
 
13. $@ 
$EVAL_ERROR，上一次eval操作錯誤值 
 
14. $^I 
$INPLACE_EDIT，現場編輯的備份文件擴展名 
 
15. %ENV 
當前環境變數 
 
16. 與正則表達式相關的幾個量 
|<-($`)->|<-($&)->|<-($')->| 
/ ------- mmmmmmmm ++++++++/ => 正則表達式(注意：空格不代表實際空格) 
|       |匹配部分| 
0  ($-[0])      ($+[0]) 
 
17. $^O 
操作系統名稱。 
或者 
use English; 
print $OSNAME; 
或者 
use Config; 
print $Config{'osname'};

via Perl常见特殊变量

[Perl] BPS-FlickrFilter

Lauct — Sat, 17 Oct 2009 16:30:38 +0000

這支程式主要是用來練習 Perl 的，功能面倒是其次。

功能：
輸入一 Flickr 照片頁面網址，便會提取出文章標題、頁面連結、圖片網址、作者名稱、標籤，並嵌入CSS和HTML碼中。

原本要用 WWW::Mechanize 模組，但抓取頁面回來的編碼好像會爛掉，只好改用 system call cURL 來抓。另外正規表示式的部份邊翻書邊找用的到的功能。

下一階段目標就是改寫成可以自動發佈到 blogger 上。

Screenshot:
（以 http://www.flickr.com/photos/lauct/3701237852/ 為例）

demo

ps. 寫的很爛，其實不太好意思放上來 XD
FlickrFilter下載：Flickr2bps (189)

#!/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 "請輸入Flickr頁面網址，以利抽取資訊：\n";
my $url = ;
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 () {
 
	chomp;
	if(/meta name="title"/) {
		s/;
		s/\" \/>//;
 
		$title = $_;
		print "Title:\n$title\n\n";
	}
 
	if(/link rel="image_src"/) {
		s/	;
		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/	;
		s/\" \/>//;
 
		$canonical = $_;
		print "PhotoPageURL:\n$canonical\n\n";
	}
	#
	if(/meta name="description"/) {
		s/	;
		s/">//;
 
		$comment = $_;
		print "Comment:\n$comment\n\n";
	}
	#tag keywords
	if(/meta name="keywords"/) {
		s/	;
		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 '	.$imgurl.'" class="flickr-photo" style="border: solid 6px #fff;"/>
$url.'">'.$title.', originally uploaded by '.$username.'.
This photo was picked by beautypapers.
'.$comment.'
'."\n\n\n";
print "Tag:\n$keyword\n\n";