unable to remove the ./ when using File::Find::name

[Agnello George]

Hi

I have script where i need to  go in to a directory and put all files
in to a array

if ( chdir ("$dirtemp") ) {
 find (sub { push @all , $File::Find::name}, ".");

 my %selectfiles = qw( /classes/mail.class.php
classes/dealer.class.php
classes/memcache.class.php
classes/phpmailer
classes/phpmailer/.htaccess
classes/phpmailer/class.phpmailer.php
classes/phpmailer/class.smtp.php
classes/phpmailer/ChangeLog.txt
classes/phpmailer/language
 );

foreach (@all){
    if ( defined $selectfiles{$_} ){
      push (@filesfinal , $_);
      }
    }

this obviously will not work cause of the ./ in the File::Find
function , how can i work around this .

Thanks


-- 
Regards
Agnello D'souza

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/