[22286] in Perl-Users-Digest
Perl-Users Digest, Issue: 4507 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Feb 4 00:16:46 2003
Date: Mon, 3 Feb 2003 21:14:49 -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 Mon, 3 Feb 2003 Volume: 10 Number: 4507
Today's topics:
Re: Crossposting (was: Fetchrow Question) nobull@mail.com
Re: Crossposting (was: Fetchrow Question) <mgarrish@rogers.com>
Re: Crossposting (was: Fetchrow Question) <uri@stemsystems.com>
Re: Free CGI webhosts (Chas Friedman)
Re: How to close all ports ??? <Dwayne@hotmail.com>
Re: How to find @INC in a mod_perl compiled httpd binar (Kyndig)
Re: How to find @INC in a mod_perl compiled httpd binar (Lack Mr G M)
Re: inconsistent handling of undefined values? <ra.jones@NO_UCE*cwcom.net>
Re: inconsistent handling of undefined values? <nobull@mail.com>
Re: inconsistent handling of undefined values? <ra.jones@NO_UCE*cwcom.net>
Interruption of Sleeping Perl Script (Dave Butler)
Re: Interruption of Sleeping Perl Script <rereidy@indra.com>
Re: Interruption of Sleeping Perl Script (Anno Siegel)
Is there a *better* way to deref and look for matches? (denap)
Re: Is there a *better* way to deref and look for match (Anno Siegel)
Re: Is there a *better* way to deref and look for match <goldbb2@earthlink.net>
LWP <pons@gmx.li>
minor code fix. <shanem@nospam.ll.mit.edu>
Re: minor code fix. <laocoon@eudoramail.com>
OT - Advertisement - Offer your IT services as a consul <sheken@videotron.ca>
Re: OT - Advertisement - Offer your IT services as a co (Tad McClellan)
OT but a PERL job is available in Houston <AnybodyButGeeDubya@in2004.com>
OT but a PERL job is available in Houston (tom)
Re: OT but a PERL job is available in Houston <dha@panix.com>
Re: OT but a PERL job is available in Houston <jurgenex@hotmail.com>
Re: Parse a logfile - 1st column DateStamp; extract lat <goldbb2@earthlink.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Feb 2003 10:51:54 -0800
From: nobull@mail.com
Subject: Re: Crossposting (was: Fetchrow Question)
Message-Id: <4dafc536.0302031051.54c1b96c@posting.google.com>
"Smiley" <smiley@uvgotemail.com> wrote in message news:<v3mt6q29lb7eec@corp.supernews.com>...
> > Think!
> >
> > The whole point crossposted article is that is a single article that
> > appears in multiple groups because is has multiple items in the
> > Newsgroup line.
> >
> > If the article must either appear in all groups listed or none.
>
> I've never had any inclinations to figure our how newsgroups worked before,
> I thought crossposting worked in a simmilar way to email CC's - apparently I
> was wrong.
>
> > What was the "problem"? Was it that you were too impatient to wait
> > for the moderator?
>
> What moderator?? If I don't know what group the problem resides in, how
> could I possibly know to contact the right moderator?
You can't.
How many moderated groups did you include in your crosspost?
> > Surely there's nobody cluefull who'd answer in alt.perl who wouldn't
> > answer in the mainstream Perl groups?
>
> I don't understand, do you find something wrong with alt.perl?
On those few occasions I've looked I find the blind-leading-the-blind
factor to be rather higher than I can tollerate.
> Why is it not a mainstream Perl group
By definition. That's what "alt" means - alternative, i.e. not
mainstream.
> and what do you consider to be the mainstream Perl groups?
It's not really a matter of personal oppinion. See FAQ: "What are the
Perl newsgroups on Usenet?"
> Is there some taboo against posting in alt.perl that I don't
> know about?
IMHO using alt groups implies you think there is something wrong with
the provision of mainstream groups for a topic.
I don't see this applies in the case of Perl.
As far as I can imagine he only people who would respond in alt.perl
but not the mainstream groups would be:
People who are too ignorant to know the mainstream groups exist.
Those who've found their answers in the mainstream are unwellcome.
Neither of these groups are likely to provide you with useful answers.
You'd get a better average quality of answer by only posting to the
mainstream.
------------------------------
Date: Tue, 04 Feb 2003 04:17:02 GMT
From: "mgarrish" <mgarrish@rogers.com>
Subject: Re: Crossposting (was: Fetchrow Question)
Message-Id: <29H%9.548402$F2h1.417506@news01.bloor.is.net.cable.rogers.com>
<nobull@mail.com> wrote in message
news:4dafc536.0302031051.54c1b96c@posting.google.com...
>
> As far as I can imagine he only people who would respond in alt.perl
> but not the mainstream groups would be:
>
> People who are too ignorant to know the mainstream groups exist.
>
> Those who've found their answers in the mainstream are unwellcome.
>
You forgot about people who aren't interested in keeping up with the
ridiculous volume of clpm.
Matt
------------------------------
Date: Tue, 04 Feb 2003 04:58:15 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Crossposting (was: Fetchrow Question)
Message-Id: <x7n0lcskv0.fsf@mail.sysarch.com>
>>>>> "m" == mgarrish <mgarrish@rogers.com> writes:
m> <nobull@mail.com> wrote in message
m> news:4dafc536.0302031051.54c1b96c@posting.google.com...
>>
>> As far as I can imagine he only people who would respond in alt.perl
>> but not the mainstream groups would be:
>>
>> People who are too ignorant to know the mainstream groups exist.
>>
>> Those who've found their answers in the mainstream are unwellcome.
>>
m> You forgot about people who aren't interested in keeping up with the
m> ridiculous volume of clpm.
so low volume and mostly wrong is better than high volume (which is
easily handled with a good newsreader) which has many perl experts
around?
or rather you like being the one-eyed king in the land or blind perl
hackers?
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
----- Stem and Perl Development, Systems Architecture, Design and Coding ----
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
Damian Conway Perl Classes - January 2003 -- http://www.stemsystems.com/class
------------------------------
Date: Tue, 4 Feb 2003 02:59:55 +0000 (UTC)
From: friedman@math.utexas.edu (Chas Friedman)
Subject: Re: Free CGI webhosts
Message-Id: <b1nabb$ecp$1@geraldo.cc.utexas.edu>
__________
Bob Walton wrote:
.........
>For learning purposes, why don't you just put up your own web site on
>your own local computer? Here's one that will run CGI (it's not very
>good, but it works [as long as CGI scripts end in .cgi and are in Perl,
>and HTML pages end in .html] and it's free):
>.........
I tried it on my Windows machine at home, and it seems to work quite well!
Why do you say "it's not very good"?
chas
------------------------------
Date: Mon, 03 Feb 2003 14:45:39 -0600
From: David Wayne <Dwayne@hotmail.com>
Subject: Re: How to close all ports ???
Message-Id: <l5lt3vc47vp3bspe1f48lb3ihki3dbvp09@4ax.com>
David Wayne <dwayne@hotmail.com> wrote:
> But I ran it and it sat there listening but I could not get my
> client-side program to connect, eventually I aborted the script and
> now get an internal error when trying to re-run it (with no changes),
Ah. So it's a web server script? How do you know the process that's
doing the socket listening has really ended? I suspect it hasn't.
Chris
LOL - Probably true - so how WOULD I know if it has stopped listening
and how do I make it stop once it has started ???
David
------------------------------
Date: 3 Feb 2003 07:23:38 -0800
From: kyndig@knife-fighting.com (Kyndig)
Subject: Re: How to find @INC in a mod_perl compiled httpd binary?
Message-Id: <ed882ecb.0302030723.3d3ed367@posting.google.com>
> These other paths are built-in to perl at compile time. Your new mod_perl has
> been build with --prefix=/usr/local (or equivalent: I don't know how mod_perl
> is built). You want to reinstall any modules which are currently under
> /usr/lib/perl5/site_perl under /usr/local/lib/perl5/site_perl, for which you
> can use CPAN.pm with a perl built into /usr/local or any other method of you
> choice (including copying the directory over/symlinking them if the new and
> old builds are binary-compatible).
>
> Ben
Thank you Ben; but how do I change those paths at compile time? I'd
rather just recompile than have to change the developement, QA , and
production perl trees. I can find no configure options for setting
the path on mod_perl...
------------------------------
Date: Mon, 03 Feb 2003 17:03:10 GMT
From: gml4410@ggr.co.uk (Lack Mr G M)
Subject: Re: How to find @INC in a mod_perl compiled httpd binary?
Message-Id: <2003Feb3.170310@ukwit01>
In article <ed882ecb.0302030723.3d3ed367@posting.google.com>, kyndig@knife-fighting.com (Kyndig) writes:
|>
|> Thank you Ben; but how do I change those paths at compile time? I'd
|> rather just recompile than have to change the developement, QA , and
|> production perl trees. I can find no configure options for setting
|> the path on mod_perl...
The path info is set when you compile *Perl*. mod_perl uses those
settings, which is not unreasonable, given that this is where all of the
standard Perl modules will have been installed.
--
--------- Gordon Lack --------------- gml4410@ggr.co.uk ------------
This message *may* reflect my personal opinion. It is *not* intended
to reflect those of my employer, or anyone else.
------------------------------
Date: Mon, 3 Feb 2003 18:35:15 +0000
From: RA Jones <ra.jones@NO_UCE*cwcom.net>
Subject: Re: inconsistent handling of undefined values?
Message-Id: <tAQ2S8AjZrP+Ewtn@nildram.co.uk>
In message <u9el6pzhqa.fsf@wcl-l.bham.ac.uk>, Brian McCauley
<nobull@mail.com> writes
>RA Jones <ra.jones@NO_UCE*cwcom.net> writes:
>
>> From there on I do some further manipulations on %results, but the
>> essence of the problem is that if I try to print the contents of
>> %results either via CGI to the browser or to a debug text-file, the
>> system hangs indefinitely on my PC test-bed, but works fine on the
>> UNIX production server.
>
>I have observed exactly the same too.
Wow - someone had the same problem as me! That's a novelty ;-)
>I don't think it's a Perl thing.
>
>I think it's an CGI-Apache-windows thing.
>
>Caused a bit of a panic here - we were moving a snapshot of one of our
>projects from the Linux development platform to Windoze notebook demo
>platform and suddenly it stopped working. I dove in to debug it, and
>in passing noticed the warning so I shoved in a "no warnings
>qw(uninitialized)" arround the line and suddenly the demo worked.
What is the warning? I don't get anything.
If it is ONLY a CGI-Apache-Windows 'feature', then I can live with it,
as long as I am happy it is not caused by my sloppy coding!
--
RA Jones
remove NO_UCE* from 'reply-to' address
ra(dot)jones(at)see-double-you-com(dot)net
------------------------------
Date: 03 Feb 2003 19:05:28 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: inconsistent handling of undefined values?
Message-Id: <u94r7lxk07.fsf@wcl-l.bham.ac.uk>
RA Jones <ra.jones@NO_UCE*cwcom.net> writes:
> In message <u9el6pzhqa.fsf@wcl-l.bham.ac.uk>, Brian McCauley
> <nobull@mail.com> writes
> >RA Jones <ra.jones@NO_UCE*cwcom.net> writes:
> >
> >> system hangs indefinitely on my PC test-bed, but works fine on the
> >> UNIX production server.
> >
> >I have observed exactly the same too.
>
> Wow - someone had the same problem as me! That's a novelty ;-)
It happens - sometimes.
> >I think it's an CGI-Apache-windows thing.
> >
> >Caused a bit of a panic here - we were moving a snapshot of one of our
> >projects from the Linux development platform to Windoze notebook demo
> >platform and suddenly it stopped working. I dove in to debug it, and
> >in passing noticed the warning so I shoved in a "no warnings
> >qw(uninitialized)" arround the line and suddenly the demo worked.
>
> What is the warning? I don't get anything.
If you run the same script on a Unix box you'll find a "Use of
uninitialized value in..." warning in the Apache error log.
When I said "I noticed the warning" I was trying the same script side
by side on Windows and Linux.
On the Win32 box you never see the warning because it seems that the
whole Apache thread freezes when the CGI script tries to write to
STDOUT.
> If it is ONLY a CGI-Apache-Windows 'feature', then I can live with it,
> as long as I am happy it is not caused by my sloppy coding!
Having any warnings being emitted from your CGI scripts is usually a
sign of sloppy coding.
If you actually want to interpolate undef variables into strings and
have them behave as empty strings (as I did in this particular line)
then you should switch off this warning (as I did).
my $thing = "Something containing $a_variable_that_may_be_undefined";
Becomes:
my $thing = do {
no warnings 'uninitialized';
"Something containing $a_variable_that_may_be_undefined";
};
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 3 Feb 2003 22:47:26 +0000
From: RA Jones <ra.jones@NO_UCE*cwcom.net>
Subject: Re: inconsistent handling of undefined values?
Message-Id: <aUn7nRC+FvP+Ewrd@nildram.co.uk>
In message <u94r7lxk07.fsf@wcl-l.bham.ac.uk>, Brian McCauley
<nobull@mail.com> writes
>Having any warnings being emitted from your CGI scripts is usually a
>sign of sloppy coding.
>
>If you actually want to interpolate undef variables into strings and
>have them behave as empty strings (as I did in this particular line)
>then you should switch off this warning (as I did).
>
>my $thing = "Something containing $a_variable_that_may_be_undefined";
>
>Becomes:
>
>my $thing = do {
> no warnings 'uninitialized';
> "Something containing $a_variable_that_may_be_undefined";
>};
>
Thanks Brian, that is very useful information - will give it a go and
see if it allows the script to run on Windows.
--
RA Jones
remove NO_UCE* from 'reply-to' address
ra(dot)jones(at)see-double-you-com(dot)net
------------------------------
Date: 3 Feb 2003 10:59:09 -0800
From: davebutler@hotmail.com (Dave Butler)
Subject: Interruption of Sleeping Perl Script
Message-Id: <4d7f2cbb.0302031059.675c94@posting.google.com>
Since upgrading from ActiveState Perl 5.6.1 to 5.8.0, I am seeing a
difference in the behavior of a rather simple script. Script1 acts as
a (crude) scheduler and sleeps until 6:40am the next day and then
calls another script (contained in $bfmove). The essence of script 1
is this code snippet:
while (true) {
$nextrun = get_date_seconds(6,40);
print "Next scheduled run: " . scalar localtime($nextrun) . "\n";
sleep ($nextrun - time());
my $rc = system($bfmove);
print "\n\n\n";
}
The problem is every time I return to my workstation, which is locked,
I reenter my password to access my desktop and then the sleeping
script is interrupted and the other script is called again. This did
not happen under ActiveState Perl 5.6.1. There were GPFs in another
part of the script under 5.6.1, which is why I upgraded.
Is there some signal I should be catching to avoid interrupting the
sleeping script?
I am running under Windows NT 4.
Thanks for any suggestions,
Dave Butler
------------------------------
Date: Mon, 03 Feb 2003 12:23:22 -0700
From: Ron Reidy <rereidy@indra.com>
Subject: Re: Interruption of Sleeping Perl Script
Message-Id: <3E3EC1AA.8030201@indra.com>
Why not use the Windows scheduler to schedule these scripts vs. this
script and sleeping for a day?
--
Ron Reidy
Oracle DBA
Dave Butler wrote:
> Since upgrading from ActiveState Perl 5.6.1 to 5.8.0, I am seeing a
> difference in the behavior of a rather simple script. Script1 acts as
> a (crude) scheduler and sleeps until 6:40am the next day and then
> calls another script (contained in $bfmove). The essence of script 1
> is this code snippet:
>
> while (true) {
> $nextrun = get_date_seconds(6,40);
> print "Next scheduled run: " . scalar localtime($nextrun) . "\n";
> sleep ($nextrun - time());
> my $rc = system($bfmove);
> print "\n\n\n";
> }
>
> The problem is every time I return to my workstation, which is locked,
> I reenter my password to access my desktop and then the sleeping
> script is interrupted and the other script is called again. This did
> not happen under ActiveState Perl 5.6.1. There were GPFs in another
> part of the script under 5.6.1, which is why I upgraded.
>
> Is there some signal I should be catching to avoid interrupting the
> sleeping script?
>
> I am running under Windows NT 4.
>
> Thanks for any suggestions,
>
> Dave Butler
------------------------------
Date: 3 Feb 2003 19:42:59 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Interruption of Sleeping Perl Script
Message-Id: <b1mgo3$77f$1@mamenchi.zrz.TU-Berlin.DE>
Dave Butler <davebutler@hotmail.com> wrote in comp.lang.perl.misc:
> Since upgrading from ActiveState Perl 5.6.1 to 5.8.0, I am seeing a
> difference in the behavior of a rather simple script. Script1 acts as
> a (crude) scheduler and sleeps until 6:40am the next day and then
> calls another script (contained in $bfmove). The essence of script 1
> is this code snippet:
>
> while (true) {
> $nextrun = get_date_seconds(6,40);
> print "Next scheduled run: " . scalar localtime($nextrun) . "\n";
> sleep ($nextrun - time());
> my $rc = system($bfmove);
> print "\n\n\n";
> }
>
> The problem is every time I return to my workstation, which is locked,
> I reenter my password to access my desktop and then the sleeping
> script is interrupted and the other script is called again. This did
> not happen under ActiveState Perl 5.6.1. There were GPFs in another
> part of the script under 5.6.1, which is why I upgraded.
>
> Is there some signal I should be catching to avoid interrupting the
> sleeping script?
This could well be a signal, but catching it won't stop it from interrupting
sleep().
You'll need to put a loop around sleep. This will make it immune to all
but the most violent signals:
sleep( $nextrun - time) while $nextrun > time;
If you need to kill the script gracefully, you'll have to catch *that*
signal, set a flag and look at the flag in the loop condition.
In any case, before blindly repeating sleep(), I'd find out what is
interrupting it. If it's a signal,
$SIG{ $_} = sub { print shift(), "\n" } for grep !/^__/, keys %SIG;
should show it.
Anno
------------------------------
Date: 3 Feb 2003 13:51:51 -0800
From: denap@yahoo.com (denap)
Subject: Is there a *better* way to deref and look for matches?
Message-Id: <850c108f.0302031351.2e2037ec@posting.google.com>
perl-newbie...
Here's a slow code snippet:
for $i (0 .. $#array){
for $j (0 .. $#{$array[$i]}) {
my @formula = @{$array[$i][$j]};
foreach my $func (@formula) {
my $orig = $func = lc $func;
for my $key (keys %sfunc_repl) {
if ($func =~ /$key/) {
$func =~
s/$sfunc_repl{$key}->[SEARCH]/$sfunc_repl{$key}->[REPLACE]/e;
print "\tREPLACING: $orig, \n\t\tWITH:
$func\n" ;
}
}
}
}
}
Is there a better way to find/replace matches given the structs here?
This seems way too clunky.
many thanks...
------------------------------
Date: 3 Feb 2003 22:54:51 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Is there a *better* way to deref and look for matches?
Message-Id: <b1mrvr$ern$1@mamenchi.zrz.TU-Berlin.DE>
denap <denap@yahoo.com> wrote in comp.lang.perl.misc:
> perl-newbie...
>
> Here's a slow code snippet:
>
> for $i (0 .. $#array){
> for $j (0 .. $#{$array[$i]}) {
> my @formula = @{$array[$i][$j]};
> foreach my $func (@formula) {
> my $orig = $func = lc $func;
> for my $key (keys %sfunc_repl) {
> if ($func =~ /$key/) {
> $func =~
> s/$sfunc_repl{$key}->[SEARCH]/$sfunc_repl{$key}->[REPLACE]/e;
> print "\tREPLACING: $orig, \n\t\tWITH:
> $func\n" ;
> }
> }
> }
> }
> }
>
> Is there a better way to find/replace matches given the structs here?
> This seems way too clunky.
The main thing that's wrong is the indexed access to @array. Rewrite
the outer loops as
for ( @array ) {
for ( @$_ ) {
for my $formula ( @$_ ) {
for my $func ( @$formula ) {
my $orig = $func = lc $func;
# etc...
}
}
}
}
This is a deeply nested array structure, and if it's not sparsely used
will take time to process.
The search/replace mechanism you use is very general. If you need the
generality, it's fine. It may perhaps be simplified by specialization.
Anno
------------------------------
Date: Mon, 03 Feb 2003 18:44:44 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Is there a *better* way to deref and look for matches?
Message-Id: <3E3EFEEC.93ABFB5A@earthlink.net>
denap wrote:
>
> perl-newbie...
>
> Here's a slow code snippet:
>
> for $i (0 .. $#array){
> for $j (0 .. $#{$array[$i]}) {
> my @formula = @{$array[$i][$j]};
> foreach my $func (@formula) {
This part could be replaced with:
for(@array) { for(@$_) { for my $func (@$_) {
Note, though, that since $func will alias to successive elements of your
original data -- so changing it, changes your data. Before, with your
code, changing $func only changes elements of @formula, which is a copy
of your data.
> my $orig = $func = lc $func;
Ehh, surely you meant:
$func = lc(my $orig = $func);
> for my $key (keys %sfunc_repl) {
> if ($func =~ /$key/) {
> $func =~
> s/$sfunc_repl{$key}->[SEARCH]/$sfunc_repl{$key}->[REPLACE]/e;
Repeated looping over %sfunc_repl is probably not the best thing in the
world to be doing, if you can avoid it. What's inside of the
$sfunc_repl{$key}->[SEARCH] part? Are these regexen, or literal
strings?
What's in the ->[REPLACE] part? Is this thing a tied variable, or
perhaps a blessed ref with an overloaded stringify? If it's not either
of these, then why is there that /e on the replacement?
Also, what kind of strings are in $func?
--
"So, who beat the clueless idiot today?"
"Well, we flipped for it, but when Kuno
landed, he wasn't in any shape to fight."
"Next time, try flipping a *coin.*"
------------------------------
Date: Mon, 3 Feb 2003 17:13:49 +0200
From: "Pons" <pons@gmx.li>
Subject: LWP
Message-Id: <b1m0kh$14mq13$1@ID-172702.news.dfncis.de>
During the LWP I got this
cpan > install Bundle::LWP
..
.
Failed Test Stat Wstat Total Fail Failed List of Failed
----------------------------------------------------------------------------
---
live/activestate.t 255 65280 2 2 100.00% 1-2
live/jigsaw-chunk.t 5 1 20.00% 2
live/jigsaw-md5-get.t 2 1 50.00% 2
live/jigsaw-md5.t 2 1 50.00% 2
live/validator.t 2 1 50.00% 2
Failed 5/36 test scripts, 86.11% okay. 6/366 subtests failed, 98.36% okay.
*** Error code 35
Stop in /root/.cpan/build/libwww-perl-5.69.
/usr/bin/make test -- NOT OK
Running make install
make test had returned bad status, won't install without force
Bundle summary: The following items in bundle Bundle::LWP had installation
problems:
LWP
-Pons
------------------------------
Date: Mon, 03 Feb 2003 15:43:52 -0500
From: Shane McDaniel <shanem@nospam.ll.mit.edu>
Subject: minor code fix.
Message-Id: <3E3ED488.7B52F97D@nospam.ll.mit.edu>
Bah sorry, switched from mainly doing C++ :)
> I have the following code ( chopped down )
>
> use Class::Struct;
>
> struct Node =>
> {
> children =>'%';
Make that
children => '%',
> };
>
> my $parent = new Node->new();
Make that
my $parent = Node->new();
-shane
------------------------------
Date: Mon, 3 Feb 2003 23:10:11 +0100
From: Lao Coon <laocoon@eudoramail.com>
Subject: Re: minor code fix.
Message-Id: <Xns9317EBC05844DLaocoon@62.153.159.134>
Shane McDaniel <shanem@nospam.ll.mit.edu> wrote in
news:3E3ED488.7B52F97D@nospam.ll.mit.edu:
*snip*
>> my $parent = new Node->new();
>
> Make that
> my $parent = Node->new();
Indeed and
> keys ( $parent->children )
make that
keys ( %{$parent->children} )
> -shane
Lao
------------------------------
Date: Mon, 3 Feb 2003 17:34:30 -0500
From: "Consultants HQ" <sheken@videotron.ca>
Subject: OT - Advertisement - Offer your IT services as a consultant for free!
Message-Id: <H7C%9.25193$uc3.317993@weber.videotron.net>
Are you a freelance consultant looking to get some contracts done ?
Why not advertise your skills for free at www.conhq.com
Our sign-up process takes less than 5 minutes and you can start showing the
world what you can do!
If you are a company requiring IT consultants then just come to
www.conhq.com and you can search our database for a consultant that matches
your needs based on : skills, location, price, etc
You can also post your projects and have our consultants view them
immediately!
- Consultants Headquarters
------------------------------
Date: Mon, 3 Feb 2003 17:22:36 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: OT - Advertisement - Offer your IT services as a consultant for free!
Message-Id: <slrnb3tuds.4m4.tadmc@magna.augustmail.com>
Consultants HQ <sheken@videotron.ca> wrote:
> Subject: OT - Advertisement - Offer your IT services as a consultant for free!
Labeling it as "bad" does not make it "good".
Is it OK to rob the 7-11 if I say up front that I am a robber?
> Why not advertise your skills for free at www.conhq.com
Because of their obvious lack of ethics.
Does the "con" stand for "confidence" by any chance?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 03 Feb 2003 19:52:41 -0000
From: Monte <AnybodyButGeeDubya@in2004.com>
Subject: OT but a PERL job is available in Houston
Message-Id: <Xns93178D1C26D13Monte@216.168.3.44>
i realize this is waaaayyyy OT in here, BUT. Over the years
several people in here have helped me and this might in some
way help one of them. I noticed in todays Houston chronicle
(Mon 2/3/02) the ad for a PERL programmer for the Chronicle.
Details posted below. I figured with the way things are in
the IT world right now a decent job in programming might be
fairly scarce. I apoligize for the por quality of the post
(below) but hey my scanner and OCR ain't top o the line. ;)
There are worse locations than Houston in which to live (any
other place in Texas fer instance heh) The cost of living is
fairly low. If you have children and want them well educated,
do not come here, the schools are some of the very worst in
the nation, period. BUT Houston is the center of a medical
complex that is one of the best in the world. the only other
really bad aspect to consider is that you will be surrounded
by Texans. ;)
So all that said here's the ad.
g'luk
Monte
===============================================
PERL PROGRAMMER
The Houston Chronicle has an excellent opportunity for an
experienced Programmer In the Online Technologies Department.
This position is responsible for full-cycle development:
analysis and evaluation of existing application systems,
design and development of system enhancements. Additional
responsibilities include:
Review, analysis, and modification of programming systems
including encoding, testing, debugging and installing software
Gathering requirements from users to create specifications and
develop code
Interfacing with legacy data systems and scripting for SQL
database-driven dynamic content
Scripting for dynamic user interface elements as well as
offline content processing, backups, and other maintenance
Qualified applicants will have strong experience in client-
server application development, web development and n-tier
application architecture, 3-'- years of software development
in a business environment, above average written and verbal
communication skills and a Computer Science Degree or
equivalent .experience. Skills should include at minimum:
HTML, CGI. C language, object-oriented languages, TCP/IP, Unix
shell scripts, Pen 5 scripting in a Unix/Linux environment and
Apache. Experience with Solaris 8 preferred.
We offer:
An excellent benefit package
Competitive salary
Opportunity to work with an innovative team with state of
the art technology
Opportunity for cross training
If you would like to become part of an innovative and winning
team, please submit resume and salary requirements to:
Houston Chronicle
801 Texas Avenue
Houston, Texas 710432
Attn: Human Resources/Programmer
EOE The Houston ChronIcle is an Equal Oppon100iw Employer
------------------------------
Date: 3 Feb 2003 13:03:45 -0800
From: xeo_at_thermopylae@yahoo.com (tom)
Subject: OT but a PERL job is available in Houston
Message-Id: <216ee648.0302031303.3be1a377@posting.google.com>
The ad has been up for months. It may be a setup for an H1-B applicant
they have picked out. Employers apparently need to interview and
reject a certain number of U.S. citizens for a job before they are
allowed to hire on the H1-B program. Doing this and documenting it
takes time.
I once interviewed with them. They said that they would probably be
hiring the Indian fellow already working there as a contractor. They
even introduced me to him. Nice chap.
------------------------------
Date: Tue, 4 Feb 2003 00:35:26 +0000 (UTC)
From: "David H. Adler" <dha@panix.com>
Subject: Re: OT but a PERL job is available in Houston
Message-Id: <slrnb3u2me.lfm.dha@panix2.panix.com>
In article <Xns93178D1C26D13Monte@216.168.3.44>, Monte wrote:
> i realize this is waaaayyyy OT in here, BUT.
Uh... but what? It's still out of place here...
Standard text follows...
You have posted a job posting or a resume in a technical group.
Longstanding Usenet tradition dictates that such postings go into
groups with names that contain "jobs", like "misc.jobs.offered", not
technical discussion groups like the ones to which you posted.
Had you read and understood the Usenet user manual posted frequently to
"news.announce.newusers", you might have already known this. :) (If
n.a.n is quieter than it should be, the relevent FAQs are available at
http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
Another good source of information on how Usenet functions is
news.newusers.questions (information from which is also available at
http://www.geocities.com/nnqweb/).
Please do not explain your posting by saying "but I saw other job
postings here". Just because one person jumps off a bridge, doesn't
mean everyone does. Those postings are also in error, and I've
probably already notified them as well.
If you have questions about this policy, take it up with the news
administrators in the newsgroup news.admin.misc.
http://jobs.perl.org may be of more use to you
Yours for a better usenet,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
Packard Bell doesn't make computers, they make elaborate paperweights.
- Mark Rogaski
------------------------------
Date: Tue, 04 Feb 2003 02:39:12 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: OT but a PERL job is available in Houston
Message-Id: <kJF%9.1053$993.42@nwrddc02.gnilink.net>
tom wrote:
> The ad has been up for months. It may be a setup for an H1-B applicant
> they have picked out. Employers apparently need to interview and
> reject a certain number of U.S. citizens
s/citizen/people who are allowed to work in the USA/
> for a job before they are
> allowed to hire on the H1-B program. Doing this and documenting it
> takes time.
Actually that's not quite correct. The requirements which you described
above apply to the Labor Certification, which is the first step for an
employment based permanent residency ("Green Card").
For an H1B the employer has only to show that the job requires a university
degree (and that the applicant has that degree, of course). There are also
requirements regarding salary etc. but that's a different topic.
jue
------------------------------
Date: Mon, 03 Feb 2003 18:04:51 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: Parse a logfile - 1st column DateStamp; extract latest mods toan ItemNumber
Message-Id: <3E3EF593.C8AA9A8@earthlink.net>
Mina Naguib wrote:
[snip]
> | TimeStamp in YYYYMMDDHHMMSS
> | format|ItemNumber|Attribute1|Attribute2|Attribute3
> |
> | Sample Input File
> | 20020731114502|0144058Y01|CHRM|LHSG|MISC
> | 20030109174500|0144058Y01|PLAS|RHSG|MISC
[snip]
> If you want it sorted by the item id as in your "desired output":
>
> perl -naF'\|' -e '$i{$F[1]} = $_ if ($F[0] > $i{$F[1]});
> END {map {print $i{$_}} sort keys %i}' infilename > outfilename
There's no need for the map{} there:
perl -naF'\|' \
-e '$i{$F[1]} = $_ if $F[0] > $i{$F[1]};'
-e 'END {print @i{sort keys %i}}' \
infilename > outfilename
See perldoc perldata for more info on hash slices.
--
"So, who beat the clueless idiot today?"
"Well, we flipped for it, but when Kuno
landed, he wasn't in any shape to fight."
"Next time, try flipping a *coin.*"
------------------------------
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.
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 V10 Issue 4507
***************************************
