On 11-04-20 06:55 AM, Agnello George wrote:
Thanks a lot , but was just wondering if i could ignore it in the File::Find function
Yup. my @all = 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 ); for ( @all ){ if( -f ){ push @filesfinal, $_; } } Alternatively, using grep: @filesfinal = grep { -f } @all; -- Just my 0.00000002 million dollars worth, Shawn Confusion is the first step of understanding. Programming is as much about organization and communication as it is about coding. The secret to great software: Fail early & often. Eliminate software piracy: use only FLOSS. -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/