(c)AKAKE

個人メモ perl編

category :[雑談] edit
読み
open(IN, $fname);

書き込み(更新)
open(OUT, "> $fname");

書き込み(追記)
open(OUT, ">> $fname");

配列処理
foreach $value (@ar) {}

連想配列処理
while (($name, $value) = each(%har)) {}

特殊変数
$_ 省略変数
$1 $2 $3.. パターンマッチ
$_[0] $_[1].. サブルーチンの引数

マッチング
if( $val =~ /[a-z]/ ){} #一致条件
if( $val !~ /[a-z]/ ){} #不一致条件

その都度増やしていきます

posted by AKAKE at 2006/10/25 11:38

Notice: Undefined index: HTTP_REFERER in /home/cosmosa/www/blog/topic.php on line 123