サンプルソース（perl）
ファイルを1行づつ読み込んで処理
- open(FILE,"<$filename");
eval{ flock(FILE, 2); };
while ($line = <FILE>) {
#ここで処理を行う
++$i;
}
close(FILE); ファイルに書き込み（元データがあれば破棄して上書き）
- open(FILE,">$filename");
eval{ flock(FILE, 2); };
seek (FILE, 0, 0);
truncate(FILE, 0);
print FILE @new_data;
close(FILE);
#パーミッションを666に変更
chmod (0666, $filename); 乱数生成
- $rand_number = int(rand 1000);
日付の取得
- ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time
+ 9*60*60);
@wday_array = ('日','月','火','水','木','金','土');
$now_date = sprintf("%04d年%02d月%02d日(%s)%02d時%02d分%02d秒",$year +1900,$mon +1,$mday,$wday_array[$wday],$hour,$min,$sec); 今日から$day日前の日付を取得
- $day = 14;
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time - 24*60*60*$day);
$before_date = sprintf("%04d年%02d月%02d日", $year + 1900, $mon +1, $mday); 文字列マッチ
- 文字列$textにaaaが含まれているかどうかチェック
if ($text =~ m/aaa/) {
$check = "OK";
} パターンマッチ
- 文字列$textに数字が含まれているかどうかチェック
if ($text =~ m/[0-9]/) {
$check = "OK";
}
よく使いそうなパターン
/[0-9]/ 数字にマッチ /¥d/ /[^0-9]/ 数字以外にマッチ //¥D/ /[a-zA-Z]/ 英字にマッチ /abc/ abc にマッチ /a.c/ a?c にマッチ /^abc/ abc で始まるものにマッチ /abc$/ abc で終わるものにマッチ /[a-zA-Z]{8,}/ 英字 8 文字以上にマッチ
PR
PROXの専用レンタルサーバー『E-server』
★★★Showzieのイチ押し★★★
ここはShowzieも使っています。扱いやすくて低価格なのにサポートが充実してます。RedHatEnterpriseLinuxが標準で使えます。
【もはや】24時間サーバリブート対応【デフォルト】
【申告は】バーチャルドメイン無制限【不要！】
【余裕の】ハードウェアのお悩み解消【パワー】
…それでも、月々10,290円(税込)しかいただきません。
CPIのレンタルサーバー
ShowzieはCPIも使っています。ここは共用サーバーを利用しています。
色んなツールが最初から付いていますしSSLも使えて満足しています。
●2.5GBの大容量ディスクスペース、メールアカウント数200で月額3,990円！
●ショッピングカート、ブログ、グループウェア、2種類のDB、メーリングリストなど標準機能がいっぱい！
●セキュリティー標準機能も充実！（一部オプション扱い）
ウイルスチェック、スパムメールチェック、CPI SSL サーバー証明書、共用SSL
