Help for this page

Select Code to Download


  1. or download this
    open OUT , '>', "outfilename" or die "unable to open out $!";
  2. or download this
    my $test = '10GBE_ADDR1';
#decide if first part of line has ABC901X_ ...
print "new record\n" if $test =~ m/^[A-Z0-9a-z]+_/;
  3. or download this
    sub print_record
{
...
   @singlereference =(); #reset array to empty
   return;
}