Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;

...
yada_d2
yada_d2
yada_d2
  2. or download this
    my (@desc, @data);
my $line = <DATA>;           # Throw away first line
push @desc, $line while ($line = <DATA>) !~ /Data:/;
@data = <DATA>;