/[fai]/people/michael/features/setup_harddisks_2/implementation/shdd2-parser
ViewVC logotype

Diff of /people/michael/features/setup_harddisks_2/implementation/shdd2-parser

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3605 by michael-guest, Sat Jul 22 10:40:41 2006 UTC revision 3606 by michael-guest, Sat Jul 22 11:02:38 2006 UTC
# Line 351  sub in_path Line 351  sub in_path
351    
352  }  }
353    
   
354  sub print_hash  sub print_hash
355  {  {
356    my ($hash_ref_ref) = @_;    my ($hash_ref, $k) = @_;
357      $k=$k.">";
358      foreach my $key (keys %$hash_ref)
   my %hash_ref = %$hash_ref_ref;  
   printf "----\n";  
   print (keys %hash_ref, "\n");  
   foreach my $key ( keys %hash_ref)  # Cycle through all key  
359    {    {
360      print $hash_ref{$key}."\n";      printf "$k Schluessel: ". $key." Wert: ".$hash_ref->{$key}."\n";
361        if (ref($hash_ref->{$key}))
     foreach my $key2 (keys %{$hash_ref{$key}})  
362      {      {
363          &print_hash_rec($hash_ref->{$key}, $k);
   
       printf "Schluessel: ". $key2." Wert: ".$hash_ref{$key}{$key2}."\n";  
       if($key2 eq "partitions")  
       {  
         foreach my $key3 (keys %{$hash_ref{$key}{$key2}})  
         {  
           printf "--> Schluessel: ". $key3." Wert: ".$hash_ref{$key}{$key2}{$key3}."\n";  
           foreach my $key4 (keys %{$hash_ref{$key}{$key2}{$key3}})  
           {  
             printf "---> Schluessel: ". $key4." Wert: ".$hash_ref{$key}{$key2}{$key3}{$key4}."\n";  
             if($key4 eq "size")  
             {  
               foreach my $key5 (keys %{$hash_ref{$key}{$key2}{$key3}{$key4}})  
               {  
                 printf "----> Schluessel: ". $key5." Wert: ".$hash_ref{$key}{$key2}{$key3}{$key4}{$key5}."\n";  
               }  
             }  
   
           }  
   
   
         }  
       }  
   
364      }      }
365    
366    }    }
   printf "----\n";  
367  }  }
368    
369    
370  my $ifs = $/;  my $ifs = $/;
371  undef $/;  undef $/;
372  my $input = <STDIN>;  my $input = <STDIN>;
Legend:
Removed from v.3605  
changed lines
  Added in v.3606
  ViewVC Help
Powered by ViewVC 1.1.5