http://www.chrisblanc.org/blog/?p=77

It’s a simple linefeed filter. By the way, don’t OGGs sound better than other file formats at the same bitrate? Amazing compression.

find . -name "*.ogg"

I don’t know why you were getting files that were everything but *.ogg files. Looking over the code, everything is perfect. Maybe I’m missing something from the copy/paste.

I spent more time than I should have trying to figure out why this was. I never did figure it out. I’m assuming you were able to make the code work the way you wanted it to. From what I can tell though, it looks ok. A global counter variable in this circumstance isn’t really a bad thing.

I know you’re doing this to learn recursion, at least a better understand of it in perl, but I can’t just let this pass without pointing out File::Find.

File::Find will take care of most of the heavy lifting for you.

Some notes:

Let the shell do the hard work. Why take the trouble to open a file when
you can redirect it? Call it like

inventory.pl > oggfiles.txt

This bit of code prints out every single directory name, regardless of
whether or not there is an ogg file in it or its children. You’d need to
store the data and then filter it once all the data was gathered.

The ‘preprocess’ portion of the code is called after each readdir with the
file list passed in. This allows us to set up the indent variable and
filter out the ‘hidden’ directories.

The ‘postprocess’ portion of the code is called after each directory has
been processed (i.e., the list returned by preprocess has been iterated
through). This allows us to trim the indent variable.

The ‘wanted’ portion of the code is called for every single file found in
the tree.

#!/usr/bin/perl -w
 
use strict;
 
use File::Find;
 
my $indent = '';
 
find({
  'wanted' => sub { print "$indent$_\n" if /\.ogg$/i; },
 
  'preprocess' => sub {
    print "$indent$_\n";
    $indent = "$indent  ";
    sort grep { ! /^\./ } @_;
  },
 
  'postprocess' => sub { $indent = substr( $indent, 0, -2 ); },
 
}, '.');