Help for this page

Select Code to Download


  1. or download this
    my @files = undef;   #list of files to run script on
while(my $line = <INPUT>){
    chomp($line);
    push @files, $line;
}
  2. or download this
    my @files = <INPUT>;
chomp @files;
  3. or download this
    my $avg = <IN> + <IN> + <IN> + <IN>
        + <IN> + <IN> + <IN> + <IN>
        + <IN> + <IN> + <IN> + <IN>;
$avg /= 12;