Help for this page

Select Code to Download


  1. or download this
    #! perl\bin\perl

...
if ($mech1->success){ print "successfully logged on \n";} else{print  
+!$;}

$mech1->follow_link( text_regex => qr/Articles/i );
  2. or download this
      if( $mech1->success){print "success \n";} else{print  !$;}
 $mech1->click("Edit article");

    if( $mech1->success){print "Editing article \n";} else{print  !$;}

$mech1->field('text',"$text");
  3. or download this
    $mech1->click("submit");

...
!$;}

}