Subversion Repositories camp_sysinfo_client_3

Rev

Rev 256 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 256 Rev 257
Line 77... Line 77...
77
77
78 
   my @packageList  = split( "\n", qx( pkg info ));
 78 
   my @packageList  = split( "\n", qx( pkg info ));
79 
   chomp @packageList;
 79 
   chomp @packageList;
80 
   for ( my $i = 0; $i < @packageList; $i++ ) {
 80 
   for ( my $i = 0; $i < @packageList; $i++ ) {
81 
      $packageList[$i] =~ m/^(.+)-([^ ]+)\s+(.*)/;
 81 
      $packageList[$i] =~ m/^(.+)-([^ ]+)\s+(.*)/;
82 
      print "$CATEGORY\t$1\tversion\t$2\n";
 82 
      push @out, "$CATEGORY\t$1\tversion\t$2";
83 
      print "$CATEGORY\t$1\tdescription\t$3\n";
 83 
      push @out, "$CATEGORY\t$1\tdescription\t$3";
84 
   }
 84 
   }
85
85
86 
   #####
 86 
   #####
87 
   ##### Your code ends here.
 87 
   ##### Your code ends here.
88 
   #####
 88 
   #####