Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
token =  ..
token = ..
token =  tok4..
  2. or download this
    my @x = my ($tok1, $tok2, $tok3, $tok4, $tok5) = split(/\t/,$line);
  3. or download this
    my @x = split(/\t/,$line);
die "I don't have enough stuff..need 5 tokens\n" if @x <5;
my ($tok1, $tok2, $tok3, $tok4, $tok5) = @x;