[30301] in Perl-Users-Digest
Perl-Users Digest, Issue: 1544 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 15 11:09:43 2008
Date: Thu, 15 May 2008 08:09:06 -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 Thu, 15 May 2008 Volume: 11 Number: 1544
Today's topics:
Re: arrow key bindings in perl debugger mode (Jens Thoms Toerring)
generate all possible math expr of one term <xahlee@gmail.com>
Re: generate all possible math expr of one term <lew@lewscanon.com>
How to control an already open spreadsheet <ldolan@thinkinghatbigpond.net.au>
Re: How to control an already open spreadsheet <brian.helterline@hp.com>
Re: How to control an already open spreadsheet <ldolan@thinkinghatbigpond.net.au>
new CPAN modules on Thu May 15 2008 (Randal Schwartz)
Tk with Thread <slick.users@gmail.com>
Re: Tk with Thread <ben@morrow.me.uk>
Re: Tk with Thread <zentara@highstream.net>
Re: URGENT: SENIOR SAP PP/MM ANALYST - San Jose, CA <uri@stemsystems.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 14 May 2008 22:38:26 GMT
From: jt@toerring.de (Jens Thoms Toerring)
Subject: Re: arrow key bindings in perl debugger mode
Message-Id: <6917v2F2v8q74U2@mid.uni-berlin.de>
andrew <andrew.c.stewart@gmail.com> wrote:
> Hi. I've been pouring over the debugger perldocs trying to figure out
> how to change keyboard bindings, so for example the 'left' and 'right'
> arrow keys let me move the cursor around the current line instead of
> spitting out things like '^[[C', and mapping the 'up' arrow key to
> cycle through the command history like it would at a command line
> prompt. Am I approaching this completely wrong? Any advice would be
> welcome. Thanks :)
From 'perldoc perldebug':
As shipped, the only command-line history supplied is a simplistic
one that checks for leading exclamation points. However, if you
install the Term::ReadKey and Term::ReadLine modules from CPAN,
you will have full editing capabilities much like GNU readline(3)
provides. Look for these in the modules/by-module/Term directory
on CPAN. These do not support normal vi command-line editing,
however.
And with ReadLine support also the left and right key should
work as expected.
Regards, Jens
--
\ Jens Thoms Toerring ___ jt@toerring.de
\__________________________ http://toerring.de
------------------------------
Date: Wed, 14 May 2008 16:49:55 -0700 (PDT)
From: "xahlee@gmail.com" <xahlee@gmail.com>
Subject: generate all possible math expr of one term
Message-Id: <3abbfdf0-7e2a-4171-bbd9-dbb33ea81e6b@w4g2000prd.googlegroups.com>
Here's a example of Expressiveness of a Language.
The following is Mathematica code that generates all possible
equations of one term involving trig function. (tweak the funList and
nesting level to define what =E2=80=9Call possible=E2=80=9D means. if nestin=
g level is
2, it takes about 20 minutes and returns a list of 2876 terms on a
2004 personal computer.
<< DiscreteMath`Combinatorica`
funList =3D {Sin, Tan, Power[#, -1] &};
Nest[Module[{li =3D #},
(Union[#, SameTest -> (Module[{arg1 =3D #1, arg2 =3D #2},
If[(*both expression contains both x and y*)
And @@ (((((StringMatchQ[#, "*x*"] &&
StringMatchQ[#, "*y*"]) &)@
ToString@#) &) /@ {arg1, arg2})
, SameQ[arg1, arg2 /. {x -> y, y -> x}],
SameQ[arg1, arg2]]
] &)] &)@
Union@Flatten@(Table[(Times @@ # &) /@ KSubsets[#, i], {i, 1,
2}] &)@Flatten@{li, Outer[#1@#2 &, funList, li]}
] &, {x, y}, 1];
Select[%, (StringMatchQ[ToString@#, "*x*"] &&
StringMatchQ[ToString@#, "*y*"]) &]
The problem is this: generate a list of all possible math expressions
using the following combination and rules:
=E2=80=A2 the math expression involves both x and y. (must have both present=
)
=E2=80=A2 you can use any of the 6 trig functions (you must, since the goal =
is
to create all possibilities)
=E2=80=A2 The binary operations you can use are multiply, divide. (no additi=
on
or substraction, since that can make the result 2 terms)
=E2=80=A2 a sub-expression (such as x or y) can be replaced by a more
complicated one. (i.e. you can nest)
For example, these are first few items from the above code:
{1/(x^2*y^2), 1/(x*y^2), x/y^2, 1/(x*y), x/y, x^2/y, x*y, x^2*y,
x^2*y^2, Cos[x]/y^2, Cos[x]/y, Cos[x]/(x*y), (x*Cos[x])/y, y*Cos[x],
(y*Cos[x])/x, x*y*Cos[x], y^2*Cos[x], Cos[x]*Cos[y], Cot[x]/y^2,
Cot[x]/(x*y^2)}
For a gallery of selection plots of these equations, see
http://xahlee.org/MathGraphicsGallery_dir/dense/dense1.html
The above i wrote in 2002. If there are requests, i'll translate the
above code into emacs lisp. The result lisp expression should match
Mathematica's, token for token. (the code make a lot use of nested
lambda and or apply and or map) If you are interested, you could
translate the above into lisp too, it's not difficult (though the
number of lines will increase maybe 10 fold. And if Common Lisp
doesn't have combinatorics library providing KSubsets, and also since
CL doesn't have Outer, so the above in CL might be few hundred lines).
(see here for a example of how to: http://xahlee.org/UnixResource_dir/writ/n=
otations.html
)
PS as a after-thought, i decided to post this to perl, python, and
java too. This will take about the same number of lines in perl as in
Common Lisp. Probably llightly more in Python due to syntax. In Java,
it will be one million lines.
Gratuitous poem of the day:
in the climb to geekdom,
you have few rungs to catch,
before you see my ass.
=E2=80=94Xah Lee, 2005
Xah
xah@xahlee.org
=E2=88=91 http://xahlee.org/
=E2=98=84
------------------------------
Date: Thu, 15 May 2008 01:04:30 -0400
From: Lew <lew@lewscanon.com>
Subject: Re: generate all possible math expr of one term
Message-Id: <W5udnbDVHPXCWbbVnZ2dnUVZ_qninZ2d@comcast.com>
xahlee@gmail.com wrote:
> —Xah Lee, 2005
Blah, blah, blah. Plonk.
--
Lew
------------------------------
Date: Thu, 15 May 2008 00:18:55 GMT
From: "Peter Jamieson" <ldolan@thinkinghatbigpond.net.au>
Subject: How to control an already open spreadsheet
Message-Id: <PjLWj.1136$IK1.4@news-server.bigpond.net.au>
I am having a look at using Perl to control an Excel spreadsheet:
#!/usr/bin/perl -w
use strict;
use warnings;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3; # die on errors...
# Get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
|| Win32::OLE->new('Excel.Application', 'Quit');
# select and open the Excel file
my $Book = $Excel->Workbooks->Open("C:/Documents and
Settings/mysheet.xls");
# do phunny things with the workbook...
No problems....but:
I read the Win32::OLE docs and elsewhere but could not find how to proceed
if the workbook $Book was already open, rather than opening a new instance
of the workbook.
Any help appreciated!
------------------------------
Date: Wed, 14 May 2008 21:45:39 -0700
From: Brian Helterlilne <brian.helterline@hp.com>
Subject: Re: How to control an already open spreadsheet
Message-Id: <g0gf5l$drj$1@usenet01.boi.hp.com>
Peter Jamieson wrote:
> I am having a look at using Perl to control an Excel spreadsheet:
>
> #!/usr/bin/perl -w
> use strict;
> use warnings;
> use Win32::OLE qw(in with);
> use Win32::OLE::Const 'Microsoft Excel';
> $Win32::OLE::Warn = 3; # die on errors...
>
> # Get already active Excel application or open new
> my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
> || Win32::OLE->new('Excel.Application', 'Quit');
>
> # select and open the Excel file
> my $Book = $Excel->Workbooks->Open("C:/Documents and
> Settings/mysheet.xls");
>
> # do phunny things with the workbook...
>
> No problems....but:
>
> I read the Win32::OLE docs and elsewhere but could not find how to proceed
> if the workbook $Book was already open, rather than opening a new instance
> of the workbook.
>
> Any help appreciated!
You need to read the Excel macro help (Visual Basic).
The method you are looking for is ActiveWorkbook which has the Name
property which is the filename of the open workbook (if any).
which translates into perl:
my $Book = $Excel->ActiveWorkbook; # may be undefined
my $Name = '';
$Name = $Book->{Name} if defined $Book;
unless ( $Name eq 'C:/.......' ) {
$Book = $Excel->Workbooks->Open("C:/...");
------------------------------
Date: Thu, 15 May 2008 13:53:57 GMT
From: "Peter Jamieson" <ldolan@thinkinghatbigpond.net.au>
Subject: Re: How to control an already open spreadsheet
Message-Id: <VfXWj.1338$IK1.196@news-server.bigpond.net.au>
"Brian Helterlilne" <brian.helterline@hp.com> wrote in message
news:g0gf5l$drj$1@usenet01.boi.hp.com...
> Peter Jamieson wrote:
>> I am having a look at using Perl to control an Excel spreadsheet:
>>
>> #!/usr/bin/perl -w
>> use strict;
>> use warnings;
>> use Win32::OLE qw(in with);
>> use Win32::OLE::Const 'Microsoft Excel';
>> $Win32::OLE::Warn = 3; # die on errors...
>>
>> # Get already active Excel application or open new
>> my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
>> || Win32::OLE->new('Excel.Application', 'Quit');
>>
>> # select and open the Excel file
>> my $Book = $Excel->Workbooks->Open("C:/Documents and
>> Settings/mysheet.xls");
>>
>> # do phunny things with the workbook...
>>
>> No problems....but:
>>
>> I read the Win32::OLE docs and elsewhere but could not find how to
>> proceed if the workbook $Book was already open, rather than opening a new
>> instance of the workbook.
>>
>> Any help appreciated!
>
> You need to read the Excel macro help (Visual Basic).
> The method you are looking for is ActiveWorkbook which has the Name
> property which is the filename of the open workbook (if any).
> which translates into perl:
>
> my $Book = $Excel->ActiveWorkbook; # may be undefined
> my $Name = '';
> $Name = $Book->{Name} if defined $Book;
> unless ( $Name eq 'C:/.......' ) {
> $Book = $Excel->Workbooks->Open("C:/...");
>
G'day Brian!
Thank you for your assistance!
Your comments have got me moving forward again on this,
especially your advice re VB and the Name property of the workbook.
Again, many thanks!
Cheers, Peter
------------------------------
Date: Thu, 15 May 2008 04:42:18 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu May 15 2008
Message-Id: <K0w7qI.Jz5@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache2-ASP-1.42
http://search.cpan.org/~johnd/Apache2-ASP-1.42/
Perl extension for ASP on mod_perl2.
----
Apache2-ASP-1.43
http://search.cpan.org/~johnd/Apache2-ASP-1.43/
Perl extension for ASP on mod_perl2.
----
App-FQStat-5.5
http://search.cpan.org/~smueller/App-FQStat-5.5/
Interactive console front-end for Sun's grid engine
----
AutoLoader-5.66
http://search.cpan.org/~smueller/AutoLoader-5.66/
load subroutines only on demand
----
CGI-Session-ExpireSessions-1.09
http://search.cpan.org/~rsavage/CGI-Session-ExpireSessions-1.09/
Delete expired CGI::Session-type db-based and file-based sessions
----
CPAN-Metrics-0.08
http://search.cpan.org/~adamk/CPAN-Metrics-0.08/
Create and maintain a Perl::Metrics database for all of CPAN
----
Coat-0.300
http://search.cpan.org/~sukria/Coat-0.300/
A light and self-dependent meta-class for Perl5
----
Continuity-0.993
http://search.cpan.org/~awwaiid/Continuity-0.993/
Abstract away statelessness of HTTP, for stateful Web applications
----
DBD-ODBC-1.16
http://search.cpan.org/~mjevans/DBD-ODBC-1.16/
ODBC Driver for DBI
----
DBD-Pg-2.7.2
http://search.cpan.org/~turnstep/DBD-Pg-2.7.2/
PostgreSQL database driver for the DBI module
----
Data-Capture-0.27
http://search.cpan.org/~clkao/Data-Capture-0.27/
Perl6 Capture objects
----
Egg-Release-3.11
http://search.cpan.org/~lushe/Egg-Release-3.11/
Version of Egg WEB Application Framework.
----
Emacs-PDE-v0.2.15
http://search.cpan.org/~yewenbin/Emacs-PDE-v0.2.15/
Perl Development Environment in emacs
----
FTN-Pkt-1.01
http://search.cpan.org/~keu/FTN-Pkt-1.01/
a module to make FTN-style mail packets
----
File-FcntlLock-0.10
http://search.cpan.org/~jtt/File-FcntlLock-0.10/
File locking with fcntl(2)
----
File-Find-Rule-Perl-1.04
http://search.cpan.org/~adamk/File-Find-Rule-Perl-1.04/
Common rules for searching for Perl things
----
File-Find-Rule-VCS-1.04
http://search.cpan.org/~adamk/File-Find-Rule-VCS-1.04/
Exclude files/directories for Version Control Systems
----
GO-TermFinder-0.82
http://search.cpan.org/~sherlock/GO-TermFinder-0.82/
identify GO nodes that annotate a group of genes with a significant p-value
----
Games-EveOnline-API-0.01
http://search.cpan.org/~bluefeet/Games-EveOnline-API-0.01/
A simple Perl wrapper around the EveOnline XML API.
----
Geo-Coordinates-Converter-iArea-0.08
http://search.cpan.org/~tokuhirom/Geo-Coordinates-Converter-iArea-0.08/
get center point from iArea
----
Gtk2-Ex-WidgetCursor-2
http://search.cpan.org/~kryde/Gtk2-Ex-WidgetCursor-2/
mouse pointer cursor management for widgets
----
HTML-TableParser-0.37.1
http://search.cpan.org/~djerius/HTML-TableParser-0.37.1/
Extract data from an HTML table
----
HTML-TableParser-0.38
http://search.cpan.org/~djerius/HTML-TableParser-0.38/
Extract data from an HTML table
----
HTML-WikiConverter-GoogleCode-0.12
http://search.cpan.org/~martykube/HTML-WikiConverter-GoogleCode-0.12/
Convert HTML to Google Code wiki markup.
----
IPC-System-Simple-0.10
http://search.cpan.org/~pjf/IPC-System-Simple-0.10/
Run commands simply, with detailed diagnostics
----
InSilicoSpectro-Databanks-0.0.37
http://search.cpan.org/~alexmass/InSilicoSpectro-Databanks-0.0.37/
parsing protein/nucleotides sequence databanks (fasta, uniprot...)
----
Math-Prime-XS-0.20
http://search.cpan.org/~schubiger/Math-Prime-XS-0.20/
Calculate/detect prime numbers with deterministic tests
----
Module-Install-0.73
http://search.cpan.org/~adamk/Module-Install-0.73/
Standalone, extensible Perl module installer
----
Module-Metadata-Changes-1.00
http://search.cpan.org/~rsavage/Module-Metadata-Changes-1.00/
Manage a module's machine-readable Changelog.ini file
----
Moxy-0.41
http://search.cpan.org/~tokuhirom/Moxy-0.41/
Mobile web development proxy
----
Nagios-Plugin-0.27
http://search.cpan.org/~tonvoon/Nagios-Plugin-0.27/
A family of perl modules to streamline writing Nagios plugins
----
Net-SSH-0.09
http://search.cpan.org/~ivan/Net-SSH-0.09/
Perl extension for secure shell
----
PAR-Packer-0.980
http://search.cpan.org/~smueller/PAR-Packer-0.980/
PAR Packager
----
PPI-1.203
http://search.cpan.org/~adamk/PPI-1.203/
Parse, Analyze and Manipulate Perl (without perl)
----
Parse-CPAN-Authors-2.26
http://search.cpan.org/~lbrocard/Parse-CPAN-Authors-2.26/
Parse 01mailrc.txt.gz
----
Path-Class-Versioned-0.01
http://search.cpan.org/~stevan/Path-Class-Versioned-0.01/
A simple module for managing versioned file names
----
Perl-Metrics-0.08
http://search.cpan.org/~adamk/Perl-Metrics-0.08/
The Perl Code Metrics System
----
Pg-Pcurse-0.13
http://search.cpan.org/~ioannis/Pg-Pcurse-0.13/
Monitors a Postgres cluster
----
Pod-ProjectDocs-0.36
http://search.cpan.org/~lyokato/Pod-ProjectDocs-0.36/
generates CPAN like pod pages
----
Seeder-0.01
http://search.cpan.org/~ffauteux/Seeder-0.01/
Motif discovery in DNA sequences
----
Squatting-0.21
http://search.cpan.org/~beppu/Squatting-0.21/
a Camping-inspired Web Microframework for Perl
----
TAP-Harness-Remote-0.01
http://search.cpan.org/~alexmv/TAP-Harness-Remote-0.01/
Run tests on a remote server
----
TAP-Harness-Remote-EC2-0.01
http://search.cpan.org/~alexmv/TAP-Harness-Remote-EC2-0.01/
Run tests on EC2 servers
----
Test-A8N-0.04
http://search.cpan.org/~nachbaur/Test-A8N-0.04/
Storytest Automation Runner
----
Test-GlassBox-Heavy-0.01
http://search.cpan.org/~oliver/Test-GlassBox-Heavy-0.01/
Non-invasive testing of subroutines within Perl programs
----
Test-POE-Server-TCP-0.02
http://search.cpan.org/~bingos/Test-POE-Server-TCP-0.02/
A POE Component providing TCP server services for test cases
----
Text-Levenshtein-0.06_01
http://search.cpan.org/~jgoldberg/Text-Levenshtein-0.06_01/
An implementation of the Levenshtein edit distance
----
URI-ParseSearchString-2.3
http://search.cpan.org/~sden/URI-ParseSearchString-2.3/
parse Apache refferer logs and extract search engine query strings.
----
Vroom-0.10
http://search.cpan.org/~ingy/Vroom-0.10/
Slide Shows in Vim
----
WWW-Scraper-ISBN-AmazonDE_Driver-0.041
http://search.cpan.org/~reneeb/WWW-Scraper-ISBN-AmazonDE_Driver-0.041/
Search driver for the (DE) Amazon online catalog.
----
XML-Compile-0.83
http://search.cpan.org/~markov/XML-Compile-0.83/
Compilation based XML processing
----
YAML-Tiny-1.32
http://search.cpan.org/~adamk/YAML-Tiny-1.32/
Read/Write YAML files with as little code as possible
----
ZML-0.4.0
http://search.cpan.org/~vvelox/ZML-0.4.0/
A simple, fast, and easy to read binary data storage format.
----
Zucchini-0.0.3
http://search.cpan.org/~chisel/Zucchini-0.0.3/
turn templates into static websites
----
autobox-Numeric-Bytes-0.01
http://search.cpan.org/~hirose/autobox-Numeric-Bytes-0.01/
ActiveSupport equivalent to Perl numeric variables
----
autobox-Numeric-Time-0.01
http://search.cpan.org/~hirose/autobox-Numeric-Time-0.01/
ActiveSupport equivalent to Perl numeric variables
----
with-0.02
http://search.cpan.org/~vpit/with-0.02/
Lexically call methods with a default object.
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Wed, 14 May 2008 16:57:37 -0700 (PDT)
From: Slickuser <slick.users@gmail.com>
Subject: Tk with Thread
Message-Id: <438f5322-6d2a-40a5-9639-fb609c5cd39a@a1g2000hsb.googlegroups.com>
I am currently using perl, v5.8.8 built for MSWin32-x86-multi-thread.
I have a Button on my GUI, when I pressed the button. It will parse
some file.
The parsing will run but my GUI will freeze. Once it's done parsing, I
can control my GUI again.
Is there a way to use Thread so my parsing is running and I can still
use my GUI?
I was looking at http://visitorflow.com/perl/lib/Thread.html
But it doesn't work for me. I also try 'threads' as well.
Any help?
------------------------------
Date: Thu, 15 May 2008 02:19:03 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Tk with Thread
Message-Id: <7lfsf5-pka.ln1@osiris.mauzo.dyndns.org>
Quoth Slickuser <slick.users@gmail.com>:
> I am currently using perl, v5.8.8 built for MSWin32-x86-multi-thread.
>
> I have a Button on my GUI, when I pressed the button. It will parse
> some file.
> The parsing will run but my GUI will freeze. Once it's done parsing, I
> can control my GUI again.
A straightforward way around this is to call $mainwindow->update
periodically during the processing. This can, however, be a little
tricky to arrange, depending on what the parsing consists of.
> Is there a way to use Thread so my parsing is running and I can still
> use my GUI?
Don't use Thread. It was part of the old 5005threads model that came
with 5.5; in 5.8 it is just a pass-through for threads.
> I was looking at http://visitorflow.com/perl/lib/Thread.html
It's best to read the documentation that comes with your version of
perl. That page appears to belong with 5.6.0: a lot has changed since
then, particularly wrt threads.
> But it doesn't work for me. I also try 'threads' as well.
'Doesn't work' is not a helpful problem description. Please reduce your
program to a minimal example (preferably just a Tk window with a single
button, and a sub that calls something like 'sleep 500' to simulate the
parsing) and post it. Also describe what it is doing that you don't
expect.
Tk will work in multithreaded programs, but be sure to only access the
Tk objects from one thread. Tk itself isn't threadsafe.
Ben
--
And if you wanna make sense / Whatcha looking at me for? (Fiona Apple)
* ben@morrow.me.uk *
------------------------------
Date: Thu, 15 May 2008 09:27:58 -0400
From: zentara <zentara@highstream.net>
Subject: Re: Tk with Thread
Message-Id: <35eo24pmf6bg2m16cts75o07ds2289rbov@4ax.com>
On Wed, 14 May 2008 16:57:37 -0700 (PDT), Slickuser
<slick.users@gmail.com> wrote:
>I am currently using perl, v5.8.8 built for MSWin32-x86-multi-thread.
>
>I have a Button on my GUI, when I pressed the button. It will parse
>some file.
>The parsing will run but my GUI will freeze. Once it's done parsing, I
>can control my GUI again.
>
>Is there a way to use Thread so my parsing is running and I can still
>use my GUI?
>
>I was looking at http://visitorflow.com/perl/lib/Thread.html
>
>But it doesn't work for me. I also try 'threads' as well.
>
>Any help?
Here is a general purpose example. It creates threads before any
Tk is called, to be thread-safe. It creates a pool of 3 reusable
worker-threads, but you can cut down the complexity by using
just onw thread.
http://perlmonks.org?node_id=401819
You can also try the Tk::ExecuteCommand module.
#!/usr/bin/perl -w
use Tk;
use Tk::ExecuteCommand;
use Tk::widgets qw/LabEntry/;
use strict;
my $mw = MainWindow->new;
my $ec = $mw->ExecuteCommand(
-command => '',
-entryWidth => 50,
-height => 10,
-label => '',
-text => 'Execute',
)->pack;
$ec->configure(-command => 'date; sleep 10; date');
my $button = $mw->Button(-text =>'Do_it',
-background =>'hotpink',
-command => sub{ $ec->execute_command },
)->pack;
MainLoop;
__END__
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: Wed, 14 May 2008 22:19:06 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: URGENT: SENIOR SAP PP/MM ANALYST - San Jose, CA
Message-Id: <x71w44pm05.fsf@mail.sysarch.com>
>>>>> "ka" == khan aadilrasheed <khan.aadilrasheed@gmail.com> writes:
ka> 1) Your latest word formatted resume.
i don't send resumes in perl
ka> 2) Salary range per annum
$2,000,000/year
ka> 3) Start Date
yesterday.
ka> 4) Contact Info(mobile #, and best time to take telephonic
ka> interview)
911
ka> 5) Visa Status
i use mastercard.
ka> QUALILFICATIONS/EXPERIENCE::
ka> - 7+ years of SAP MM and PP experience with at least 2 full cycle SAP
ka> projects
ka> - Excellent MM and PP business process knowledge
ka> - Working ABAP knowledge is a plus
ka> - Ability to interact with management at all levels
ka> - Strong communication skills, both written and verbal
ka> - Bachelor's degree in Computer Science or closely related technical
ka> field
no perl skills needed? then why are you spamming a perl group? this
shows that you are too dumb to work for.
ka> Regards,
nope. spammers never send regards.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
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:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#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 1544
***************************************
