rand.pl

   1 #!/usr/bin/perl -ws
   2
   3 use Data::Dumper;
   4
   5 my(@list) = split(/\n/, `cat rr-list`);
   6
   7 my($count)=$#list + 1;
   8
   9 print Dumper @list;
  10 print "count=$count\n";
  11
  12
  13 open(LOGFILE,">>rr.log");
  14
  15 print LOGFILE "hello\n";