perlスクリプトについて

Question

当方、perl初心者です。よろしくお願いします。
現在perlの勉強中で、perlで書かれたcgiスクリプトを読んでいるのですが、
下記のスクリプトの動作？が理解できないので、ご助言頂きたいです。

■ COMMON.pm

## COMMON.pm

use CGI

sub useCGI{
	my($self) = @_;
	
	return($self->{'query'},$self->{'form'})
}

■ contents.cgi

# content.cgi

use COMMON.pm

$common = new COMMON;
($query,$form) = $common->useCGI;

&init();

sub init{
	print "パラメーターが不正です。" unless($query->{'uid'}[0] =~ /\w_\w/);
}

■ 動作について
Webからcontent.cgiを下記のようにuidという引数を持たせて呼び出しています。

http://foo.bar.com/content.cgi?uid=tarou_yamada

個人的には、引数であるuidを$queryに配列として持たせて、
その値が、_(アンダーバー)を間に挟んだ文字列でなければ、
エラーメッセージを表示刷るものだと理解しています。

☆ 質問したいこと
・ 質問1
まず。contents.cgiで

($query,$form) = $common->useCGI;

とした時に、何が起こっているのかが知りたいです。
$queryには引数？
$formには何が入っているのかわからない状態です。

・質問2
print "パラメーターが不正です。" unless($query->{'uid'}[0] =~ /\w_\w/);

この一行の処理が知りたいです。
上述したように、uidの値で判定しているのだと思っているのですが、
この認識で良いのでしょうか？

お手すきの方いらっしゃいましたら、
よろしくお願いします。

■ 2015/11/11追記
すみません、一度解決済みにしたのですが、
プログラムの間違いに気づいたので、追記します。

useCGIが違うものを見ていました。
正しくは、以下のとおりです。

■ COMMON.pm

# COMMON.pm

use CGI;

sub useCGI{
        my $query;
        if($ENV{'REQUEST_METHOD'} eq 'POST' and $ENV{'CONTENT_TYPE'}!~ /^multipart\/form-data/){
                my $form_data;
                read(STDIN,$form_data,$ENV{'CONTENT_LENGTH'});
                $query=new CGI($form_data);
        }else{
                $query=new CGI;
        }
        return($query,$form);
}

追加質問1
上記のCOMMON.pmを使った場合、
$queryにはどのような値が格納されるのでしょうか？
(http://foo.var.com/contents.php?uid=tarou_yamagaの場合)

また、
$query->{'uid'}[0]
には、どのような値が入るのでしょうか？
というか、受け取った引数を、ハッシュとして持っているということ？

すみません、わからないことだらけで申し訳ないのですが、
よろしくお願いします。

Answer 1

質問1への回答：

Perlは、関数の戻り値を複数返すことができます。

sub useCGIのおわりにreturn($self->{'query'},$self->{'form'})とあるので、$self->{'query'}と$self->{'form'}を両方呼び出し側に渡していることになります。

結果として、($query,$form) = は、$queryには$self->{'query'}が、$formには$self->{'form'}が入ります。

質問２への回答：

unlessというものが少し分かりにくいですが、これはifの反対で、この書き方の場合は「右側の条件を 満たさなければ 、左の処理を行う」というものです。

以下のように書いたのと同じですが、カッコ無しで1行で書けるのが特徴です。

unless ( $query->{'uid'}[0] =~ /\w_\w/ ) {
  print "パラメーターが不正です。";
}

$query->{'uid'}[0] =~ /\w_\w/の部分は、正規表現の式です。
正規表現とは、文字列があるパターンにマッチしているかどうかを判定する機能です。

この場合、\wは任意の英数字を意味するので、tarou_yamadaという文字列に対しては、u_yの部分がパターンと合致するため、条件を満たすことになります。

2つを合わせると、「uidが、パターン/\w_\w/にマッチしていなければ、printを実行する」という意味になります。

Comments

[Reiku]

いつもわかりやすい説明ありがとうございます！ よくわかりました。
ちなみに、今回の例(http://foo.var.com/contents.cgi?uid=tarou_yamada)の場合、$queryと$formには、具体的にどのような値が入っているのでしょうか？

[argius]

Common.pmは、ここに書かれているので全部でしょうか？
書いてあるコードだけだと、$queryと$formどちらも空になりそうです。

[Reiku]

COMMON.omについては、他にも記述はありますが、今回の件に直接的に関わってくるのはこの部分だけなはずです。
そうなんですね！
$query->{'uid'}[0]にはtarou_yamadaという値が入っているかと思ったのですが、これは私の間違いなのでしょうか。。？
かなり初歩的なことを聞いてしまっているかもしれませんが、

[argius]

CGI.pmをそのまま使う場合は、$cgi->param('uid');のようにするので、
このCOMMON.pmでは、＋アルファの処理をして$queryに移し替えたりしているのかなと思いました。

なので書いてあるコードだけだと実際にどうなるかは推測になりますが、おそらく、$query->{'uid'}に"tarou_yamada"が入るのだと思います。$formはPOSTパラメーターかな？

[Reiku]

すみません、完全に自分の勘違いでした。
たしかにこれでは両方共空になりますね！
お手数おかけ致しました。いつもありがとうございます！

[Reiku]

すみません、一度ベストアンサーさせていただいたのですが、
useCGIの間違いに気づいたので、一度外させて頂きました。。
質問を更新してますので、もしよろしければ、お願いできますでしょうか。。

[argius]

new COMMONしているので、COMMONにはsub new もあると思います。そこでは何をしているか知りたいです。

また、useCGIの方ですが、$formはreturn($query,$form)にしか出てきませんが、$form_dataの間違いではないですか？

そもそも、これは動作するコードなのでしょうか？

[Reiku]

半分くらい自己解決しました！
いろいろありがとうございました！

[argius]

どうなったのか心配していましたが、
解決できたということで、安心しました。