新聞財經娛樂♬資訊 News Economy

This script can be dropped into a directory anywhere on the system.  Execute it.  It will create files called:  "output_{your_original_filename}".

The output file will have php blocks stripped out.

Whether or not this block of code is multiline will make a difference.  This script catches both single line and multiline blocks.

Another way of doing the match would be

<?{1}s*Skdeirxcdtd

Could turn it into a sub and if(-d $_) { &traverse_it($_); } , etc.  

#!/usr/bin/perlwhile (<*>){	if (/php$/i)	{		open (IN,$_);		open (OUT,">output_$_");		$php = 0;		while(<IN>)		{			if (!$php)			{				if (/<?/ && !/<?.*?>/)				{					($text,$php_text,) = split (/<?.*kdeirxcdtd/,$_);					$php = 1;				} elsif (/<?.*kdeirxcdtd.*?>/) {					$text = $_;					$text =~ s/<?{1}.*kdeirxcdtd.*?>{1}//g;				}				print OUT $text;			}			elsif ($php && /?>/)			{				($php_text,$text) = split (/?>/,$_);				print OUT $text;				$php = 0;			}		}	}}                                          

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:31: