common/tools/analysis/yarp.pl
changeset 284 e5f3b53baae0
parent 205 863cc9c0bf03
child 288 58affcc6c40e
--- a/common/tools/analysis/yarp.pl	Tue Jul 28 12:11:23 2009 +0100
+++ b/common/tools/analysis/yarp.pl	Wed Jul 29 11:56:35 2009 +0100
@@ -71,11 +71,23 @@
     my $failures = 0;
     while( my $line = <FILE>)
     {
+      if(defined $recipe)
+      {
+        if(defined $recipe->{'content'})
+        {
+          my $ref = $recipe->{'content'}; 
+          push(@$ref, $line);
+        }
+      }
       ++$counter;
       if($line =~ m/^<recipe\s+(\S.+)>/)
       {
         $recipe = XMLin($line."</recipe>");
         $recipe->{'line'} = $counter;
+        my @content;
+        push(@content, $line);
+        $recipe->{'content'} = \@content;
+        
 #        print Dumper($recipe);
       }
       elsif($line =~ m/<\/recipe>/)
@@ -160,7 +172,12 @@
     }
     print OUT ",";
   }
-  print OUT "\n";            
+  print OUT "\n";
+  my $content = $recipe->{'content'};
+  for my $line (@$content)
+  {
+    print $line;
+  }              
   #print Dumper($recipe);
 
 }