Help for this page

Select Code to Download


  1. or download this
    sub write_list_to_logfile {
      my ( $list, $logfile ) = @_;
    ...
      }
      close $file;
    }
    
  2. or download this
    if ( keys(%known_dirs) ) {
      my @known_dirs = keys(%known_dirs);
      my $known_dirs_filename = "$dir/known_dirs.list";
      write_list_to_logfile(\@known_dirs, $known_dirs_filename);
    }