#!/usr/bin/perl -w #see IlyaM, I am being a good boy! use strict; use LWP::Simple; my $page = get 'http://www.sitedomain.com/login.cfm'; $page =~ /sid" VALUE="(\w+)/; my $sid = $1; print $sid;
In reply to holy cow it is working!
by inblosam
in thread LWP, extract_cookies, etc.
by inblosam
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |