Re: A Question on Regex


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re: A Question on Regex

by Utilitarian (Vicar)

on Sep 07, 2011 at 10:26 UTC ( [id://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);
[download]

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."