Poor title excuse: I'm completely flabbergasted by this ...
Such a simple thing ... ??
#!/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);
What's up here??
C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFile +s>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 Ange +les (Gang Vocal).mp3
C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFile +s>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' Si +tuation (S.O.S).mp3 C:\Tmp\Mötley Crüe\Saints of Los Angeles\05 - Saints of Los Angeles (G +ang Vocal).mp3 C:\Documents and Settings\fh\My Documents\Scripts\Perl\Audio\CleanFile +s>
-Enjoy
fh : )_~
In reply to Perl / FileFind or ... by Festus Hagen
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |