Hi,

I wrote a python code to fetch web pages by logging in, authenticating (using hashing) and then collecting some stats. I want to port this code to perl. Could anyone help me in quickly porting this code to perl or help me in getting equivalent functions for urllib2 and re. Below is the python code: 

#!/usr/bin/python
# -*- coding: utf-8 -*-
import urllib, urllib2, re
from struct import *
import hashlib
import os
import sys
import xmlrpclib
#from win32com.shell import shellcon, shell
from xml.dom import minidom
def main():
        
    tcp_connection_status("192.168.1.1")
    
    return 0
    
def tcp_connection_status(nodeip):
    username = 'uname'
    password = 'pass'
    response = ''
    response = urllib2.urlopen('https://' + nodeip + '/auth1.html')
    response_data = response.read()
    #print response_data
    id_obj = re.search('name=\"id\" value=\"[A-Za-z0-9]*\" size=',resp
+onse_data).group(0)
    param1_obj = re.search('NAME=\"param1\" VALUE=\"[A-Za-z0-9]*\"',re
+sponse_data).group(0)
    param2_obj = re.search('NAME=\"param2\" VALUE=\"[A-Za-z0-9]*\"',re
+sponse_data).group(0)
    sessId_obj = re.search('NAME=\"sessId\" VALUE=\"[A-Za-z0-9]*\"',re
+sponse_data).group(0)
    param1 = param1_obj.split('\"')[3]
    param2 = param2_obj.split('\"')[3]
    id = id_obj.split('\"')[3]
    sessId= sessId_obj.split('\"')[3]
    param1x = param1.decode("hex")
    idx = id.decode("hex")
    digest = hashlib.md5(idx+password+param1x).hexdigest()
    login_data = urllib.urlencode({'uName' : username, 'sessId' : sess
+Id, 'digest' : digest, 'id' : id, 'pass' : ''})
    request = urllib2.Request('https://' + nodeip + '/auth.cgi',login_
+data)
    request.add_header('Referer', 'http://' + nodeip + '/auth1.html')
    request.add_header('Cookie', 'SessId='+sessId)
    response = urllib2.urlopen(request).read()
    request = urllib2.Request('https://' + nodeip + '/outlookView.html
+')
    request.add_header('Referer', 'http://' + nodeip + '/auth.cgi')
    request.add_header('Cookie', 'SessId='+sessId)
    response = urllib2.urlopen(request)
    response_data = response.read()
    #print response_data
    loginToken_obj = re.search('loginToken = \"[A-Za-z0-9]*\"',respons
+e_data).group(0)
    loginToken = loginToken_obj.split('\"')[1]
    
    post_data = urllib.urlencode({'loginToken':loginToken, 'cgiaction'
+:'none'})
    request = urllib2.Request('https://' + nodeip + '/main.cgi',post_d
+ata)
    request.add_header('Referer', 'http://' + nodeip + '/auth.cgi')
    request.add_header('Cookie', 'SessId='+sessId)
    response = urllib2.urlopen(request)
    response_data = response.read()
    post_data = urllib.urlencode({'loginToken':loginToken, 'action':'c
+onnStats'})
    request = urllib2.Request('https://' + nodeip + '/log',post_data)
    request.add_header('Cookie', 'SessId='+sessId)
    response = urllib2.urlopen(request)
    response_data = response.read()
    print response_data

if __name__ == "__main__":
    sys.exit(main())

[download]

In reply to UrlLib and urllib2 python to perl by sidsinha

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.