Hi Mark,
> 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?
You are absolutely correct about $_; however, for now, it does work to use
'shift' or 'shift(@_)' or '$_[0]'
> How can I use $_ in WSH?
I'm confused, too. :-)
Tobias
---
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]
