Hope this small piece would of some help...Because your file has uniform pattern so without regex also this can be tackled
#! /usr/bin/perl -w use strict; open (FH,"infile") or die "File cant be open\n"; while(<FH>) { my @temp=split(/"/); if ($temp[1] eq 'stored-procedure') { print "$temp[3]\n"; } } close(FH);
But as always "There's more than one way to do it" n better also :)
In reply to Re: regex to match the following
by cool
in thread regex to match the following
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |