Re: A Question on Regex

[Utilitarian]

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);