個人メモ perl編
読み
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]/ ){} #不一致条件
その都度増やしていきます
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