1. 首先準備好你要 compiler 的 M-file，測試的 M-file 如下(由檔案讀取 x, y 數據曲線圖)：

function rmse(file)

data = load(file);
x = data(:,1);
y = data(:,2);

plot(x,y,'LineWidth',1);

xlabel('Iteration');
ylabel('RMS error');

2. 開啟 MATLAB 並在 command windows 輸入：deploytool
新建一個 project，名稱為 rmse。

選擇 .NET component

將 M-file 加入，然後按 Build the project，編譯完成會產生 rmse.dll

3. 將 .dll 加入 Visual Studio 參考(Reference)
在方案總管右鍵選「加入參考」>「瀏覽」，將剛剛編譯完成的 .dll 以及 MATLAB 安裝目錄底下的 toolbox\dotnetbuilder\bin\win32\v2.0\MWArray.dll 加入。

4. 加入 Namespace
using MathWorks.MATLAB.NET.Arrays;
using rmse;

5. 使用方式
Rmse demo = new Rmse();
MWArray fileName = @"rmse.txt";
demo.rmse(fileName);

※ demo 範例原始碼下載

※ 如果想在沒安裝 MATLAB 的電腦上執行，需安裝 MATLAB Compiler Runtime (MCR)，檔案在安裝目錄的 toolbox\compiler\deploy\win32\MCRInstaller.exe，大小約 150MB

在網路上可以找到很多這種作法的 Linux 版本，如「Debian Linux: ADSL PPPoE 自動重撥 Script」，但相對 Windows 的討論卻很少，所以就自己寫了一個重撥的 WSH(Windows Script Host)，搭配工作排程就可以達到目的。
※ 本方法適用於 XP 以後之 Windows。

Step 1：將下列程式存為 repppoe.vbs，修改連線資訊並放置在安全的地方

DIALNAME = "寬頻連線"              '連線名稱
DIALUSER = "12345678@ip.hinet.net" '連線帳號
DIALPASS = "xxxxxxxx"              '連線密碼

Set WshShell = CreateObject("WScript.Shell")
RetCode = WshShell.Run("ping www.hinet.net", 0, true)
If RetCode <> 0 Then
	WshShell.Run "rasdial " & DIALNAME & " /DISCONNECT", 0, true
	WScript.Sleep(3000)
	WshShell.Run "rasdial " & DIALNAME & " " & DIALUSER & " " & DIALPASS, 0
End If

Step 2：設定 Windows 工作排程。(控制台->排定的工作->新增排定的工作)

‧選擇步驟 1 的 repppoe.vbs 檔案

‧輸入具有 Administrator 權限的使用者及密碼

‧表示每 30 分鐘檢查一次連線狀況，可依需求修改，然後收工。

※ 備註：
之所以選擇 ping www.hinet.net 而不用 IP 是因為經實驗結果，若網卡有設定 Default gateway，則可能會因為 gateway response 影響連線判斷。

其實只要修正一行即可：
wp-includes/gettext.php LINE:117

if ($magic == ($MAGIC1 & 0xFFFFFFFF) || $magic == ($MAGIC3 & 0xFFFFFFFF)) { // to make sure it works for 64-bit platforms

更改成：

if ($magic == $MAGIC1 || $magic == $MAGIC3) { // <- 64 BIT FIX: CHANGE THIS LINE!

ok!

Google Map API 網路上的資源已經相當豐富了，在此就不多敘述，比較特別的是畫折線(polyline)的部份，如果用原始的 GPolyline 方法來畫，大概幾十個點就需要運算很久，甚至導致瀏覽器 crash，所以 API 後來又加入了編碼折線(encodedPolyline)的功能，先將所有的點用特定演算法轉換成一串文字符號，再丟給 GPolyline.fromEncoded 顯示，幾乎是馬上就顯示出來了，差很多喔，而這個編碼演算法也已經有人寫好囉！請看：Encoding polylines for Google Maps

前往 ZD1211 專案網站可以知道目前有三種版本的驅動，其中建議使用 zd1211rw 這個版本，因為它持續在更新且已納入 Linux 2.6.18 以後的 kernel 裡。zd1211rw 支援這三種晶片：

• ZyDAS ZD1211
• ZyDAS ZD1211B
• Atheros AR5007UG

不過既然都已經納入 kernel 了為什麼還要編譯驅動？因為還是有很多產品的 USB ID 不能被 zd1211rw 所辨識(我的 PCI GW-US54GXS 就是)，當然就沒辦法驅動囉！這篇要做的就是從 kernel 裡的 zd1211rw source code 加入對應的 USB ID，主機環境是 ubuntu 7.10，其他版本應該也差不多。

首先要安裝編譯相關套件 & 下載 linux source
$ sudo apt-get install build-essential kernel-package linux-source

切換至 src 目錄並解開 linux source
$ cd /usr/src
$ sudo tar -xjvf linux-source-2.6.22.tar.bz2

拷貝 kernel 設定檔(.config) 至 linux source
$ sudo cp linux-headers-2.6.22-14-generic/.config linux-source-2.6.22

編輯 zd_usb.c 加入新 USB ID，可利用 lsusb 指令可以找出網卡的 ID，如：2019:5303
$ cd linux-source-2.6.22
$ sudo vim drivers/net/wireless/zd1211rw/zd_usb.c
在檔案開頭不遠處可以看到一堆 USB ID 號碼，就是要加進這裡面，GW-US54GXS 是 ZD1211B 晶片，所以在 ZD1211B 下方增加一行：
/* ZD1211B */
{ USB_DEVICE(0x2019, 0x5303), .driver_info = DEVICE_ZD1211B },
確認後就存檔離開

開始編譯驅動
$ sudo mkdir .tmp_versions
$ sudo make drivers/net/wireless/zd1211rw/zd1211rw.ko

沒錯誤就會產生 zd1211rw.ko，將它覆蓋原本系統中的
$ sudo cp drivers/net/wireless/zd1211rw/zd1211rw.ko /lib/modules/`uname -r`/kernel/drivers/net/wireless/zd1211rw
$ sudo depmod -a

重開機應該就可以正確驅動了:D

參考資料：
Adding new device IDs to zd1211rw

Bluga.net WebThumb
我覺得很不錯的縮圖服務網站，每個月可免費建立 250 組縮圖，且提供 API 可以應用在程式上，產生縮圖速度算滿快的，大約 2~5 分鐘即可顯示。

artViper Website Tools
這網站有提供一些 Website Tools，其中就有網頁縮圖的功能。

Website Thumbnail Generator
這個是不需要依賴其他網站的，使用了 IECapt 這個小工具，所以主機只能是 Windows，配合 PHP 來自動產生縮圖。

延伸閱讀：
Website Thumbnail Creators (Website Snapshot Generators)

搭配 JQuery 使用：

$.get('content.txt', function(data){
	alert(data);
});

這裡透過 Ajax 發出 GET Request 到 content.txt，就會直接將檔案的內容傳回輸出，很簡單吧^^

但是由於 Ajax 考慮到安全性，所以只能作用在同網域底下。如果要讀的檔案是遠端主機上的呢？這時可以利用其他程式當作中間人，例如透過 PHP 去取得不同網域下的檔案。

JS 內容:

$.get('readfile.php', function(data){
	alert(data);
});

PHP 內容:

<?php
echo file_get_contents("http://aaa.com.tw/content.txt");
?>

而這兩套系統也都有釋出各自的 API，讓我們可以做許多的應用，這次幫同學的專題作一個簡單的 Demo，功能是假設有個程式會透過 GPS 接收器取得座標，然後將座標寫入檔案，Web Server 網頁則會定時讀取及更新地圖，標示出目標現在的位置，算是一個基本應用囉！

首先不管是 UrMap API 還是 Google Map API，使用之前都要先申請授權碼(Key)，並且將它加入您的網頁裡面，所以只能在您登錄的網址顯示地圖。

接下來顯示地圖部份請參考 Demo 網頁原始碼，其他功能在 API 說明文件都寫得很詳盡。

‧SQLite
這套可以說是目前最火紅的，一堆語言都有支援它，PHP 當然也不例外，可使用 SQL 語法操作，PEAR::DB 也有支援。
只是需要載入 extension，所以要是主機沒有安裝或開啟，就只能以 shell 執行 SQLite 的執行檔來操作了，不過也失去資料庫的特性了。

‧PHP Text DB API
這套是 PHP class，可以使用 SQL 語法、PEAR::DB 的用法，也不用另外載入 extension，並且有包含小型的 GUI 管理程式，非常值得一試。

‧PHP Text DataBase API
這套是對岸的人士寫的，只要一個 class 檔就可以使用了，雖然它不支援 SQL 語法，但是簡單易用，大概花個 10 分鐘看完 manual 及範例就可以上手了，非常適合開發簡單的小程式。

如果有找到更好用的，歡迎來推薦一下哦！

#!/usr/bin/perl
use strict;
use Socket;

my $host = shift;
print "Enter scan port start:";
my $port = <>;
print "Enter scan port end:";
my $port_end = <>;

my $protocol = getprotobyname('tcp');
$host = inet_aton($host) or die "$host failed";

for (my $i = $port; $i <= $port_end; $i++) {
    socket(SOCK , AF_INET , SOCK_STREAM , $protocol) or die "socket() failed: $!";
    my $dest_addr = sockaddr_in($i , $host);
    if (connect(SOCK , $dest_addr)) {
        print "Port: $i is open\n";
    }
    close SOCK;
}

真是服了這位高人，讓 Perl 可以用文言文寫
目前這個 module 已經放上 CPAN，名稱為「Lingua::Sinica::PerlYuYan」
有興趣的可以試看看。
不過我想對現代人來說，英文應該是比文言文好懂吧!

讀取成績檔內容並計算平均，最後寫入新檔。
成績資料檔：testdata.txt (檔名改為 testdata)

實作：

#!/usr/bin/perl
use strict; 

open FILE, "testdata" or die "Can not open file: $!"; 

my @lines;
foreach (<FILE>) {
    chomp;
    split(/__/);
    my @grades = split(/,/, $_[1]);
    my $total = 0;
    my $average = 0;
    foreach my $grade (@grades) {
        $total += $grade;
    }
    $average = $total/@grades;
    my $line = $_[0].'__'.$_[1].'=>'.$average."\n";
    push @lines, $line;
} 

open OUT_FILE, ">testdata2" or die "Can not open file: $!";
print OUT_FILE @lines; 

close FILE;
close OUT_FILE;

筆記：
chop 和 chomp 的差異。
這兩個都可以刪除尾端的換行字元，但使用 chomp 是比較安全的，因為 chop 會把尾端是 0 的一併刪除，造成錯誤結果。

1. 試著把串列 (24, 33, 65, 42, 58, 24, 87) 放入陣列中，並讓使用者輸入索引值 (0…6)，然後印出陣列中相對應的值。
2. 把剛剛的陣列進行排序，並且印出排序後的結果。
3. 取出陣列中大於40的所有值。
4. 將所有陣列中的值除以 10 後印出。

實作：

#!/usr/bin/perl
use strict; 

my @array = (24, 33, 65, 42, 58, 24, 87); 

while (1) {
    print "1) Select No.1 \n";
    print "2) Select No.2 \n";
    print "3) Select No.3 \n";
    print "4) Select No.4 \n";
    print 'Please enter a number: '; chomp($_ = <>); 

    if ($_ == 1) {
        while (1) {
            print "Please enter 0-6 ('q' to exit): ";
            chomp($_ = <>);
            last if ($_ eq 'q');
            print $array[$_]."\n";
        }
    } elsif ($_ == 2) {
        my @array_sort = sort(@array);
        print "$_\t" for @array_sort;
        print "\n";
    } elsif ($_ == 3) {
        my @sift = grep {$_ > 40} @array;
        print "$_\t" for @sift;
        print "\n"
    } elsif ($_ == 4) {
        my @answer = map {$_ / 10} @array;
        print "$_\t" for @answer;
        print "\n";
    }
}