Manoj Thakkar, Noida <mailto:[EMAIL PROTECTED]> wrote:
: "Can't cd to (C:/) System Volume Information: Permission denied"
:
: here is my code
Add:
use strict;
: use warnings;
: use File::find;
:
: sub wanted
: (
: if (/albd_server/)
You have a syntax error here. An 'if' statement requires a code block.
if ( /albd_server/ ) {
# do something;
}
: print "$File:Find:name;
You have a syntax error here. There is no need for the double quote.
print $File:Find:name;
: )
:
: find(\&wanted, "c:\\"
The file separator in perl is '/', not '\\', functions parenthesis
must match, and you should use single quotes by default.
find( \&wanted, 'c:/' );
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
