R Hangul toy speller

#coding=utf-8 

from scrapemark import scrape
from urlparse import urljoin
import urllib2

indexpage = "http://cran.r-project.org/web/packages/available_packages_by_date.html"

def mainpage(url):
    ret = scrape("""
        <table border="1" summary="Available CRAN packages by date.">
        <tr> <th align="left"> Date </th> <th align="left"> Package </th> <th align="left"> Title </th> </tr>
        {*
            <tr>
            <td>{{ [date] }}</td><td><a href=' {{ [pkglinks] }}'> {{ [pkgname] }}</a></td><td>{{ [Title] }}</td>
        </tr>
        *}
           </table>
        """,
        url=url)
    return ret

def getDepRedep(pkglink):
    html = urllib2.urlopen(pkglink).read()
    imps = scrape("""
    <table summary=''>
    {*
        <tr><td valign=top>Imports:</td>
        <td>{* <a >{{ [imps] }}</a> *}</td>
        </tr>
     *}
    </table>
    """, html)
    deps = scrape("""
    <table summary=''>
    {*
        <tr><td valign=top>Depends:</td>
        <td>{* <a>{{ [deps] }}</a> *}</td>
        </tr>
     *}
    </table>
    """, html)
    revdeps = scrape("""
    <h4>Reverse dependencies:</h4>
    <table summary="">
    {*
        <tr><td valign=top>Reverse&nbsp;depends:</td>
        <td>{* <a>{{ [revdeps] }}</a> *}</td>
        </tr>
    *}
    </table>
    """, html)
    return [imps, deps, revdeps]

if __name__ == "__main__":
    import sys
    pkgdic = mainpage(indexpage)
    pkglinks = map(lambda l:urljoin(indexpage, l),  pkgdic["pkglinks"])
    pkgnames = pkgdic["pkgname"]
    pkginfos = dict([(pkglinks[i],pkgnames[i] ) for i in range(0, len(pkgnames) - 1, 1)])
    for link, name in pkginfos.items():
        ret = getDepRedep(link)
        if ret[0] != None:
            for imp in ret[0]["imps"]:
                sys.stdout.write("%s\t%s\n" % (name, imp))
        if ret[1] != None:
            for deps in ret[1]["deps"]:
                sys.stdout.write("%s\t%s\n" % (name, deps))
        if ret[2] != None:
            for revdeps in ret[2]["revdeps"]:
                sys.stdout.write("%s\t%s\n" % (revdeps, name))
        

library(igraph)

g <- graph.edgelist(
  matrix(
    scan(file="resultfile.txt",what=character(0), sep="\t"),
  ncol=2))

pr <- data.frame(pkg=as.vector(V(g)$name), pkgindex=as.vector(V(g)),pagerank=page.rank(g)$vector)
pr<- pr[order(pr$pagerank, decreasing=T),]
head(pr, n=30)