2011年05月25日23:57 カテゴリPerl Perlで自分自身のファイル名を取得するメモ Tweet とりあえず、nyoro.plというファイルにスクリプトを書いていく。 まず$0で取ってみた #!/usr/bin/perl use strict; use warnings; my $scriptName = $0; if( @ARGV != 1) { die "Usage: $scriptName file" } これを引数なしで実行すると Usage: ./nyoro.pl file カレントディレクトリも含まれちゃった。 うーん。ファイル名だけにしたい… File::Basename を使うと簡単に出来るみたい そこでスクリプトをちょっと変えてみる。 先ほどの$0の部分を変更 use File::Basename; my $scriptName = basename($0,