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の対応表

PHPPERL
breaklast
continuenext

Last-modified: 2016-07-10 (日) 02:00:29 (651d)