karthikeyan wrote:
> Dear All,
>  
>   Hope you are all having a great day.
>  
>   I have a problem.  I m running a java program through perl like this :
>  
>   $cmd = 'java SSLTest';
>  
>   It returns output like this :
>  
>   Using ClearCommerce SSL Java API Version: release-3-8-3-17 Shipping: 
> 10.0 Tax: 0.0 Time - Sat Jun 22 07:28:42 2002 Ref# - 12345678 Appr - 
> APPROVED Code - 123456 AVSCode -  PayServ -  Err  -  Ord# - 
> 12.45.92.15-1024748922-901932-1575-14
>  
>   when you run the program in the command line mode I would get 
> something like this so that you don't get confused
>  
> Using ClearCommerce SSL Java API Version: release-3-8-3-17
>  
> Shipping: 10.0
> Tax: 0.0
> Time - Sat Jun 22 07:28:42 2002
> Ref# - 12345678
> Appr - APPROVED
> Code - 123456
> AVSCode -
> PayServ -
> Err  -
> Ord# - 12.45.92.15-1024748922-901932-1575-14
>  
>   Now what I want to do here is get each name and value in a separate 
> separate variable like :
>  
>   $Shipping  will contain 10.0, $Tax will contain 0.0, $Time will 
> contain Sat Jun 22 07:28:42 2002
>   how do I parse those string and store it in a variable.
>  
>   Any help regarding this would be greatly appreciated.

I would split on :- (assuming a line at a time as your fixed example shows).
Then use a hash to store the fields.

my %hash;

foreach (@lines) {
        my @f = split /\s*[:-]\s*/, $line;
        $hash{$f[0]} = $f[1];
}

I'm assuming you have the newline problem in hand.

-- 
   ,-/-  __      _  _         $Bill Luebkert   ICQ=162126130
  (_/   /  )    // //       DBE Collectibles   Mailto:[EMAIL PROTECTED]
   / ) /--<  o // //      http://dbecoll.tripod.com/ (Free site for Perl)
-/-' /___/_<_</_</_     Castle of Medieval Myth & Magic http://www.todbe.com/

_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to