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: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
