Hi List,
I wrote a little Mp3 file filter in Perl (pl) and then
tried to convert it to PerlScript (WSH) by changing
printf to $WScript->echo() and writing my own Die Sub.
It seems that in the sub passed to File::Find there is a problem...
find( \&CheckFile, $dir) ;
sub CheckFile {
if( -f $_ && /mp3$/i) {
push @files, $File::Find::name ;
$WScript->echo( "$File::Find::name \n");
}
}
$_ is null in PerlScript?
How can I use $_ in WSH?
TIA,
Mark Pryor
ICQ 64329574
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
