Get more than one match regular expression in a string

KeziaKristina · Nov 3, 2002

I have a problem like this.

I have a file contain :
<HTML>
<BODY>
The amount of goods : <?php print $sesuatu; $a++; ?>
<img src='kitty.gif'>
<form action='<?php print $PHP_SELF?>'>
</BODY>
</HTML>

I want to get ALL of the string between <?php and ?>and I have tried this way:
Put all the contain of that file into a string, then i used regular expression below to find the match string.

if ($string =~ /(<\?php.*?\?>)/smg) {
$temp .= $&;}
print $temp;

But i get only the first <?php...?> , ex:
<?php print $sesuatu; $a++; ?>

How can i solve this problem?
thx

PerlIsGood · Nov 4, 2002

Hi Kezia,

Here's one way to do it:

Code:

#!perl

use strict;

#pull only lines with <php> tags from the file
open FILE, &quot;./test/test.txt&quot; or die &quot;Error: $!&quot;;
my @php = grep { /<\?php.*?\?>/gi } <FILE>;
close FILE;

#match and print the php tag contents...
foreach ( @php ) {
  /(<\?php.*?\?>)/gi;
  print &quot;$1\n&quot;;
}

This should do mostly what you want with simple tags. If there are multiple tags per line, or if one tag crosses several lines (starts at line 4, ends on line 8), this code won't work...

[hth] Notorious P.I.G.

svar · Nov 4, 2002

if you have only one < ...> perl line, your easiest solution
is do a loop
while(<IN>){
chomp;
if ($_=~ /(<\?php.*?\?>)/smg) {....}

if not, you can do[NOT THE MOST ELEGANT SOLUTION, but should work and maybe it is what you want since you can format the different match occurences]
#assumeing you absorbed everything into a string $string
my @tmp=split/<\?php/,$string ;

foreach my $i(@tmp){die "dangling <?php\n"
unless $i=~/(.*)\?>/;
print "match=$1\n"; }

Hope this helps,
svar

goBoating · Nov 4, 2002

You just need a 'while' where you have an 'if'.

[red]if[/red]

Code:

 ($string =~ /(<\?php.*?\?>)/smg) {
    $temp .= $&;}

[red]while[/red]

Code:

 ($string =~ /(<\?php.*?\?>)/smg) {
    $temp .= $&;}

'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Get more than one match regular expression in a string

KeziaKristina

Programmer

PerlIsGood

Programmer

svar

Programmer

goBoating

Programmer

Similar threads

Part and Inventory Search

Sponsor