Help for this page

Select Code to Download


  1. or download this
    
opendir(DIR_A,"$input_directory") or die $!;
...
INNER_A:
 while(my $job =readdir(DIR_A)){
  2. or download this
        INNER_A:
      while(my $job =readdir(DIR_A)){      #    
    chomp;
    next unless -f $job;    # ignore specials