open file.xml ;
move /code/testsuite prepend /code ;
save :b ;
[download]

Why? In the sample XML you provide that doesn't seem a sensible thing to do as it would break the XML. What is the problem you are trying to solve by moving that line?

Thanks for reply. I am trying to match an XML schema that gets created by a different Test Infrastructure.

I am trying to match an XML schema that gets created by a different Test Infrastructure.

Then better don't think in terms of lines. XML has no concept of lines. With a few exceptions, line breaks, spaces and tabs are all the same for XML, and it does not matter if you use one, two, ten or a million of them. The only sane way to work with XML is to use XML tools. XML::LibXML is one of those tools.

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

This will leave the last line in the file while putting it at the beginning as well:

use strict;
use warnings;

my @array;

open( my $orig,   '<', 'original_file' );
open( my $backup, '+>', 'original_backup' );

while (<$orig>) {
    push ( @array, $_ );
    print( $backup $_ );
}

close($orig);

open( my $new_orig, '+>', 'original_file' );

print( $new_orig $array[-1] );
print( $new_orig @array );

close( $new_orig );
[download]

This will copy the last line to the beginning while removing it from the end

use strict;
use warnings;

my @array;

open( my $orig,   '<',  'original_file' );
open( my $backup, '+>', 'original_backup' );

while (<$orig>) {
    push( @array, $_ );
    print( $backup $_ );
}

close($orig);

open ( my $new_orig, '+>', 'original_file' );

print( $new_orig pop @array );
print( $new_orig @array );

close ( $new_orig );
[download]

Sample input data:

is
a
test!!!
this
[download]

Thank you James! the code for "copying the last line to the beginning while removing it from the end" was exactly what I needed my script to do.

I wouldnt use that for very large file btw.

I'm assuming that's only part of the file and you may have multiple testsuite elements. I don't understand the example though as I would have expected the testsuite time and counts to be the sum the testcases.

#!perl
use strict;
use XML::Twig;

my $t = XML::Twig->new( twig_handlers => 
    { 'testcase'  => \&testcase,
      'testsuite' => \&testsuite,
    },
    pretty_print => 'indented',);

$t->parsefile( 'test.xml' );
$t->print_to_file('new.xml');
$t->print();

my @case=();
sub testcase {
  my ($t,$e) = @_;
  push @case,$e->cut;
};

sub testsuite {
  my ($t,$e) = @_;
  while ($_ = pop @case){
    $_->paste($e);
  }
};
[download]

Thanks Poj, that is correct. This is only one part of the Testsuite. Our system will contain multiple testsuites for each group of testcases. for instance, in the example I posted, it's the "combination" Testsuite which contain 20+ testcases. I've truncated the spreadsheet so that it only ran 5 testcases for the purpose of this thread. Every XML file will need to have this format in order for our test Metrics to be uploaded.