Help for this page

Select Code to Download


  1. or download this
      chomp(my @lines = <IN>);
  push @list, @lines;
  2. or download this
    @ARGV = grep { -s } 
    map { defined $ENV{$_} ? "$ENV{$_}/common/wins.ini" : () } 
    qw(TEST_DIR WINS_DIR); 
chomp(my @list = <>);