On Tue, 26 Aug 2003, Medlen, Jiri wrote:

> Hi,
>
> I'm trying to simply capture VBAV29933 using Command line option
>
> result_sale.tmp contains
> <XMLPayResponse><ResponseData><Vendor>jmedlenpro</Vendor><Partner>verisign<
> /Partner><TransactionResults><TransactionResult><Result>0</Result><AVSResult
> ><StreetMatch>Match</StreetMatch><ZipMatch>No
> Match</ZipMatch></AVSResult><CVResult>Service Not
> Requested</CVResult><Message>Approved</Message><PNRef>VBAV29933</PNRef><Auth
> Code>894PNI</AuthCode><HostCode>00</HostCode><OrigResult>0</OrigResult><ExtD
> ata  Name="IAVS"
> Value="N"></ExtData></TransactionResult></TransactionResults></ResponseData>
> </XMLPayResponse>
>
>
> perl -p -i.bak -e "s/<PNRef>(.*)<\/PNRef>/$1/g" result_sale.tmp > jiri.txt
> Does not work
>
> Any ideas?
>

Instead try:

perl -n -e "print $1 if /<PNRef>(.*)<\/PNRef>s" result_sale.tmp > jiri.txt

**** [EMAIL PROTECTED] <Carl Jolley>
**** All opinions are my own and not necessarily those of my employer ****

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

Reply via email to