Help converting small Perl code to PHP

[matbeard]

Can somebody please help me to convert the following small piece of Perl to its PHP equivalent? It's for a content management system.

@pagetext = split( /<pr>/i, $text );
@pagetitle = ( $subject );
$pagetitle = $subject;
  for( my $i = 1; $i < @pagetext; ++$i ) {
     if( $pagetext[$i] =~ s~\A(.*)</pr>~~i ) {
        $pagetitle = $1;
     }
   push( @pagetitle, $pagetitle );
   }

$pagemax = scalar @pagetext;

$text is a block of text containing one or more instances of <pr>a page title goes here</pr>

$subject is the title of the first page of this article.

Basically, the result should be two arrays: pagetext, containing the text between <pr> tags, and pagetitle, the text between <pr> and </pr> tags.

I hope somebody can help. Thanks.

[Weedpacket]

Easy enough.

$pagetext=preg_split('/<pr>/i',$text);
$apagetitle=array($subject);
for($i=1; $i<count($pagetext); ++$i) {
    if(preg_match('~A(.*)</pr>~i', $pagetitle[$i],$matches) {
        $pagetext=preg_replace('~A(.*)</pr>~i', '', $pagetext,1);
	$pagetitle=$matches[1];
    }
    $apagetitle[]=$pagetitle;
}
$pagemax=count($pagetext)-1;

If I remember enough of my Perl. It could probably be brought closer to the PHP idiom:

$pagetext=preg_split('/<pr>/i',$text);
$pagetitle=array($subject);
foreach($pagetext as $pagepr)
{	list($pagetitle[])=preg_split('~</pr>~i',$pagepr);
}
$pagemax=count($pagetext)-1;

...which could probably be translated back into Perl.

[matbeard]

Thanks Weedpacket - that's almost there...

I couldn't get the first code to work - but the second is very close.

The only problem is that the entire text of the first page is being entered as the second item in the $pagetitle array.

You can see an example on this page

Any thoughts? I really appreciate your help.

[Weedpacket]

Originally posted by matbeard
Thanks Weedpacket - that's almost there...

I couldn't get the first code to work - but the second is very close.

The only problem is that the entire text of the first page is being entered as the second item in the $pagetitle array.

Any thoughts? I really appreciate your help.

Ah, of course - the original code is dropping the first element of the split array (everything prior to the first <pr>) by starting its loop from 1.

So before beginning the foreach() loop,

unset($pagetext[0]);

and drop it. (I take it you don't want to hang on to it for use later?)

[matbeard]

That's solved it.

Thank you VERY much.

[Weedpacket]

...Of course, if all you want is the subject and the bits between the <pr> and </pr> tags:

preg_match_all('<pr>((?:(?!<pr>).)*)</pr>', $text, $matches);
$pagetitle = $matches[1];
array_unshift($pagetitle, $subject);