Perl(ぱ~る) †
&tag(Perl,PHP,逆引き);
perl/Tk(Windowsのみ確認) †
日本語を使う †
use encoding "cp932" を指定する。
use encoding "cp932";
ファイル・ディレクトリ関係 †
現在実行しているファイル名を取得 †
use File::Basename; my $path = $0; print basename($path);
表示例:c:\hoge\test.pl
test.pl
現在実行しているディレクトリ名を取得 †
use File::Basename; my $path = $0; print dirname($path);
表示例:c:\hoge\test.pl
c:\hoge
配列 †
配列をシャッフルする †
use List::Util qw(shuffle); my @array = (1 .. 100); my @shuffle_array = shuffle(@array);
その他 †
PHPとPerlの対応表 †
PHP | PERL |
---|---|
break | last |
continue | next |