ぺるる。読めるようになるぞ! 脱KENTが目標なりよ!
あれ、systemとかexecとか使わなくてもこんなことができるんだ。 http://www.stackasterisk.jp/tech/program/perl02_02.jsp
sub hoge {
print "hoge:" . $_[0] . "
";
}
&hoge("huga");
sub get_hoge
{
$val = "hoge"
return $val;
}
は
sub get_hoge
{
$val = "hoge"
$val;
}
でもいいとか。おどろきだね
use Data::Dump qw(dump);
dump($foo);
みたいな。
↑は古いよ!
use Data::Dumper;warn Dumper($foo);
か
use XXX;
XXX $foo;
の方がモダンだよ!
http://easycgi.xrea.jp/tips/perl/hash.htmを参照。 構成する時に
%search = ("google", "yahoo", "goo", "ocn_search");
とし、使う時には
$search{"google"} = "yahoo";
とする。 つまり、上のハッシュは
$search = array(
'google' => 'yahoo',
'goo' => 'ocn_search',
);
と同じようなもの。Perl5からは
%search = (
"google" => "yahoo",
"goo" => "ocn_search",
);
でいけるらしい。
use File::Basename
でdirnameが使えるようになるお。
PHPのfile_exists関数と同じ事をぺるるでどうやるんかなあと思ったらこんなんだった。
sub file_exists {
if ( -e $_[0]) {
return true;
} else {
return false;
}
}
#print &file_exists("moge.txt") . "
"; ↑これ動かしてみると動かない。何故ならPerlには「true」や「false」は無いから。