Perl to Php, help me

[Anon]

Hello, someone can help me? How can translate this string of Perl in Php?

---

#!/usr/bin/perl -0777n

if( $ eq lc($) || $ eq uc($) ){ s/(\w+)/ucfirst(lc($1))/ge }

print $_, $xx, "\n";

while( s🙁<TEXTAREA[^{<>]>\s)+(.?)\s</TEXTAREA>::is} ){ print ++$n, $2,

"\n" }

Thanks
Tommy

[Anon]

The first part says if the argument string is mixed case, leave it alone,
otherwise apply "proper" capitalization to it. This is easy to translate
into php:

if (strtolower($str) == $str || strtoupper($str) == $str)
&nbsp;&nbsp;&nbsp;{
&nbsp;&nbsp;&nbsp;$str = ucwords( strtolower( $str ) );
&nbsp;&nbsp;&nbsp;}

The rest I'm going to have to pass on...

[Anon]

Thanks a lot, somebody can translate this part of perl?

while( s🙁<TEXTAREA[^{<>]>\s)+(.?)\s</TEXTAREA>::is} ){ print ++$n, $2, "\n" }

Tommy

[Anon]

i'm not sure if the s/// operator carries over. maybe with ereg_replace(). Actually it'd be comparible to eregi_replace() because the s/// operator has an "i" option being used.