Пакетная конвертация.doc файлов.txt (обычный текст ASCII) и/или.HTML рекурсивно в папках и подпапках, Windows и Mac?

@slhck ваше решение почти работает, но вывод на дисплей / STDOUT со всеми файлами, соединенными вместе. Мне нужна индивидуальность .txt файлов, как выход. Причина в том, что мы не учитываем имя файла в выводе.

чтобы обойти необходимость обхода иерархии папок, если я использую Windows search для *.doc, а затем скопируйте результаты в папку, чтобы поместить их все в одну папку, сглаженную, затем я могу загрузиться в Ubuntu и запустить следующее.

(У меня файл / папка рекурсии кусок кода где-то, который я буду выкопать и добавить позже, если время.) Но пока достаточно просто сгладить файловую иерархию, как указано выше.

кстати, catdoc работает лучше, чем antiword, потому что antiword жалуется, что некоторые файлы не являются документами word, как правило .doc файлы с форматированием и блоки текста, организованные в виде кадров в рамках doc. конверотора catdoc, преобразующего файлы, кажется, чтобы преобразовать все мои документы.

#!/usr/bin/perl -w

 use File::Basename;

 my $okFiles = "";
 my $couldntGet = "";

 @files = <*>;
 foreach $file (@files) 
 {
   if ( $file =~ m/\.doc/ )
   { 
     my ( $filenameOnly, $dir, $ext ) = fileparse($file, qr/\.[^.]*/);
     if ( ( defined $filenameOnly ) && ( defined $ext ) )
     {
       $okFiles .= "file: ".$file." filename only:".$filenameOnly." extension:".$ext."\n";

       system( "catdoc \"".$file."\" > \"".$filenameOnly.".txt\"" );
     }
     else
     {
       $couldntGet .= "*file: ".$file." - couldn't get filename only and extension\n";
     }
   }

   print $okFiles;

   print $couldntGet;
 }