Ok.... I was able to put together this script to list the directory names..
#!/usr/bin/perl -w
use File::Find;
use strict;
# defenitions
my (@good_dirs) = ( "/prod/retrans" );
my $ltotal = 0;
#Find Directories and Subroutine
File::Find::find({wanted => \&wanted}, @good_dirs);
print...
Here is the Perl script I used to get a list of the contents in a directory.... I'm not a Perl programmer... I'm just starting out with Perl....
#! /usr/bin/perl -wT
opendir(DIRHANDLE, "/prod/retrans/epix") or die "couldn't open /prod/retrans/epix : $!";
while ( defined ($filename =...
I'm trying to create a Perl program to read a directory and the files in them. The directory structure looks like this....
cd /devt/prod/retrans/epix change to directory
contents of this directory has directories in it dyearmonthday...
drwxrwxr-x 2 settlec settle 40960 Feb 17 21:25...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.