[29846] in Perl-Users-Digest
Perl-Users Digest, Issue: 1089 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 4 09:09:42 2007
Date: Tue, 4 Dec 2007 06:09:04 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 4 Dec 2007 Volume: 11 Number: 1089
Today's topics:
Re: eBay API Programming <1usa@llenroc.ude.invalid>
Re: eBay API Programming <cwilbur@chromatico.net>
Re: execute a shell script in a shell script <smallpond@juno.com>
Re: File::Find make me mad (Randal L. Schwartz)
Gtk2-Perl!How to change color of the selection bar in w <robertospara@gmail.com>
Re: Increment in nested loop <glex_no-spam@qwest-spam-no.invalid>
Re: OT raibow <joost@zeekat.nl>
Tk::PlotDataset v2.01 <tim_culmer@hotmail.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 03 Dec 2007 16:58:24 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: eBay API Programming
Message-Id: <Xns99FB79CC0B601asu1cornelledu@127.0.0.1>
admin@combatpaintball.net wrote in news:fivrdr01dgi@news5.newsguy.com:
> Sorry if this is the wrong place to ask for help, Its just the first
> place I thought of.
>
...
> Please don't waste your time and mine by bashing me something as
> insigificant as posting in the wrong place, becuase I wont read it or
> respond to it okay.
I do not regard pointing out the error of your ways as wasting my time.
You have already established that you are inconsiderate and do not have
mental capacity to understand why keeping this group free of irrelevant
postings is important to the rest of us.
Instead, responses pointing out that you will now be a member of a
number killfiles and therefore will not have any hope of receiving help
in the future from those of us who do not appreciate your behavior serve
the purpose of signaling to others that they should be a little bit more
considerate if they want our help.
http://jobs.perl.org/ is where job postings go. Even if I were looking
for a contract job, I would not jump at the opportunity to work for an
inconsiderate boss with your attitude.
*PLONK*
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
clpmisc guidelines: <URL:http://www.augustmail.com/~tadmc/clpmisc.shtml>
------------------------------
Date: 03 Dec 2007 15:33:54 -0500
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: eBay API Programming
Message-Id: <87mysrmsb1.fsf@mithril.chromatico.net>
>>>>> "ASU" == A Sinan Unur <1usa@llenroc.ude.invalid> writes:
ASU> http://jobs.perl.org/ is where job postings go. Even if I
ASU> were looking for a contract job, I would not jump at the
ASU> opportunity to work for an inconsiderate boss with your
ASU> attitude.
And, y'know, I've *done* eBay API stuff, and I probably have (more
than) the skillset the poster requires, but I concur with you.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Mon, 3 Dec 2007 13:10:08 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: execute a shell script in a shell script
Message-Id: <0fd80650-8fec-4e90-b5c0-154d92ddccd5@p69g2000hsa.googlegroups.com>
On Dec 3, 8:30 am, moongeegee <moongee...@gmail.com> wrote:
> Please help.
> I have been stumbled on this issue, please see below. I am unable to
> execute a shell script in a shell script.
> I need to use perl script but not others and have tried eval, -exec
> and other on perl script but failed.
> system"cleartool setview -exec \"cleartool describe -fmt 'On %Sd
> modified %En and comment:\n %c\n\n' /myproject/vob/myprogram.C\"
> my_lag ";
>
> tks.
Must be a clearcase problem. This works fine:
perl -e 'system "perl -e \"system \"ls\"\""'
--S
------------------------------
Date: Mon, 03 Dec 2007 08:15:12 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: File::Find make me mad
Message-Id: <864pez92lr.fsf@blue.stonehenge.com>
>>>>> "Alitaia" == Alitaia <walter.newsgroup@gmail.com> writes:
Alitaia> I write a simple perl, del.pl, to use File::Find to find *.ape and
Alitaia> delete them. I can find the *.ape but can not del outside the
Alitaia> directory, can del them within the directory, I dont know what's
Alitaia> wrong.
In addition to the other answers, consider this, using my File::Finder
from the CPAN:
use File::Finder;
File::Finder->name('*.ape')->eval(sub { unlink })->in('.');
There. Done.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 3 Dec 2007 10:16:26 -0800 (PST)
From: robertospara <robertospara@gmail.com>
Subject: Gtk2-Perl!How to change color of the selection bar in widget Gtk2::SimpleList?
Message-Id: <bf1442d0-c892-40e4-889f-e564d8fc2aeb@y43g2000hsy.googlegroups.com>
Hi.I found problem in Gtk2::Perl with module Gtk2::SimpleList.
I want to have selection bar in different colors.Not only orange but
red blue and others. Sample code produce SimpleList and with moving up
and down keys
I move with this "orange bar" which I call "select-bar" up and down.
How to change this color?Please for help or any advices.
Best regards and thanks in advance.
#!/usr/bin/perl -w
use Data::Dumper;
use Gtk2 '-init';
use Gtk2::SimpleList;
$window = Gtk2::Window->new;
$window->set_title ('SimpleList examples');
$window->signal_connect (delete_event => sub {Gtk2->main_quit; TRUE});
$hbox = Gtk2::HBox->new;
$window->add ($hbox);
$categories = Gtk2::SimpleList->new ('Categories' => 'text');
@{$categories->{data}} = qw/Meat Beer Pizza Pasta Soda Juice
Rabbitfood/;
$hbox->pack_start ($categories, FALSE, FALSE, 0);
$window->show_all;
Gtk2->main;
------------------------------
Date: Mon, 03 Dec 2007 11:44:27 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Increment in nested loop
Message-Id: <4754407c$0$502$815e3792@news.qwest.net>
Tony Lissner wrote:
> Jürgen Exner wrote:
> # Start line count from zero
> my $zero_base_lc = $. - 1;
That's not needed, simply change your if()..
> if ($zero_base_lc % 2 == 0) {
if ( $. % 2 == 1 )
> print "\nNew Page\nHeaders\n";
> }
[...]
------------------------------
Date: 03 Dec 2007 20:10:16 GMT
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: OT raibow
Message-Id: <475462a8$0$23306$e4fe514c@dreader25.news.xs4all.nl>
> Hope this helps,
> Ilya
Ok, I'll have to take a closer look at this subject if I'm ever going to
understand it correctly. I can't visualize your explanation at all -
though I think I get the gist of what you're saying - but some reading
already convinced me it wasn't as simple as I initially thought.
On a lighter note:
http://imgs.xkcd.com/comics/electromagnetic_spectrum.png
Thanks for taking the time,
Joost.
------------------------------
Date: Mon, 3 Dec 2007 15:04:43 GMT
From: Tim <tim_culmer@hotmail.co.uk>
Subject: Tk::PlotDataset v2.01
Message-Id: <JsHDrL.1r6B@zorch.sf-bay.org>
I.T. Dev Ltd is pleased to announce the latest release (v2.01) of the
Tk::PlotDataset module.
The module is a quick and easy way to build an interactive plot widget
into a Perl application. The new release has all the features of the
first version including zoomable plots, log axes and plot
highlighting, and is fully backwards compatible with its predecessor.
The new version adds many new features including:
* Options to control the style of points on the graph (-pointSize, -
pointStyle and -fillPoint).
* Another option to control the plot lines' appearance (-lineStyle).
* Options to give better control of the label and legend positions (-
xlabelPos, -ylabelPos, -y1labelPos and -legendPos).
* Options to define the format of the axes tick labels (-xTickFormat,
-yTickFormat and -y1TickFormat).
* An option to turn off point values being displayed when the mouse
is held over a point (-balloons)
As well as all these new features, the following improvements to the
original code have also been made:
* Better handling of log plots.
* Fixed a memory leak that occurred when the value passed to the
configure method was an array reference.
* Fixed scaling errors.
* Fixed errors related to using a plot with only points and no line.
To download the module from CPAN go to: http://search.cpan.org/~itdev/Tk-PlotDataset-2.01
Thanks,
Tim Culmer
I.T. Dev Limited - Hardware & Software Development Services
http://www.itdev.co.uk
------------------------------
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 1089
***************************************
