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
