Help for this page

Select Code to Download


  1. or download this
    if ($line[0] =~ /STAT/) {
      my $name = $line[5];
      print "name = >$name<\n";
      my $status = $line[4];
  2. or download this
       my @line = split (/,/,$line);
  3. or download this
       my @line = split (/\s*,\s*/,$line);
  4. or download this
    use strict;
use warnings;
  5. or download this
    chomp (my @lines = <FILE>);
my %table;
foreach my $line (@lines) {
   ...