私は初めてまともににさわった言語はJavaだったので、他の言語のことはほとんど知りません。でもMovableType?とかPerlだし、知ってて損はないかなぁってことでPerlの学習を始めてみました。*1
で、とりあえず、こんな書き方ありなんだーってのをメモしてます。 (人に見せるもんじゃないですね)
#!/usr/bin/perl -w //mainパッケージの宣言 package main; $bar = '$bar is in main package'; { //これによって、この括弧内はhogeパッケージとなる? package hoge; $bar = '$bar is in hoge spackage'; print $bar, "\n"; <-自分のパッケージ内の変数へのアクセス print $hoge::bar,"\n"; これと同じ意味。 print $hoo::bar,"\n"; <- これはエラーになっちゃう } { package hoo; $bar = '$bar is in hoo package'; print $bar, "\n"; print $hoge::bar,"\n"; <-これはエラーにならない } print $bar ,"\n"; <-これはmainパッケージのbarへのアクセス
#!/usr/bin/perl -w package hoge; { $bar = '$bar is in hoge spackage'; print $hoge::bar,"\n"; }
#!/usr/bin/perl -w package hoge; { $bar = '$bar is in hoge spackage'; print $hoge::bar, "\n"; sub new { my $pkg = shift; my $hash = { name => shift, weight => shift }; bless $hash, $pkg; } }
Perlって *.plとか*.pmとかあって、どうもmoduleってのは*.pmってやつなんでしょうか。 どうも*.pmってやつ(=module?)がクラスの様なものに見えます。とあるサイトにあるサンプルの中身を見てみると、たとえば
(HelloModuleWorld.pm) package HelloModuleWorld; sub new { my $pkg = shift; bless {},$pkg; } sub Japanese{ return 'こんにちは、モジュールの世界へ!'; } sub English{ return 'Hello, Module World!'; } 1;
こんなんなってるし。 これをカレントに保存して、
(Hoge.pl) #!/usr/bin/perl package main; use HelloModuleWorld; my $obj = HelloModuleWorld->new; print $obj->Japanese; print "\n"; print $obj->English;
とコーディングしてプロンプトから
perl Hoge.pl
とすると、オブジェクトっぽく呼び出すことが出来ました!
どうも、Perlの世界のパッケージってのは、Javaでいうところのpackageではなく完全修飾のクラス名のことなのかなぁ。。。でもコンストラクタ(new関数)の
my $pkg = shift; bless {},$pkg;
ってなに??なんか、奥が深いですねぇ。
配列は@で表します。
#!/usr/bin/perl -w @array = ('a','b','c'); #配列を宣言 foreach $hoge(@array){ # @arrayがあるだけぐるぐる回る。ループ内変数は$hoge # for(int i=0; i< array.length i++){hoge=array[i];}みたいな print $hoge,"\n"; }
while($hoge= shift @array){ print $hoge,"\n"; }
これもループですが、shiftを使ってます。このshiftってのは配列の先頭への参照を返して配列をずらすってことをやるみたいです。 よって、だんだん@arrayは短くなっていき、最後には要素がなくなってwhileを抜ける、と。
forと等価のように見えますが、配列内の値が変化しているので、whileのあとは配列が抜け殻になっているので注意。最後に要素数で割って平均を求めるとかできないみたいですね。
%hash= ( "one" => 1 , "two" => 2 , "three" => 3 ); print $hash{"one"},"\n";
この記事は
現在のアクセス:5513