Hi, John thanks you comment, the coding is work. But i'm detect have some small problem in line 7 print "$File::Find::name\n" if $_ eq 'File1'; I test as below sample 2 is follow you coding. From here i detect nothing return from script.
But after i amend the coding become print "$File::Find::name\n" if $_ = 'File1'; this work and return the result i expected. But why perl show "Found = in conditional, should be == at ./callback line 7."? Any idea? I try put "==" to replace "=", the result return like sample 2. Sample 1 [EMAIL PROTECTED] root]# ./callback Found = in conditional, should be == at ./callback line 7. what directory want search?perl Yes, perl is a directory. perl perl/perl1 perl/123 perl/bash perl/bash/perl1 perl/bash/123 Sample 2 [EMAIL PROTECTED] root]# ./callback what directory want search?perl Yes, perl is a directory. [EMAIL PROTECTED] root]# -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
