Re: Creating a txt file with paths to all files


Problems? Is your data what you think it is?
	PerlMonks

Re: Creating a txt file with paths to all files

by zentara (Archbishop)

on Jun 19, 2002 at 16:31 UTC ( [id://175768]=note: print w/replies, xml )

Need Help??

in reply to Creating a txt file with paths to all files

Here's a simple script using File::Find: Just run it from the top directory, use / for the whole filesystem, and run it as root. To output it to a textfile: ./filelister > my.txt

#!/usr/bin/perl
#filelister
# Recursively searchs down thru directories for files  
use warnings;
use strict;
use File::Find;

find (\&found,".");
$" = "\n";
print "@ARGV\n";
exit;

sub found{
push @ARGV, $File::Find::name if -f;
}
[download]

Comment on Re: Creating a txt file with paths to all files Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://175768]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others examining the Monastery: (6)

As of 2024-04-18 07:07 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found