Help for this page

Select Code to Download


  1. or download this
    
use Win32::OLE qw(in with);
...
  my @ary = ($location,$secLocation);
  my $x = $Map->Shapes->addPolyLine(@ary); # Fails
  # More below here
  2. or download this
    undef$/;$mmm="J\nutsu\nutss\nuts\nutst\nuts A\nutsn\nutso\nutst\nutsh\
+nutse\nutsr\nuts P\nutse\nutsr\nutsl\nuts H\nutsa\nutsc\nutsk\nutse\n
+utsr\nuts";open($DOH,"<",\$mmm);$_=$forbbiden=<$DOH>;s/\nuts//g;print
+;