Help for this page

Select Code to Download


  1. or download this
    my $inputdir     = "/cygsrive/d/acec/CDRe/data/input/$swname";
my $arbordir     = "/cygsrive/d/acec/CDRe/data/output/ARBOR/$swname";
...
my $archivedir     = "/cygsrive/d/acec/CDRe/data/archive/$swname";
my $duplicatedir= "/cygsrive/d/acec/CDRe/data/duplicate/$swname";
my $baddir     = "/cygsrive/d/acec/CDRe/data/bad/$swname"
  2. or download this
    #!/usr/bin/perl

require "./def_variable.pl";
print "INPUT : $inputdir\n";