[32908] in Perl-Users-Digest
Perl-Users Digest, Issue: 4186 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Apr 5 09:09:26 2014
Date: Sat, 5 Apr 2014 06:09:02 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 5 Apr 2014 Volume: 11 Number: 4186
Today's topics:
Modern Perl: 2014 Edition is Out <john@castleamber.com>
two useful windows functions <gravitalsun@hotmail.foo>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 04 Apr 2014 14:00:20 -0600
From: John Bokma <john@castleamber.com>
Subject: Modern Perl: 2014 Edition is Out
Message-Id: <87ob0glvaj.fsf@castleamber.com>
http://www.modernperlbooks.com/mt/2014/04/modern-perl-2014-edition-is-out.html
With great pleasure do I announce Modern Perl: 2014 edition is out
and available in stores. You can also read Modern Perl: 2014 edition
free online. Of course it's available from the various booksellers:
[..]
We'll get the PDFs and ePubs updated on the Onyx Neon site in the
next week (waiting on a piece of cover art to update) and the Kindle
edition will update soon as well.
--
John Bokma j3b
Blog: http://johnbokma.com/ Perl Consultancy: http://castleamber.com/
Perl for books: http://johnbokma.com/perl/help-in-exchange-for-books.html
------------------------------
Date: Fri, 04 Apr 2014 23:14:43 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: two useful windows functions
Message-Id: <lhn3ro$11er$1@news.ntua.gr>
Many people are searching a method to find if the "Caps Lock" key is
pressed at Windows. Here is working solution.
useful when automating stuff using the Win32-GuiTest to send keys ,
control windows and mouse
use Win32::API;
# If the caps lock is pressed
$function = Win32::API::More->new('user32', 'GetKeyState', "I", "N");
die "Error: $^E" if ! $function;
print $function->Call(20) ,"\n"; # VK_CAPITAL is 20
## Get current keyboard layout
my $function = Win32::API::More->new('user32', "GetKeyboardLayout", '',
'N');
die "Error: $^E" if ! $function;
print sprintf("%x", $function->Call) ,"\n"; #408 0408 Greek , 409 0409
United States, etc
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 4186
***************************************
