Help for this page

Select Code to Download


  1. or download this
    open IN, '<', 'clients.txt' or die "Can't open file 'clients.txt': $!"
+;
@clients = <IN>;
chomp @clients;
  2. or download this
    open IN, '<', 'subdirectories.txt' or die "Can't open file 'subdirecto
+ries.txt': $!";
@subdirs = <IN>;
chomp @subdirs;
  3. or download this
    my $year = 2005;
mkdir $year, 0755;
...
          or die "Can't create directory '$year/$range/$client/$subdir
+': $!";
    }
}