Help for this page

Select Code to Download


  1. or download this
    if ( /<gene_seq ([^>]+)>/ ) 
{
...
    my %attribHash = split( /\s+=\s+|(?<=\w\")\s+(?=\w)/, $attribStrin
+g );

# That's it; now work with the keys and values of that hash...
  2. or download this
        die "Bad xml tag:\n$_\n" if ( grep( /\"/, keys %attribHash );