Did you try running your code?
#!/usr/bin/perl
use strict;
use warnings; #added by me
use Win32::IE::Mechanize;
my $ie = Win32::IE::Mechanize->new( visible => 1 );
my $url ='http://url/';
my $ie = $ie->get( $url );
my $ie->find_link (url=>"javascript:subForm('UA_Signin','signOff')";
Returns
"my" variable $ie masks earlier declaration in same scope at ftp.pl li
+ne 9.
"my" variable $ie masks earlier declaration in same scope at ftp.pl li
+ne 10.
syntax error at ftp.pl line 10, near ""javascript:subForm('UA_Signin',
+'signOff')
";"
Execution of ftp.pl aborted due to compilation errors.
First of all, you need to learn some basic Perl. Look at my, as the error message above shows, you don't need to re-declare $ie every time you make a reference to it.
Secondly look at $ie = $ie->get( $url );. I think you mean to use $ie->get($url);.
Thirdly, I suggested that you use: $ie->follow_link rather than: $ie->find_link. Also you have: $ie->find_link (url=>"javascript:subForm('UA_Signin','signOff')"; rather than: $ie->find_link(url => "javascript:subForm('UA_Signin','signOff')");
Putting this all together you can see a basic example:
#!/usr/bin/perl
# Win32::IE::Mechanize example, go to www.google.co.uk follow link 'Ab
+out Google'
use strict;
use warnings;
use Win32::IE::Mechanize;
my $ie = Win32::IE::Mechanize->new( visible => 1 );
my $url ='http://www.google.co.uk/';
$ie->get($url);
$ie->follow_link(text => 'About Google'); # This the line that you nee
+d to change, I will leave that to you as an exercise
I would suggest you send time in the tutorials section of this site, and understanding the module documentation.
Hope this helps
Martin |