ファイルの種類を調べる

#======================= コードここから
#カレントディレクトリをオープンし、
#存在するファイルの一覧を取得する。
opendir HDIR, '.';
my @files = readdir HDIR;
closedir HDIR;

foreach( @files ){
 if( -d $_ ){
  print $_ . "はディレクトリです。\n";
 }elsif( -T $_ ){
  print $_ . "はテキストファイルです。\n";
 }else{
  print $_ . "はその他のファイルです。\n";
  # -d, -T 以外のファイルテスト演算子については
  # http://perl.misty.ne.jp/18.html#d
  # 参照
 }
}
exit;
#======================= コードここまで