The CPL2Perl Module in Pizzkell

• RECORD package.

  $rec = RECORD->new ("anno_name",
    "db_xref", "descr","taxon:10090");
  
  $rec->Project("descr");
  

• LIST package

  $l = LIST->new ( "tom", "jerry" );
  

• CPLIO package

  $hd = CPLIO->Open1("sequences.val");
  
  $set = $hd->Parse;
  foreach $rec (@{$set} ) {
    $n = $rec->Project("accession");
    print "$n\n"; }
  
  while (1) {
    $rec = $hd->LazyRead; last if ($rec eq "");
    $n = $rec->Project("accession");
    print "$n\n"; }