perlのソースを追ってみる

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に入れていく。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です