[bcn-pm] pregunta de debbuging

[albert vilella]

Hola,

estic fent servir el debugger de perl per un programa, però hi ha una
rutina que va molt més lenta quan s'executa dins el debugger que quan
s'executa normalment. 

Voldria saber com fer un display com el que faig en el debugger amb "x
[maxdepth] expr" però afegint un print Data::Dumper i executant el
programa normalment.

Per exemple, si faig servir "x [maxdepth] expr" obtinc:

DB<24> x 3 $pseq
0  Bio::DB::Persistent::Seq=HASH(0x8b88c10)
   '_adaptor' => Bio::DB::BioSQL::SeqAdaptor=HASH(0x8ab8628)
      '_pers_recurs_cache' => HASH(0x8b853fc)
      '_root_verbose' => 0
      'dbcontext' => Bio::DB::SimpleDBContext=HASH(0x87afeb4)
   '_obj' => Bio::Seq::RichSeq=HASH(0x8a66f30)
      '_annotation' =>
Bio::DB::Persistent::PersistentObject=HASH(0x8b931a0)
      '_as_feat' => ARRAY(0x8a66fe4)
      '_dates' => ARRAY(0x8a9737c)
      '_division' => 'VRL'
      '_molecule' => 'ss-RNA'
      '_root_verbose' => 0
      '_secondary_accession' => ARRAY(0x8a97340)
      '_seq_version' => 3
      'primary_id' => 30271926
      'primary_seq' => Bio::DB::Persistent::PrimarySeq=HASH(0x8b933ec)
      'species' => Bio::DB::Persistent::PersistentObject=HASH(0x8b8bc28)
   '_root_verbose' => 0
   '_seq_has_changed' => 1
   '_seq_is_fetched' => 0
   '_seq_length' => 29751

M'agradaria poder obtenir una cosa similar però sense haver d'entrar en
mode debugger (amb Data::Dumper amb les opcions per defecte surt bastant
diferent).

I una pregunta curta:

com veure, a l'estil "x [maxdepth] expr", el que hi ha dins de
'_as_feat', de $pseq ?

Gràcies
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: This is a digitally signed message part
Url : http://mail.pm.org/pipermail/barcelona-pm/attachments/20030702/8e73edc2/attachment.bin