umountできない場合
fuser -mv /mnt/cdrom
色変えるエスケープシーケンス
#!/usr/bin/perl
# Ex.) tail -f /var/log/messages | ./thisscript
&init();
while (<stdin>) {
chomp();
if ( /hogehoge/ ) {
print "\033[${BLUE}m". $_ . "\033[0m\n";
}
elsif ( / fugafuga / ) {
print "\033[${RED}m". $_ . "\033[0m\n";
}
else {
print $_ . "\n";
}
}
sub init() {
$BLACK = 30;
$RED = 31;
$GREEN = 32;
$BROWN = 33;
$BLUE = 34;
$PURPLE = 35;
$CYAN = 36;
$LGRAY = 37;
# 戻す = 0
# 下線 = 4
# 点滅 = 5
# 逆転 = 6
# 非表示 = 7
# 背景青 = 44
#
#Black 0;30 Dark Gray 1;30
#Blue 0;34 Light Blue 1;34
#Green 0;32 Light Green 1;32
#Cyan 0;36 Light Cyan 1;36
#Red 0;31 Light Red 1;31
#Purple 0;35 Light Purple 1;35
#Brown 0;33 Yellow 1;33
#Light Gray 0;37 White 1;37
# \033[44;1;31m って組み合わせて使うこともできるけど、 \033[44m\033[1;31m って２回に分けて設定した方がいいみたいっす。
}
Fedora Core 2でコンパイル
さくらの専用サーバ
を借りて色々インストールしていると、コンパイルが通らないので修正ポイントをメモφ(.. )perlでソート
@textに文字列, @numに数値が入ってて、@numのソート順に@textを入れ替えたいとき#!/usr/bin/perl
@text = ('aaa', 'bbb', 'ccc', 'ddd', 'eee');
@num = (3, 5, 2, 1, 4);
@text = @text[sort { $num[$a] <=> $num[$b] } 0..$#text];
foreach (@text) {
print $_ . "\n";
}
apacheログのリファラ解析
リファラのデコードスクリプト#!/usr/bin/perl
use Jcode;
# $outcode = 'jis';
# $outcode = 'euc';
$outcode = 'sjis';
while (<stdin>){
s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/egi;
if ( /utf/i ) {
Jcode::convert(\$_, $outcode, 'utf8');
}
else {
Jcode::convert(\$_, $outcode);
}
print;
}
もっとちゃんと文字コード調べたい場合（半角カナとかにちゃんと対応できる版）
でも、うまくいかないっぽ＿|￣|○
#!/usr/bin/perl
use Jcode;
# $outcode = 'jis';
# $outcode = 'euc';
$outcode = 'sjis';
$euc1 = '[\x00-\x7F]'; # 1 byte ASCII
$euc2 = '(?:[\x8E\xA1-\xFE][\xA1-\xFE])'; # 2bytes EUC
$euc3 = '(?:\x8F[\xA1-\xFE][\xA1-\xFE])'; # 3bytes EUC
$EUC = "(?:${euc1}|${euc2}|${euc3})";
$sjis1 = '[\x00-\x7F\xA1-\xDF]'; # 1 byte SJIS
$sjis2 = '(?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])'; # 2 byte SJIS
$SJIS = "(?:${sjis1}|${sjis2})";
while (<stdin>){
s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/egi;
$incode = '';
if ( /utf/i ) {
$incode = 'utf8';
}
elsif ( /^${EUC}*$/ ) {
$incode = 'euc';
}
elsif ( /^${SJIS}*$/ ) {
$incode = 'sjis';
}
elsif ( /\x8E[\xA6-\xDF]/ ) { # 上の条件に引っかからなかった場合の半角カナチェック
$incode = 'euc';
}
elsif ( /[\xA6-\xDF]/ ) {
$incode = 'sjis';
}
Jcode::convert(\$_, $outcode, $incode); # 半角カナは半角のまま
# Jcode::convert(\$_, $outcode, $incode, 'z'); # 半角カナを全角に変換
print;
}
bind 8 の設定 - セキュリティ編
/etc/named.conf にacl my-network {
localhost;
192.168.0.0/24;
192.168.1.1;
}
のような感じで、自身で管理してるホスト・ネットワークのアドレスを並べて、options {
・・・
allow-recursion { my-network; };
}
と設定する。/etc/named.conf に
acl secondary {
localhost;
192.168.0.0/24;
192.168.1.1;
10.1.1.1;
}
のような感じで、セカンダリＤＮＳサーバのアドレスを並べて、
acl secondary {
zone "hogehoge-foo.com" {
・・・
allow-transfer { secondary; };
}
として、secondary に登録されているアドレスには、余計な情報を返さないようにする。（管理している全てにゾーンに対して設定する必要）
ソフトウェア
bind - ネームサーバdjbdns - ネームサーバ
Apache - HTTPサーバ
Apache-SSL - HTTPSサーバ
mod_ssl for Apache - HTTPSサーバ
PHP - 英語
PHP - 日本語
Sendmail - メールサーバ
Postfix - メールサーバ
qmail - メールサーバ
qmail関連ツール (smtpd) - uscpi-tcp , cdb 等
qmail関連 (pop3) - checkpwd
qmail関連 (pop3) - vpopmail ( virtual domain管理 )
Courier-IMAP - IMAP server (Maildir形式用)
majordomo - メーリングリスト
fml - メーリングリスト
ezmlm - メーリングリスト
OpenSSL
OpenSSH
NET-SNMP - Previously known as "ucd-snmp"
NTP - Time Synchronization Server
Squid - Squid Web Proxy Cache
JVim - SJISも扱える vi エディタ (vim -K sss [file] → SJIS, -K eee → EUC)
cURL - 使い方によっては lynx より便利
MRTG (日本語) - MULTI ROUTER TRAFFIC GRAPHER
Jcode.pm - perl のモジュール
CPAN - Comprehensive Perl Archive Network