Adding $edgar/ seemed to fix it. If I seem pretty clueless, it's because
I've been programming for all of two days.
Thanks again,
Campbell
When I do that I get yet another error message:
print() on closed filehandle main::FILE at /home/Campbell/perl/Get.Info line
9
Which is what made me try ">$file" to begin with. *shrug*
Thanks,
Campbell
-Original Message-
From: Andrew Nelson
To: 'Sara Campbe
I have this bit of code:
#!/usr/bin/perl -w
$edgar = "/home/Campbell/perl/edgar"
opendir (EDGAR, $edgar) or die "Can't find $edgar!\n";
while ($file = readdir EDGAR) {
open (FILE, ">$file");
print FILE;
}
When I run the program I get this error message:
Use of uninitialized
