www.pudn.com > madengine.zip > filter.pl

 
#you need to pass $filtertype, $webfile (complete path), and $datfile 
#(complete path) 
#for this 
sub filter { 
 
	open(FILE, "$webfile"); 
	@better = ; 
	open(DATAFILE, ">$datfile");  
	foreach $row(@better){ 
		$row =~ s/<*[Aa]* *[Hh][Rr][Ee][Ff]\=\"*[\w\d\.\#\~\&\=\?\;\/\-]*\"*>*//g; 
		$row =~ s/<[\d\w\s\"=\,\-\_\/\.\#\:\)\(\%\!\;\+\?\&]*>//g; 
#		$row =~ s///g; 
		$row =~ s/\s*[\d\w\s\"=\,\-\_\/\.\#\:\)\(\%\!\;\?\!]*>//g; 
		$row =~ s/<[\d\w\s\"=\,\-\_\/\.\#\:\)\(\%\!\;\?\!]*\s*//g; 
		$row =~ s/\n//g; 
		$row =~ s/\r//g; 
#		$row =~ s/\