experiments total-hybs="629" total-samples="733" total="21" to="21" from="1"> − − − GSE8918 − ##

##

 use strict;
use XML::Twig;

my $t= new XML::Twig( TwigHandlers=> { experiment => \&experiment});
$t->parsefile( '/home/adi/lwp_cgh_hs.xml');
exit;

sub experiment
  { my ($t, $experiment)= @_;
    my %experiment;
    $experiment{secondaryaccessions}= $experiment->field( 'secondaryaccessions');
   # $experiment{name}= $experiment->field( 'experimentName');
    #$experiment{description}= $experiment->field( 'Description');

    $experiment{secondaryaccession}= join ':', 
                        map {$_->text || ''}   
                        @{[$experiment->children( 'secondaryaccession')]};
	print "$experiment\n";
    print "$experiment{secondaryaccessions}: \n";
    print "        : $experiment{secondaryaccession}\n";
    $experiment->delete;
  }