Help for this page

Select Code to Download


  1. or download this
    use Win32::OLE qw(in with);
    use Win32::OLE::Const;
    ...
    $Map->SaveAs("yahoo", 2);
    
    $Map->{Saved} = -1;
    
  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
    +;