CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner: Re: [KevinR] File::Find error message at runtime: Edit Log



adaykin
Novice

Jul 20, 2007, 1:03 PM


Views: 791
Re: [KevinR] File::Find error message at runtime

ok I changed my code a bit but I am still getting the error. Here is my subroutine that tries to process everything below the current directory


Code
sub process_file  
{
# Search for all the TC's
my @files = grep {/^\d{3}/} readdir BIN;
close BIN;
# Go in and edit out the GUID field
foreach my $file(@files)
{
open(FILE, $guidFile) or die "$!";
readline FILE until eof FILE or $guidFile =~ /^GUID$/;
if($guidFile =~ /^GUID$/)
{
print "GUID Found";
}
}

}
find(\&process_file, @DIRLIST);

------------------------------------------------------------

New Horizon Designs <-- My site, just updated the GUI to a PHP Nuke interface


(This post was edited by adaykin on Jul 20, 2007, 1:09 PM)


Edit Log:
Post edited by adaykin (Novice) on Jul 20, 2007, 1:09 PM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives