- 51 名前：デフォルトの名無しさん mailto:sage [2012/01/20(金) 17:57:57.85 ]
- >>50
5.15.4 なら File::Basename は標準で入っているのでわざわざ入れなくていい。
>>41-42 の言わんとしている事はこう。
#!/usr/bin/perl -w
use strict;
use File::Basename; # search.cpan.org/dist/perl/lib/File/Basename.pm
my $path_separator = '/';
my $dir = dirname($0); # perldoc.jp/docs/perl/5.14.1/perlvar.pod
opendir(my $dh, $dir) or die $!;
print map "$dir$path_separator$_\n", grep(/\.txt\z/, readdir $dh);
# もしくはこう。
print map "$_\n", glob "$dir$path_separator*.txt";
# 本当に ls *.txt が欲しいのならこう。
print `ls *.txt`; # perldoc.jp/docs/perl/5.14.1/perlop.pod#Quote-Like32Operators
|
 |
