sandeepda has asked for the wisdom of the Perl Monks concerning the following question:
I am executing open 3 as shown below I am getting below lines from sysout from SYSOUT
My expected string<May 7, 2013 1:21:59 AM IST> <Info> <Security> <BEA-090905> <Disabl +ing CryptoJ JCE Provider self-integrity check for better startup perf +ormance. To enable this check, specify -Dweblogic.security.allowCrypt +oJDefaultJCEVerification=true> <May 7, 2013 1:21:59 AM IST> <Info> <Security> <BEA-090906> <Chang +ing the default Random Number Generator in RSA CryptoJ from ECDRBG to + FIPS186PRNG. To disable this change, specify -Dweblogic.security.all +owCryptoJDefaultPRNG=true> <May 7, 2013 1:21:59 AM IST> <Notice> <Security> <BEA-090898> <Ign +oring the trusted CA certificate "CN=CertGenCA,OU=FOR TESTING ONLY,O= +MyOrganization,L=MyTown,ST=MyState,C=ka". The loading of the trusted +certificate list raised a certificate parsing exception PKIX: Unsuppo +rted OID in the AlgorithmIdentifier object: 1.2.840.113549.1.1.11.>
I want to ignore the lines from BEA security and print only my expected string at once.I want to print my expecting string at once not line by line ignoring BEA warnings How can i do it?<Composites> i=0 compositedetail=swlib:soaprov/soacomposite=eis/FileAdapter#eis/Fil +eAdapter# swlib:soaprov/soacomposite=eis/FileAdapter#eis/FileAdapter# starts + with swlib </Composites>
my $command = $java . ' -classpath ' . $classpath . ' ' . $secOptions +. ' ' . $className . ' ' . $serviceUrl . ' ' . $composites; local (*HANDLE_IN, *HANDLE_OUT, *HANDLE_ERR); my $pid = open3( *HANDLE_IN, *HANDLE_OUT, *HANDLE_ERR, "$command +") ; my $nextLine; while(<HANDLE_OUT>) { $nextLine= $_; }
Back to
Seekers of Perl Wisdom