gettd.pl v0.04 - fix to delete empty lines
authorvictorp@symbian.org
Mon, 03 Aug 2009 13:27:22 +0100
changeset 27 cad9fdd53748
parent 26 74210f1577f9
child 28 7dccd04e54f9
gettd.pl v0.04 - fix to delete empty lines
tdroadmap_merger/gettd.pl
--- a/tdroadmap_merger/gettd.pl	Fri Jul 31 16:25:43 2009 +0100
+++ b/tdroadmap_merger/gettd.pl	Mon Aug 03 13:27:22 2009 +0100
@@ -187,12 +187,16 @@
 		$i=0;
 		#while ($mypkg =~ m/\<tr\>\<td\>(.*?)\<\/td\>/g) {
 		while ($mypkg =~ m/\<tr\>(.*?)\<\/tr/sg) {
-			$i++;
+			
 			$myfeat= $1;
 			$myfeat =~ s/\<\/td\>/\t/sg;
 			$myfeat =~ s/\<.*?\>//sg;
 			$myfeat =~ s/\n//sg;
-			print outputfile "$pagename\t$myfeat\n";
+			
+			if ($myfeat =~ m/[A-z]/sg ) {
+				print outputfile "$pagename\t$myfeat\n";
+				$i++;
+			}
 			
 		}
 
@@ -281,11 +285,11 @@
 if ($ispackage) {
 	getpage($target_url, $host1, $auth, "debug.txt");
 	@bklog = parse_category("debug.txt");
-	$i=0;
+	$j=0;
 	foreach (@bklog) {
-		getpage("http://".$host1.$_, $host1, $auth, "pkg".$i.".txt");
-		parse_bklog ("pkg".$i.".txt",$csvfile);
-		$i++;
+		getpage("http://".$host1.$_, $host1, $auth, "pkg".$j.".txt");
+		parse_bklog ("pkg".$j.".txt",$csvfile);
+		$j++;