perlquestion
Festus Hagen
Hiya all,
<p>Poor title excuse: I'm completely flabbergasted
by this ...</p>
<p>Such a simple thing ... ??</p>
<p><code>
#!/usr/bin/perl
use strict;
use warnings;
# **
# * It is what it is, you can do with it as you please. [with respect, leave the credits]
# *
# * Just don't blame me if it teaches your computer to smoke!
# *
# * -Enjoy
# * fh :)_~
# **
use File::Find;
my $Directory = 'C:/Tmp';
my @flist;
sub cbFileFind
{
print $File::Find::name, "\n";
}
find(\&cbFileFind, $Directory);
</code></p>
<p>What's up here??</p>
<p><code>
C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFiles>example.pl
C:/Tmp
C:/Tmp/M÷tley Crⁿe
C:/Tmp/M÷tley Crⁿe/Dr. Feelgood (Bonus Track Version)
C:/Tmp/M÷tley Crⁿe/Dr. Feelgood (Bonus Track Version)/07 - Same Ol' Situation (S.O.S).mp3
C:/Tmp/M÷tley Crⁿe/Saints of Los Angeles
C:/Tmp/M÷tley Crⁿe/Saints of Los Angeles/05 - Saints of Los Angeles (Gang Vocal).mp3
</code><code>
C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFiles>dir /s /b C:\Tmp
C:\Tmp\Mötley Crüe
C:\Tmp\Mötley Crüe\Dr. Feelgood (Bonus Track Version)
C:\Tmp\Mötley Crüe\Saints of Los Angeles
C:\Tmp\Mötley Crüe\Dr. Feelgood (Bonus Track Version)\07 - Same Ol' Situation (S.O.S).mp3
C:\Tmp\Mötley Crüe\Saints of Los Angeles\05 - Saints of Los Angeles (Gang Vocal).mp3
C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFiles>
</code></p>
<p>-Enjoy<br>fh <b><font color="#FF0000">:</font></b> )_~</p>