カレントディレクトリ配下のファイルをすべて表示（再帰処理）

#========================== コードここから
#カレントディレクトリ配下のファイルをすべて表示する。
#（サブディレクトリも表示対象に含める）
foreach( &getFileList('.') ){
 print $_ . "\n";
}

exit;

sub getFileList{
  my $current_dir = $_[0];
  my @file_list = ();
  my @dir_list = ();
 
  opendir HDIR, $current_dir;
  my @files = readdir HDIR;
  closedir HDIR;
 
  foreach( @files ){
    my $file_path = $current_dir . "/" . $_;
    if( -d $file_path ){
      if( $file_path !~ m/\.$/ ){
        push( @dir_list, $file_path );
      }
    }else{
      #拡張子を指定するには、以下のif文を有効にする。
      #if( $file_path =~ m/\.html$/ ){
        push( @file_list, $file_path );
      #}
    }
  }
 
  foreach( @dir_list ){
    push( @file_list, &getFileList( $_ ) );
  }
 
  return @file_list;
}
#========================== コードここまで