# HG changeset patch
# User victorp@symbian.org
# Date 1249302442 -3600
# Node ID cad9fdd537481dd17234f5ca1e10b2191729d918
# Parent 74210f1577f98c09f6b3d1969de69bab0413299d
gettd.pl v0.04 - fix to delete empty lines
diff -r 74210f1577f9 -r cad9fdd53748 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/\
\(.*?)\<\/td\>/g) {
while ($mypkg =~ m/\ |
(.*?)\<\/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++;