Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

Re: A Question on Regex

by Utilitarian (Vicar)
on Sep 07, 2011 at 10:26 UTC ( #924579=note: print w/replies, xml ) Need Help??

in reply to A Question on Regex

not sure if this is what you require, it depends on all statements ending in a semi-colon.
#!/usr/bin/perl while(<DATA>){ while (! /;$/){ chomp; $_ .=readline DATA; } print if /^\$fwrite.+;/; } __DATA__ $fwrite(f,{few parameters},fwrite(f,{kjg,kk})); $fwrite(f,koal,jirp); $fwrite(f,jrei,orowp, jgo); fwrite(f,jrei,orowp,jgo);
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://924579]
[vedagiri89]: hi all! i need your help
[vedagiri89]: i'm facing this issue: Attempt to reload aborted.\ nCompilation failed in require at /usr/lib64/perl5/ vendor_perl//APR. pm line 19.\nBEGIN failed--compilatio n aborted at /usr/lib64/perl5/ vendor_perl//APR. pm line 19.
[vedagiri89]: how do fix this issue
[choroba]: This usually happens when you have more than one version of Perl, and you mix the libraries
[hippo]: Which O/S?
[vedagiri89]: i have searched many forum...not getting resolutions
[vedagiri89]: centos

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (7)
As of 2018-06-19 11:15 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (113 votes). Check out past polls.