Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: neglect warnings in open 3 HANDLE_OUT

by kennethk (Monsignor)
on May 14, 2013 at 13:51 UTC ( #1033466=note: print w/ replies, xml ) Need Help??


in reply to neglect warnings in open 3 HANDLE_OUT

You don't show the part of the code that does the printing, so it's difficult to say how you should modify it in order to avoid your unwanted output. If you can clearly delineate what makes a line a "BEA warning" or not, then you could skip them perhaps w/ Loop Control:

while(<HANDLE_OUT>) { next if /<BEA-\d+>/; $nextLine= $_;

This of course assumes that the warnings in question are being emitted on STDOUT and not STDERR.

If this solution is not what you are looking for, provide us with the entire STDOUT stream from your system call and the desired output from your program, as well as the entire block of read-and-output code that is presently not working for you.


#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.


Comment on Re: neglect warnings in open 3 HANDLE_OUT
Download Code
Re^2: neglect warnings in open 3 HANDLE_OUT
by sandeepda (Novice) on May 14, 2013 at 14:03 UTC
    My output stream
    <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.> <Composites> i=0 compositedetail=swlib:soaprov/soacomposite=eis/FileAdapter#eis/Fil +eAdapter# swlib:soaprov/soacomposite=eis/FileAdapter#eis/FileAdapter# starts + with swlib </Composites>
    I want to print only below lines at single go not line by line
    <Composites> i=0 compositedetail=swlib:soaprov/soacomposite=eis/FileAdapter#eis/Fil +eAdapter# swlib:soaprov/soacomposite=eis/FileAdapter#eis/FileAdapter# starts + with swlib </Composites>
    I am using backtick I want to parse this. print `$command`;
      Perhaps I just don't understand what you mean by "at single go"; given that your output stream is naturally new-line delimited, I fail to see the problem encountered by:
      while(<HANDLE_OUT>) { next if /<BEA-\d+>/; next if !/\S/; print; }
      which is pretty much what I posted above.

      Update: And then this node's parent added

      I am using backtick I want to parse this. print `$command`;
      Are you using IPC::Open3 or are you using backticks? For the latter, you would presumably need to capture the output filter it, probably by splitting on new-lines and feeding it through the loop above.

      #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

        Let me tell u bigger picture I am calling this perl from java which inturn call somejava file for validation.My server side java expects the output stream as i mentioned above .If i am printing line by line my java is getting only 1st line

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1033466]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2014-12-29 06:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (184 votes), past polls