On Jul 10, Messervy, Joe M said:
>#!/usr/bin/perl -w
>
>use File::Copy;
>
>opendir MYDIR, "." or die "egad!: $!";
>@allfiles = grep !/^\.\.?$/, readdir MYDIR;
>closedir MYDIR;
>
>foreach $allfiles (@allfiles) {
>copy("config", "config.$allfiles");
>eval "s//mydirectorystucture/log//mydirectorystu
Hello,
I have several files in a directory, and I need to create a config file
for each one of them. I already have a standard config file, but it must be
modified for each of the files in the directory (hope this makes sense).
Here is what I have:
#!/usr/bin/perl -w
use File::Copy;
opendir
