| #!perl | |
| use Modern::Perl; | |
| use POSIX qw(strftime); | |
| use File::Slurp; | |
| use File::Path qw(make_path); | |
| use File::Spec::Functions qw(catdir catfile); | |
| use File::HomeDir; | |
| main(); |
| use Modern::Perl; | |
| use Readonly; | |
| use PDF::API2; | |
| use List::Util qw(max); | |
| use DDP; # p for debug | |
| # Размер бумаги A4 | |
| Readonly my $PAGE_WIDTH => 360; #210; | |
| Readonly my $PAGE_HEIGHT => 200; #297; |
| #!perl | |
| use 5.14.0; | |
| use Win32::GuiTest qw(:ALL); | |
| use win32::Clipboard; | |
| &get_informatica_win_and_activate(); | |
| &put_key_mouse(); | |
| &past_changed_text(); | |
| sub get_informatica_win_and_activate { |
| use v6; | |
| BEGIN { @*INC.push( 'c:\Users\TOSH\Desktop\TCPU59\scripts\lib' );} | |
| use File::HomeDir; | |
| use File::Spec; | |
| use DateTime::Format; | |
| # use File::Directory::Tree; | |
| main(); | |
| sub main { | |
| my $work_path = File::HomeDir.my_home; |
| prove -lcp -Q --formatter=TAP::Formatter::HTML > out.html 2>&1 |
| use Modern::Perl; | |
| use charnames ':full'; | |
| binmode( STDOUT, ":utf8" ); | |
| use WWW::Mechanize::Firefox; | |
| use URI::Split qw( uri_split uri_join ); | |
| use Try::Tiny; | |
| my $url = 'http://yandex.ru/'; | |
| my $stop = 10; | |
| backup_url_from_page( $url, $stop ); |
| use Modern::Perl; | |
| use OpenOffice::OODoc; | |
| my $doc = odfDocument( | |
| file => 'test.odt', #’ test.odp’ | |
| create => 'text' # for 'presentation‘ not | |
| ); | |
| my $head = $doc->appendHeading( | |
| text => "This is a Test", | |
| style => 'Heading 1'); | |
| my $style = $doc->createImageStyle("Photo"); |
| perl -e "print $^O" MSWin32 | |
| perl -e "use English qw' -no_match_vars ';print qq{$OSNAME};" | |
| MSWin32 | |
| perl -e "use Config;print qq{$Config{osname}\n};print qq{$Config{archname}\n};" | |
| MSWin32 | |
| MSWin32-x86-multi-thread | |
| perl -e "use Sys::Info::OS;my $os = Sys::Info::OS->new(%options);print $os->name( long => 1 );" | |
| Windows XP Service Pack 3 build 2600 |
| class Player | |
| ######################### | |
| # Player Initialization # | |
| ######################### | |
| # Initialize instance variables. | |
| def initialize | |
| @prv_health = 20 # What was my previous health? | |
| @cur_health = 20 # What is my current health? |
Copyright (c) 2011 Simon Walker
Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: