note 928 deleted from migration3 by didou

From:	didou@php.net	Date:	Fri, 03 Oct 2003 11:56:45 +0000
Subject:	note 928 deleted from migration3 by didou
References:	1	Groups:	php.notes
Request:	Send a blank email to php-notes+get-57728@lists.php.net to get a copy of this message

Note Submitter: dan.brice@outreach.net ---- I had to upgrade a large amount of php2 code and I ended up writing a perl script that did most of the job for me. If you are upgrading to php3 you may find this usefull. Here is a list of the regexps I used. It doesn't catch everything, but about 90% of my files worked without any more changes. Dan. $text =~ s%([._])phtml%\1php3%msgx; # Change all string concats from + to . (Not in reg exprestions though!) (This isn't perfect) $text =~ s%([^][0-9][^][0-9][^][0-9])[+]([^][)";0-9]*["])%\1.\2%msgx; $text =~ s%(["][^][)";0-9]*)[+]([^][0-9][^][0-9][^][0-9])%\1.\2%msgx; # Change the functions to C-Style $text =~ s%Function[ ]* ([a-zA-Z0-9]*) ([^(]*) [(] (( (["](([^\\"]|[\\].))*["]) | ([/][*] ([^*] | [*][^/] )* [*][/]) | ([^()"/]|[/][^*]) ([(] ([^()]*[(] ([^()]*[(] ([^()]*[(] ([^()]*[(][^()]*[)])* [^()]*[)] )* [^()]*[)] )* [^()]*[)] )* [^()]*[)] )* )*) [)][;]? %function \1 (\2) \{ \3\} %msgx; #Change all <? > to <? ?> - watch for html, comments, if statements... $text =~ s%[<][?]( ( ( ([^">()/] | [/][^*])* ( ( ["]( ([^\\"]|[\\].) )* ["] ) | ( [/][*] ([^*] | [*][^/] )* [*][/] ) | ( [(] ([^()]*[(] ([^()]*[(] ([^()]*[(] ([^()]*[(] ([^()]*[(][^()]*[)])* [^()]*[)])* [^()]*[)])* [^()]*[)])* [^()]*[)])* [^()]*[)] ) ) )* ([^">()/] | [/][^*])*) )[>]%<?\1 ?>%msgx;