Daniel Kurtz wrote:
Sorry, obviously the code is supposed to read:
Actually it should read:
use strict;
use warnings;
opendir( DIR1, ".");
opendir DIR1, '.' or die "Could not open .: $!";
@before = readdir(DIR1);
my @before = readdir DIR1;
closedir(DIR1);
# Execute a command that backs up every file in the directory
# with a .bak extension.
Um, ok so you're wondering why there are no .bak files?
Then that would be the code to show :) although I bet
strict/warnings/and checking your open's (or die $!;) will show you what
is wrong :)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
