Re^4: listing all subdirectories of directory into file

Why open and close $out every time?

#!/usr/bin/env perl
use Modern::Perl;
use File::Find;

# $out is used within w():
open my $out, '>>', 'list' or die $!;

sub w {
    if( -d $_ ){
        print $out "$_\n";
    }
}
File::Find::find(\&w, '.');
[download]

Comment on Re^4: listing all subdirectories of directory into file Download Code

Replies are listed 'Best First'.
Re^5: listing all subdirectories of directory into file by aaron_baugher (Curate) on Jun 08, 2012 at 22:35 UTC
If you look at his spec, he wants more than one "out" file. In each directory, he wants a file named 'list' that contains a list of every subdirectory of that directory. So in a directory structure like the following, you would get 'list' files like so: `$ find . -ls\|cut -b14-24,68- drwxr-xr-x . drwxr-xr-x ./a -rw-r--r-- ./a/list drwxr-xr-x ./a/d drwxr-xr-x ./a/c drwxr-xr-x ./b -rw-r--r-- ./list $ cat list a b $ cat a/list c d` [download] Aaron B. Available for small or large Perl jobs; see my home node.	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: listing all subdirectories of directory into file
by aaron_baugher (Curate) on Jun 08, 2012 at 22:35 UTC

If you look at his spec, he wants more than one "out" file. In each directory, he wants a file named 'list' that contains a list of every subdirectory of that directory. So in a directory structure like the following, you would get 'list' files like so:

$ find . -ls|cut -b14-24,68-
drwxr-xr-x  .
drwxr-xr-x  ./a
-rw-r--r--  ./a/list
drwxr-xr-x  ./a/d
drwxr-xr-x  ./a/c
drwxr-xr-x  ./b
-rw-r--r--  ./list
$ cat list
a
b
$ cat a/list
c
d
[download]

Aaron B.
Available for small or large Perl jobs; see my home node.

[reply]
[d/l]