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