Folks,
I have this butt ugly little perl code here, would like some ideas on really
streamlining it and cleaning it up.
opendir DIR1, "../logs/set1" or die "Can't open ../logs/set1: $!";
opendir DIR2, "../logs/set2" or die "Can't open ../logs/set2: $!";
opendir DIR3, "../logs/set3" or die "Can't open ../logs/set3: $!";
opendir DIR4, "../logs/set4" or die "Can't open ../logs/set4: $!";
opendir DIR5, "../logs/set5" or die "Can't open ../logs/set5: $!";
opendir DIR6, "../logs/set6" or die "Can't open ../logs/set6: $!";
@Files1 = readdir DIR1;
@Files2 = readdir DIR2;
@Files3 = readdir DIR3;
@Files4 = readdir DIR4;
@Files5 = readdir DIR5;
@Files6 = readdir DIR6;
closedir DIR1;
closedir DIR2;
closedir DIR3;
closedir DIR4;
closedir DIR5;
closedir DIR6;
foreach (@Files1) {
push(@logFiles1,"../logs/set1" . $_);
}
foreach (@Files2) {
push(@logFiles2,"../logs/set2" . $_);
}
foreach (@Files3) {
push(@logFiles3,"../logs/set3" . $_);
}
foreach (@Files4) {
push(@logFiles4,"../logs/set4" . $_);
}
foreach (@Files5) {
push(@logFiles5,"../logs/set5" . $_);
}
foreach (@Files6) {
push(@logFiles6,"../logs/set6" . $_);
}
-Ron
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]