在FC6安裝perl的Data::Pageset

yum install perl-Data-Page
yum install cpan2rpm
然後以一般user來製作perl module的rpm
參考：
http://linux.vbird.org/somepaper/20050503-rpm.php
以一般使用者登入，然後建立 RPM build directories。以下是需要建立的目錄：
mkdir rpmbuild
mkdir rpmbuild/BUILD
mkdir pmbuild/RPMS
mkdir rpmbuild/RPMS/athlon
mkdir rpmbuild/RPMS/i386
mkdir rpmbuild/RPMS/i486
mkdir rpmbuild/RPMS/i586
mkdir rpmbuild/RPMS/i686
mkdir rpmbuild/RPMS/noarch
mkdir rpmbuild/SOURCES
mkdir rpmbuild/SPECS
mkdir rpmbuild/SRPMS

再建一個檔名為 .rpmmacros，內容為：
%_topdir /home/xxxx/rpmbuild

再cpan2rpm Data-Pageset-xxxx.tar.gz
就有了這perl module的rpm。

perl在mysql上中文解決的方式

$sth = $dbh->do( "SET character_set_client ='big5'");
$sth = $dbh->do( "SET character_set_connection='big5'");
$sth = $dbh->do( "SET character_set_results='big5'");

http://a-wei.net/archives/category/mysql/

如何從主機名稱找到該domain

從perlmonks.org找到：
http://perlmonks.org/?node_id=44456
Extracting domain names from FQDNs

sub parse_fqdn {
my $fqdn = shift;
my @tlds = (
[qw(com net org)], # common
[qw(gov edu co\.uk co\.jp gov\.tw edu\.tw com\.tw)], # not-so-common
[qw(la li it po)] # downright odd (long list)
);

foreach my $level (@tlds) {
#warn "pass ". ++$pass;
for(@{$level}) {
return $1 if $fqdn =~ /\.(\w+?\.$_)$/;
}
}

warn "unable to find domain from $fqdn\n";
return $fqdn;
}
my $domain = parse_fqdn("$ARGV[0]");
print "$ARGV[0] => $domain\n";