Perl - 小惡魔 - AppleBOY

用 cpanm 安裝 Perl 相依性模組

Posted on April 5, 2011 | 1 minutes | 86 words | appleboy

最近在寫 Perl 爬蟲程式，需要用到短網址 Bitly 的 API，所以找了 WWW::Shorten::Bitly，本篇紀錄安裝使用 cpanm 這 Perl 的小工具，此工具不需要任何設定，只要下載到 bin 目錄就可以正成使用了。由於 Ubuntu 沒有包好的 dpkg 可以用，所以才想到用 cpanm。

安裝 cpanm

mkdir ~/bin
wget --no-check-certificate http://bit.ly/cpanm -O ~/bin/cpanm
chmod +x ~/bin/cpanm

或者可以直接安裝到

/usr/local/bin/ 底下，這樣不用在重新把 PATH 改寫

sudo cp ~/bin/cpanm /usr/local/bin/

使用 cpanm

# 安裝 WWW::Shorten::Bitly
cpanm WWW::Shorten::Bitly
# 安裝 distribution path
cpanm MIYAGAWA/Plack-0.99_05.tar.gz
# 從 URL 安裝
cpanm http://example.org/LDS/CGI.pm-3.20.tar.gz
# 安裝本機檔案
cpanm ~/dists/MyCompany-Enterprise-1.00.tar.gz

另外介紹幾個 option --sudo 直接用 sudo 方式安裝，也就是 root 啦 --verbose 檢查安裝過程 --notest 不需要測試 --force 強制安裝 --reinstall 重新安裝，假如已經有安裝過的軟體，一樣會 reinstall --installdeps 只安裝相依性軟體非常簡單吧，這是懶人做法，如果在

FreeBSD 直接安裝 ports 就好。

Perl

2011 OSDC Day 1 筆記

Posted on March 31, 2011 | 2 minutes | 268 words | appleboy

Update: 補上 OSDC 紀錄影片 2011.06.26 今年很高興可以北上參加 OSDC 2011 (Open Source Developers Conference)，由於之前都在南部唸書及工作，沒有機會北上參加聚會，現在人在新竹，終於有機會可以參加了，雖然早上六點就要起床趕電車了，不過到現場聽課感覺就是不同，也可以認識很多新朋友，底下來紀錄上課筆記微軟與 jQuery 社群的親密接觸講者: Eric Shangkuan (Microsoft) Slide: 微軟與 jQuery 社群的親密接觸這是 OSDC 第一場演講，早上九點就開始了，雖然人不多，但是蠻多人還是為了講者而來，首先介紹什麼是 jQuery，以及 jQuery 一些基本用法，像是 CSS selector，如何在 Windows Visual Studio 上面開發 jQuery 及撰寫 plugin 整合進去 ASP.Net，最後介紹三個不錯用的 jQuery Plugin: Templeate, Datalink, Globalzation。 Templeate: 這搭配 Facebook api 可以直接做個人頁面，請參考這裡 Globalzation: 前端多國語系實做 Datalink: 可以快速處理 form，利用 object 跟 jQuery 搭配如果要研究上述三個 jQuery Plugin 可以參考底下: jQuery Datalink: https://github.com/jquery/jquery-datalink jQuery Templeate: https://github.com/jquery/jquery-tmpl jQuery Globalzation: https://github. [Read More]

AJAX CSS Embedded System jQuery MySQL OSDC Perl Python

[網站] 好站連結 (七) Android, javascript, Css, PHP, Perl, FreeBSD, Linux

Posted on July 30, 2010 | 2 minutes | 228 words | appleboy

Windows C# C# 比較字串 MSDN 比較字串 Request.Form Collection Request Query String / Form Parametrs ASP.NET QueryString Usage Using include files with ASP.NET html [將所有的內容包到一個中][7] apache Fixing mod_rewrite and .htaccess on GoDaddy Hosting javascript jQuery Week Calendar Javascript: reference the parent window from a popup How to get and set form element values with jQuery How to check and uncheck a checkbox with jQuery Loop through parameters passed to a Javascript function perl-completion. [Read More]

Android C/C++ C# CSS Linux MSSQL MySQL Perl php 好站連結

[Perl&PHP] time() and Class::Date 日期轉換運算

Posted on November 3, 2009 | 2 minutes | 247 words | appleboy

為了看個 MLB 美國職棒，寫了一個網站：美國職棒影片收集站，裡面的內容影片連結，以及連結說明，都是利用 Perl 搭配 MySQL 資料庫，以及 CodeIgniter PHP Framework 寫出來的，美國 MLB 開打時間，會比台灣晚一天的時差，所以在 PHP 跟 Perl 都要針對時間作修改以及轉換運算，那底下會寫 PHP 跟 Perl 如何控制時間，還有資料庫如何設計，會比較適當。

PHP 日期轉換 MySQL 在資料庫時間格式方面，最主要常見的兩種儲存方式，一種就是 MySQL 預設 datetime，顯示的格式就會像是

2009-11-03 20:10:43，另一種就是存成 UNIX time 格式，可以設定為 int(11)，這兩種其實都可以使用，在 phpBB2 是採用後者的方式，因為 open source 要支援多種資料庫，但是又要統一程式碼，所以乾脆用 UNIX 的時間標記，這樣比較好轉換時區，如果使用 UNIX 格式，可以利用 time() 函式來取的。

[Read More]

FreeBSD Perl php

[FreeBSD] 取得 FreeBSD CVSUP 的更新狀態

Posted on August 31, 2009 | 3 minutes | 618 words | appleboy

在 Sayya Joehorn 個人版看到有人實做出偵測台灣 CVSUP Server 更新狀態，以及更新的時間，也有程式碼的釋出，參考這篇：Script: 取得 FreeBSD CVSUP 的更新狀態，這篇寫的蠻清楚的，只需要 perl 跟 php 就可以完成，不過在使用過程有些事項必須要注意，在 FreeBSD 6.2 R 之後，已經內建了 csup 指令來更新 ports 或者是核心，所以要在另外安裝上 cvsup ports 套件，在 Perl 方面，也先裝 net/p5-Net-Rendezvous 才可以正確使用。

# 安裝必備軟體
cd /usr/ports/net/p5-Net-Rendezvous/ && make install clean
cd /usr/ports/net/cvsup-without-gui && make install clean

[Read More]

FreeBSD Perl php

[Perl] 解決 Wide character in print with UTF-8 mode

Posted on July 1, 2009 | 1 minutes | 74 words | appleboy

最近在寫 Perl 的程式，發現在正規比對的時候，print 出中文資料會出現 “Wide character in print at” 的 warning 訊息，在 google 找到一篇解決方法：Perl with UTF-8 mode，這篇提出的解決方法有很多種，comment 留言也有提供解法，可以去看一下，還蠻不錯的，那底下是我參考的解法：只要在表頭加上： use utf8; binmode(STDIN, ':encoding(utf8)'); binmode(STDOUT, ':encoding(utf8)'); binmode(STDERR, ':encoding(utf8)'); 完整的檔案如下： #! /usr/bin/perl -w use Carp; use File::Basename; use LWP::Simple; use WWW::Mechanize; use LWP::UserAgent; use WWW::Shorten '0rz'; use Getopt::Std; use DBI; use utf8; binmode(STDIN, ':encoding(utf8)'); binmode(STDOUT, ':encoding(utf8)'); binmode(STDERR, ':encoding(utf8)'); if($_ =~ m/\s*(.+)<\/a><\/div>\s*/) { $pic_desc = $1; print "desc: " . $1 . " \n" [Read More]

Perl

[MySQL] 利用 perl 單行印出 my.cnf

Posted on June 17, 2009 | 1 minutes | 90 words | appleboy

在 MySQL Performance Blog 裡面發現這篇：How to pretty-print my.cnf with a one-liner，利用一行 perl 指令把 my.cnf 的註解拿掉： perl -ne 'm/^([^#][^\s=]+)\s*(=.*|)/ && printf("%-35s%s\n", $1, $2)' /etc/my.cnf 輸出為： [client] port = 3306 socket = /tmp/mysql.sock [mysqld] port = 3306 socket = /tmp/mysql.sock skip-locking key_buffer = 256M max_allowed_packet = 1M table_cache = 256 sort_buffer_size = 1M read_buffer_size = 1M read_rnd_buffer_size = 4M myisam_sort_buffer_size = 64M thread_cache_size = 8 query_cache_size = 16M thread_concurrency = 8 log-slow-queries = /var/log/mysql/mysql-slow. [Read More]

MySQL Perl

[FreeBSD] 利用 perl and shell script 大量建制帳號及 Quota

Posted on March 28, 2008 | 2 minutes | 298 words | appleboy

最近幫繫上處理 FreeBSD 機器，要碰到大量建制帳號跟 quota，所以上網找了一下教學，網路上就很多教學了，只不過要懂一些 perl 跟 shell script 的基本觀念，在弄起來會比較方便，時間也會縮短許多。首先開帳號的話，就是利用 pw 這個指令了，這個裡指令非常強大，可以新增使用者，或者是修改使用者的特性，如登入的 shell，comment….等等先產生一個 passwd.txt 裡面內容格式就是 “帳號,密碼”，這樣的格式

biomat,"xxxx"
biomed,"xxxx"
surface,"xxxx"
tissue,"xxxx"

然後在寫一個 shell 檔去把它讀進來，shell 檔如下： [Read More]

bash FreeBSD Perl quota Shell Script