Hai,

can any one tell how to pick up a particular pattern of files into that
array...

Eg:- files with extension .pl or .cfg


Thanks in advance
Eswar


                                                                                       
                                                    
                    [EMAIL PROTECTED]                                                  
                                          
                    Sent by:                                     To:     "Wong, Danny 
H." <[EMAIL PROTECTED]>,                             
                    [EMAIL PROTECTED]        <[EMAIL PROTECTED]>                       
        
                    eState.com                                   cc:                   
                                                    
                                                                 Subject:     Re: 
Array question                                           
                                                                                       
                                                    
                    09/26/2003 06:12 AM                                                
                                                    
                                                                                       
                                                    
                                                                                       
                                                    




> Chdir ('c:\temp');
@Array = <*>;

(note - "chdir" - perl is case senstive, you know ;-)

push(@Array, "zero place holder");
push(@Array, <*>);

@Array = <*>;
unshift(@Array, "zero place holder");

my $tempdir = "c:/temp";
# this counts all files in cluding . and .. see perldoc -f readdir
opendir(DIR, $tempdir ) or die "can't opendir $tempdir: $!";
   my   @Array =  ("zero place holder", readdir(DIR) );
 closedir DIR;

@Array = ("zero place holder", <*>) ;

a

Andy Bach, Sys. Mangler
Internet: [EMAIL PROTECTED]
VOICE: (608) 261-5738  FAX 264-5030

"We are either doing something, or we are not. 'Talking about' is a
subset of 'not'."            -- Mike Sphar in alt.sysadmin.recovery
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs




_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to