perlを勉強しようと思う。いつも言語を学ぶときは、10冊くらい本を読んで基礎をマスターして作り始めるということをやってたけど、時間もないのでソースとネットで始めてみようと思う。
#!/usr/bin/perl perlのパス
%hairetu=(“0” => “aaaa”,”1″ => “bbbb”); 配列
open(IN,”ファイル名”) ファイルを読み込む(CFGがファイルハンドル)
while(
$aaa = $_;
chomp($aaa);
}
INがある間中身を$aaaにいれてchomp関数で行末の改行を削除する
close(IN); INのファイルやソケット、パイプをクローズする。
@aaa=split(//,$aaa);
@配列@aaaにsplit関数で1文字づつに分割(「//」の間に何も入っていないから)
$aaa_num=$#aaa; 配列@aaaの最後の添え字
unshift(@aaa, 0);配列@aaaの最初に0を追加する。
sub 関数名
{
my($val) = @_;
return aaa;
}
function 関数名
{
my($val) = @_;
return ($aaa,$bbb,$ccc,$ddd,$eee);
}
・perlの関数はsubかfunctionで宣言する。
・「@_[i]」でパラメーターを指定する。
・returnで複数個の変数を返すことができる。
・関数内と同じ変数名で指定して、指定した変数のみ取得できる。
my($aaa) 変数$aaaの局所化(ローカル化)
POSTの受け取り方法
read(STDIN, $buff, $ENV{‘CONTENT_LENGTH’});
GETの受け取り方法
$buff = $ENV{‘QUERY_STRING’};
local(@pairs) = split(/&/,$buff);
foreach $value (@pairs){
local($name,$value) = split(/=/,$pair);
}
・全体の取り出し
・&で分割して配列に格納
@pairsから内容を1つづつ$valueに入れていく。