Here is another attempt - This works ok using arrays, but it is not as clean as I would like. I derived this script from the Q&A section of this site with a few modifications.

This prints the output to the text file with comma delimiters. Is it possible to print to the text file using ROWS, so that each MP3 file listing is on a separate line on the output? Better readability. Importing to excel is an option, but I would like to view in the text file..... 

use strict;
use File::Find;


open (MP3, ">c:/perltest/mp3test.txt");

my @directories = (".", "c:/");
my @foundfiles;

# Here, we collect all .mp3 files below each directory in @directories
# and put them into @foundfiles

find( sub { push @foundfiles, $File::Find::name if /\.mp3$/ }, @direct
+ories );

# and output them all
print join("\n", @foundfiles), "\n";

$, = ',';
$/ = "\n";

print MP3 ("\n", @foundfiles), "\n";
close (MP3);

[download]

In reply to Re: Re: How do I write NT perl script to search mult. dirs and output to a file? by rallen11
in thread How do I write NT perl script to search mult. dirs and output to a file? by rallen11

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.