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

  Main Index MAIN
Search Posts SEARCH
Who's Online WHO'S
Log in LOG

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


Jul 20, 2007, 1:03 PM

Views: 1689
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

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