Bob-Mike-Jerry,
Thanks guys
Jon
At 01:36 PM 8/2/01 -0500, Jerry Preston wrote:
>Jon,
>
>Read all the files in the directory then go through them based on the
>file ext
>and do what you want.
>
> opendir( PROGRAM, "./" );
> foreach $program ( readdir( PROGRAM )) {
> if( $program =~ ".txt" ) {
>### do stuff, given a filename
> }elsif( $program =~ ".this" ) {
>### do stuff, given a filename
> }
> }
>
>Jerry
>
>
>Jon wrote:
> >
> > I don't know if I sent my first email correctly. Sorry for the repeat if I
> > did, I'm new :)
> >
> > Hello,
> > The code below takes all files in my current directory that have filenames
> > ending with ".txt". Using this stuff I can loop through those files and do
> > what I need to do.
> >
> > My problem is, I want to do this for a bunch of different patterns (ex.
> > ".txt", ".this", ".that"). How can I make what is inside the angle brackets
> > a variable? I've tried to use eval to build my while statement and I can't
> > make it work. Help Please?
> >
> > while(<*.txt>)
> > {
> > ### do stuff, given a filename
> > }
> >
> > Jon
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
