Its a huge XML file of nearly 30MB with 400000 lines ......@workingConfig = <R21WORKINGCONFIG>; $scalarWorkingConfig = join "XXXXX", @workingConfig; $scalarWorkingConfig =~ s/.*(XXXXX[ | ]*<$domainProperty .*$domainPr +operty>).*/$1/g;
I wonder whether Larry could ever had guessed all these things people will do with his Perl....
In reply to Re: How to make substitute greedy like sed's substitute
by rovf
in thread How to make substitute greedy like sed's substitute
by PerlJedi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |