SPUG: RE: Simple program - gone wrong

[c k]

Susanne,

Have you tried,

File::Find and the find function




--- Can Subaykan <cansubaykan at hotmail.com> wrote:
> 
> try this, to only get .htm and .html files from the
> upper directory:
> 
> 
> $dir = "../";
> $log = "./path/to/your/list_file.txt";
> 
> opendir DIR, $dir or die "ow! $!";
> @files = grep { /^[^.].*\.html?$/ and -f "$dir/$_" }
> readdir DIR;
> closedir DIR;
> 
> $i = 1;  # to start numbering at 1
> 
> open LOG, ">$log" or die "ow! $!";
> 
> for (@files) {
> 
>    print LOG "$i | $_ \n";
>    $i++;
> 
> }
> 
> close LOG;
> 
> 
> 
> 
> __END__
> # John
> 
> 
> PS.  one of you fellows' example opened a directory
> with opendir, and closed 
> it with close (instead of closedir).  not a big
> deal. just being picky ;)
> 
> 
> 
> 
> 
> 
> 
> ----Original Message Follows----
> From: "Sweethomes" <sweetsue at sweethomes.com>
> To: <spug-list at pm.org>
> Subject: RE: SPUG: RE: Simple program - gone wrong
> Date: Mon, 8 Jul 2002 11:44:57 -0700
> 
> Ok, this almost works.  The numbering doesn't seem
> right.  What it's doing
> is listing all files as it should but the first set
> is all marked with "0",
> then it repeats the file listing each with "1" in
> front of it.  This repeats
> to "100" at which point it stops.  I need it to
> number each file like so:
> 
> 1 | index.html
> 2 | black_line.gif
> 3 | counter.php
> 4 | counter.txt
> 5 | formmail.php
> 6 | logo.gif
> 7 | favicon.ico
> 8 | help.html
> 9 | main.html
> 
> etc.  From here I can figure out how to filter out
> the .txt and the .gif
> etal leaving the .html files only.
> 
> Thanks - you guys are great!
> 
> Susanne
> 
> -----Original Message-----
> From: owner-spug-list at pm.org
> [mailto:owner-spug-list at pm.org]On Behalf Of
> Chris Wilkes
> Sent: Monday, July 08, 2002 11:02 AM
> To: spug-list at pm.org
> Subject: Re: SPUG: RE: Simple program - gone wrong
> 
> 
> On Mon, Jul 08, 2002 at 10:47:38AM -0700, Chris
> Wilkes wrote:
>  >   for my $num (0..100) {
>  >     foreach (@files) {
>  >       print RDIR, "$num | $_\n";
>  >     }
>  >   }
> 
> Arg there shouldn't be a comma in there.  Should
> just be:
> 	print RDIR "$num | $_\n";
> 
> Chris
> 
>   - - - - - - - - - - - - - - - - - - - - - - - - -
> - - - - - - - - - - - -
>       POST TO: spug-list at pm.org       PROBLEMS:
> owner-spug-list at pm.org
>        Subscriptions; Email to majordomo at pm.org: 
> ACTION  LIST  EMAIL
>    Replace ACTION by subscribe or unsubscribe, EMAIL
> by your Email-address
>   For daily traffic, use spug-list for LIST ;  for
> weekly, spug-list-digest
>       Seattle Perl Users Group (SPUG) Home Page:
> http://seattleperl.org
> 
> 
>   - - - - - - - - - - - - - - - - - - - - - - - - -
> - - - - - - - - - - - -
>       POST TO: spug-list at pm.org       PROBLEMS:
> owner-spug-list at pm.org
>        Subscriptions; Email to majordomo at pm.org: 
> ACTION  LIST  EMAIL
>    Replace ACTION by subscribe or unsubscribe, EMAIL
> by your Email-address
>   For daily traffic, use spug-list for LIST ;  for
> weekly, spug-list-digest
>       Seattle Perl Users Group (SPUG) Home Page:
> http://seattleperl.org
> 
> 
> 
> 
>
_________________________________________________________________
> MSN Photos is the easiest way to share and print
> your photos: 
> http://photos.msn.com/support/worldwide.aspx
> 
> 
>  - - - - - - - - - - - - - - - - - - - - - - - - - -
> - - - - - - - - - - -
>      POST TO: spug-list at pm.org       PROBLEMS:
> owner-spug-list at pm.org
>       Subscriptions; Email to majordomo at pm.org: 
> ACTION  LIST  EMAIL
>   Replace ACTION by subscribe or unsubscribe, EMAIL
> by your Email-address
>  For daily traffic, use spug-list for LIST ;  for
> weekly, spug-list-digest
>      Seattle Perl Users Group (SPUG) Home Page:
> http://seattleperl.org
> 


__________________________________________________
Do You Yahoo!?
Sign up for SBC Yahoo! Dial - First Month Free
http://sbc.yahoo.com

 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
      Subscriptions; Email to majordomo at pm.org:  ACTION  LIST  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email-address
 For daily traffic, use spug-list for LIST ;  for weekly, spug-list-digest
     Seattle Perl Users Group (SPUG) Home Page: http://seattleperl.org