[10346] in Perl-Users-Digest
Perl-Users Digest, Issue: 3939 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 9 22:07:30 1998
Date: Fri, 9 Oct 98 19:00:21 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 9 Oct 1998 Volume: 8 Number: 3939
Today's topics:
Re: Are there any "perl.newbie" group or forum? <mp@mkt2mkt.com>
Re: Are there any "perl.newbie" group or forum? <merlyn@stonehenge.com>
Re: Brining a TK Main Window to the front <m.v.wilson@erols.com>
Re: CGI perl book <mp@mkt2mkt.com>
Checking file size and date in Perl Win32 <hteam@inlink.com>
Re: Difficulty with HTML & Perl & CGI <mp@mkt2mkt.com>
FTP server, module? <seanr@rmci.net>
Fun with Arrays of Hashes (Darren Greer)
Help with this code <imran@netwave.ca>
Re: Help with this code (Darren Greer)
Re: Help with this code (Matthew Bafford)
Re: How do I use die? (Brand Hilton)
Re: How do I use die? <m.v.wilson@erols.com>
Re: How do I use die? <brettr@centuryinter.net>
Re: Hrm. Linguistic Quandry (Charles DeRykus)
Re: HTML extract problem (Kay Molkenthin)
Newbie to Linux and Perl <raul_t@pacbell.net>
Perl FTP API <cstolpe@acm.org>
Re: prograMing: CompleteIndexSet <rick.delaney@shaw.wave.ca>
RegExp Hell! nanobreath@my-dejanews.com
Re: strange problem with shift()... - Thanks! <psmith01@mindspring.com>
To all spanish people ! dragnovich@my-dejanews.com
Re: To all spanish people ! <m.v.wilson@erols.com>
Re: To all spanish people ! (Larry Rosler)
Re: WANTED: experienced web developers <m.v.wilson@erols.com>
Web/E-Commerce Programmer edbillion@my-dejanews.com
Writing an intelligent forking server. ed-hill@uiowa.edu
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 09 Oct 1998 18:41:09 -0800
From: madame philosophe <mp@mkt2mkt.com>
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <361EC93D.B86F2BD@mkt2mkt.com>
Elaine -HappyFunBall- Ashton wrote:
> John Porter wrote:
>
> > Strange, I don't find that conclusion inescapable.
> > IMHO, there is a wide world of difference between self-styled
> > philosophers, and trolls like George Vogon Reese.
I would guess from your post that a George Reese is a meta-troll from
the sound of it.
May I never witness such a person's post.
(wasn't that the name of the guy on original Superman TV Show? I heard
he killed himself because he REALLY thought he was Superman, leaping
buildings and confronting trains, that macho stuff)
> Reese is Reese. I suspect this person is well known to the group and
> playing the anti-abigail routine. I could be wrong, but my intuition
> says likely. It's entertaining. :)
Because I have such respect for your posts Elaine, I would not want to
cause you a reason to question your intuition.
However I would have to say Mr. Jars is probably more correct that I'm a
flamboyant poster, rather than a troll imposter! :)
mp
------------------------------
Date: Sat, 10 Oct 1998 01:55:06 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <8c7ly9qiyw.fsf@gadget.cscaper.com>
>>>>> "madame" == madame philosophe <mp@mkt2mkt.com> writes:
madame> I see that Tom Phoenix regularly posts a How to use the Perl
madame> Faq, but unless you stumble on it it's hard to find in the
madame> muddle!
There's not much muddle in comp.lang.perl.announce, in which Tom's
fine post gets posted about once a week or so. (I see to that.)
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sat, 10 Oct 1998 00:14:07 +0000
From: WMWilson <m.v.wilson@erols.com>
Subject: Re: Brining a TK Main Window to the front
Message-Id: <361EA6CF.7F86ECA3@erols.com>
Chris Mihaly wrote:
>
> Is there a Tk method that will raise the main Tk window to the top of
> the stacking order? I would like to make my main application window
> come to the top when the backgroup processing for a particular step
> invoked by the app is completed. Is there a way to do this in Tk? Can
> I get an X11 like X11_Protocol module and raise the Tk window that way
> (how do I get the window object/id from Tk?
>
> Thanks for any help
> Chris
No real flame intended, but there is a perl/Tk newsgroup also.
--
\||/
(..)
+---oOOo-----(_)-----oOOo-----+
| mailto:m.v.wilson@erols.com |
| WMWilson |
|__USCS Data Center Sysadmin__|
------------------------------
Date: Fri, 09 Oct 1998 18:56:45 -0800
From: madame philosophe <mp@mkt2mkt.com>
Subject: Re: CGI perl book
Message-Id: <361ECCE3.818CC15C@mkt2mkt.com>
dave@mag-sol.com wrote:
> nguyen.van@imvi.bls.com wrote:
> > >
> > > Hi guys,
> > >
> > > I want to know which book is the excellent one for Perl CGI. I want to buy
> one so that I can write CGI scripts.
> > >
> > > Thanks
> > > Van
> > >
>
> Shisir's book is looking a little dated now (no mention of CGI.pm for
> example). A new edition (renamed to 'CGI Programming with Perl') is listed on
> the O'Reilly web site as being published in January.
>
> In the meantime, you might also look at Licoln Stein's 'Official Guide to
> Programing with CGI.pm' pbulished by Wiley (I think!)
>
> hth,
>
> Dave...
>
I think you must already know that I am a big CGI.pm fan. I would second that
the 'Official Guide' is the best CGI book I've found to date.
check out:
http://www.wiley/compbooks/stein
There, the book's sample source is available for free if you'd rather not buy the
book.
------------------------------
Date: 10 Oct 1998 01:47:11 GMT
From: "Joe H." <hteam@inlink.com>
Subject: Checking file size and date in Perl Win32
Message-Id: <01bdf3ef$b31d0a00$598d87d1@Calvin.daugherty.com>
How do I do this in perl for Win32? Is it a module and if so where do I go
to get it? Thanks in advance.
Joe H.
------------------------------
Date: Fri, 09 Oct 1998 18:29:28 -0800
From: madame philosophe <mp@mkt2mkt.com>
Subject: Re: Difficulty with HTML & Perl & CGI
Message-Id: <361EC680.6F2EFEF3@mkt2mkt.com>
> print(
> $query->header(),
>
> $query->start_html(-title=>'No Title', -bgcolor=>'white'),
>
> $query->h4({-align=>'center'}, "Testing 4..."),
>
> $query->end_html,
> );
>
> > I like spacing my code out, personally. And yeah sure the () after
> > header can go, since it defaults to the Content-type: text/html
>
> No, technically it can go because subroutine (header) ignores the
> argument list. () passes no arguments (besides the object ref),
> and leaving it off passes the current @_. Safe, because the sub
> ignores it.
This is not what is in the CGI.pm book, I was under the impression that If
I wanted to create my own MIME header I would be able to by including an
argument in the header() shortcut.
Not that I desire to define my own at this time...I'm happy using the
default for html.
> > Which leads me to a question actually:
> >...
> > let's say I have a text file that looks something like this:
> > Now if I were to place a conditional that said something like
> >...
> > If there is text delimited by tags #**## (to start) and ##**# (to end)
> > print that text.
>
> I encourage you to check module listing on CPAN; search for the
> word 'template'.
Thanks! Will do!
mp
------------------------------
Date: Fri, 9 Oct 1998 11:13:33 -0600
From: "Sean Rietze" <seanr@rmci.net>
Subject: FTP server, module?
Message-Id: <361e44bd.0@news.rmci.net>
Does anyone know if someone has publised code or a module that
implements a FTP server in Perl?
If so, where?
Thanks in advance,
Sean Rietze
------------------------------
Date: Sat, 10 Oct 1998 00:37:37 GMT
From: drgreer@qtiworld.com (Darren Greer)
Subject: Fun with Arrays of Hashes
Message-Id: <361eabb2.811494407@news.qgraph.com>
Howdy.....Ive got an aray of hashes...and am trying to print one of
hte values in one of the hashes.....for example:
$array[0] = (%hash = ('var1',$var1,'var2,$var2) );
Now I want to print 'var1' from the hash.......how do I do it....I
looked through the camel...and cant seem to figure it out...I tried
this:
$array[0]->{$hash}->{'var1'}
But it does not seem to work......any help would be
appreciated......thanks,
Darren
------------------------------
Date: Fri, 09 Oct 1998 20:58:07 -0400
From: Imran Zalfackruddin <imran@netwave.ca>
Subject: Help with this code
Message-Id: <361EB11F.56C8ADAE@netwave.ca>
Hello:
I have attached a snip of a code. I am getting a syntax error on the
assignment to the
FORM array. What is wrong with the code??? Any help would be greatly
appreciated.
Regards.
Imran.
--------------------------------------------
open(IN,"</var/apps/xxxx.dat");
while(<IN>) # For each line of the file:
{
#
#
# SPlit the inputline into its subcomponets
# Each line has 40 sub components
#
@hold = split(/:/,$_);
if(/^#/) { next; } # Discard comments.
$FORM{'sessions'} = $hold(21); <--------------
syntax error here
$FORM{'expiration'} = $hold(9);
------------------------------
Date: Sat, 10 Oct 1998 00:58:26 GMT
From: drgreer@qtiworld.com (Darren Greer)
Subject: Re: Help with this code
Message-Id: <361eb0eb.812831580@news.qgraph.com>
>Hello:
>
>I have attached a snip of a code. I am getting a syntax error on the
>assignment to the
>FORM array. What is wrong with the code??? Any help would be greatly
>appreciated.
>
>Regards.
>Imran.
>
>--------------------------------------------
>open(IN,"</var/apps/xxxx.dat");
>while(<IN>) # For each line of the file:
>{
> #
>
> #
> # SPlit the inputline into its subcomponets
> # Each line has 40 sub components
> #
>
> @hold = split(/:/,$_);
>
> if(/^#/) { next; } # Discard comments.
>
> $FORM{'sessions'} = $hold(21); <--------------
Shouldnt this be: $FORM{'sessions'} = $hold[21];
Use the brackets instead of the parenthasis....
Darren
>syntax error here
> $FORM{'expiration'} = $hold(9);
>
------------------------------
Date: Fri, 9 Oct 1998 21:25:39 -0400
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: Help with this code
Message-Id: <MPG.1088819b98b6e0b9896cf@news.south-carolina.net>
In article <361EB11F.56C8ADAE@netwave.ca> on Fri, 09 Oct 1998
20:58:07 -0400, Imran Zalfackruddin (imran@netwave.ca) pounded in
the following text:
=> Hello:
=>
=> I have attached a snip of a code. I am getting a syntax error on the
=> assignment to the
=> FORM array. What is wrong with the code??? Any help would be greatly
=> appreciated.
=>
=> --------------------------------------------
=> open(IN,"</var/apps/xxxx.dat");
open IN, "</var/apps/xxxx.dat" or
die "Couldn't open /var/apps/xxxx.dat for reading, 'cause: $!\n";
To quote Tom Phoenix:
...
Even when your script is "just an example" (and perhaps
especially in that case!) you should _always_ check the
return value after opening a file.
...
=> while(<IN>) # For each line of the file:
=> {
=>
=> @hold = split(/:/,$_);
=>
=> if(/^#/) { next; } # Discard comments.
=>
=> $FORM{'sessions'} = $hold(21);
$FORM{sessions} = $hold[21];
=> $FORM{'expiration'} = $hold(9);
$FORM{expiration} = $hold[9];
=>
=>
The error is not in your assignment, but rather in your attempt
to read from @hold. Rather than parentheses, you need to use
brackets '[]'. At least you have $ rather than @... That's
good. :)
Next time, though, it'd be best if you posted the error messages
you are getting. This makes it a lot easier for us to see what's
actually happening... :)
=> Regards.
Hope This Helps!
=> Imran.
--Matthew
PS: Take a quick look at:
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
------------------------------
Date: 9 Oct 1998 23:32:17 GMT
From: bhilton@tsg.adc.com (Brand Hilton)
Subject: Re: How do I use die?
Message-Id: <6vm6e1$7p211@mercury.adc.com>
In article <6vm0i1$pi1$1@newsread1-mx.centuryinter.net>,
brettr <brettr@centuryinter.net> wrote:
>I'd like to know how to use die for catching errors. I have a module that
>uses die. The module is "required" in my script but I'm not sure where in my
>script I should use die().
>
>Thanks,
>brettr
Your name was starting to look mighty familiar to me, so I took a
quick look back in the news archives for the past few days. I have a
very good piece of advice for you.
You need to go to your local book store and find this book:
"Teach Yourself CGI Programming with Perl for Dummies in 21 Days"
It comes with a CD-ROM that has all sorts of sample programs in it.
It's really great.
It's kind of hard to find, so you might have to go to two or three
stores before you find a copy, but don't give up.
HTH
--
_____
|/// | Brand Hilton bhilton@adc.com
| ADC| ADC Telecommunications, ATM Transport Division
|_____| Richardson, Texas
------------------------------
Date: Sat, 10 Oct 1998 00:27:24 +0000
From: WMWilson <m.v.wilson@erols.com>
Subject: Re: How do I use die?
Message-Id: <361EA9EC.F022F1C1@erols.com>
brettr wrote:
>
> I'd like to know how to use die for catching errors. I have a module that
> uses die. The module is "required" in my script but I'm not sure where in my
> script I should use die().
>
> Thanks,
> brettr
Is this a joke or something? I sure don't get it, if it is. You
could man perlfaq3 and see die I think. Anyone that's too lazy to even
read that much needs to read or die "Too lazy to bother with it $!";
--
\||/
(..)
+---oOOo-----(_)-----oOOo-----+
| mailto:m.v.wilson@erols.com |
| WMWilson |
|__USCS Data Center Sysadmin__|
------------------------------
Date: Fri, 9 Oct 1998 19:26:27 -0500
From: "brettr" <brettr@centuryinter.net>
Subject: Re: How do I use die?
Message-Id: <6vm9m5$1r7$1@newsread1-mx.centuryinter.net>
Advice taken.
Brand Hilton wrote in message <6vm6e1$7p211@mercury.adc.com>...
>In article <6vm0i1$pi1$1@newsread1-mx.centuryinter.net>,
>brettr <brettr@centuryinter.net> wrote:
>>I'd like to know how to use die for catching errors. I have a module that
>>uses die. The module is "required" in my script but I'm not sure where in
my
>>script I should use die().
>>
>>Thanks,
>>brettr
>
>
>Your name was starting to look mighty familiar to me, so I took a
>quick look back in the news archives for the past few days. I have a
>very good piece of advice for you.
>
>You need to go to your local book store and find this book:
>
> "Teach Yourself CGI Programming with Perl for Dummies in 21 Days"
>
>It comes with a CD-ROM that has all sorts of sample programs in it.
>It's really great.
>
>It's kind of hard to find, so you might have to go to two or three
>stores before you find a copy, but don't give up.
>
>HTH
>
>--
> _____
>|/// | Brand Hilton bhilton@adc.com
>| ADC| ADC Telecommunications, ATM Transport Division
>|_____| Richardson, Texas
------------------------------
Date: Fri, 9 Oct 1998 23:36:11 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: Hrm. Linguistic Quandry
Message-Id: <F0L2wB.7H4@news.boeing.com>
In article <361E70B6.233ED094@bbnplanet.com>,
Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> wrote:
....
>> Remember, a word means exactly what I choose it to mean;
>> nothing more and nothing less.
>
>Oh really? I highly doubt that as you must also take into account the
>reader. Text is two-dimensional, people are three-dimensional and words
>have both definitions and connotations.
>
Er, Elaine was just having a bit of fun - that's from
"Alice in Wonderland".
--
Charles DeRykus
------------------------------
Date: 9 Oct 1998 23:17:46 GMT
From: molkiheg@sp.zrz.tu-berlin.de (Kay Molkenthin)
Subject: Re: HTML extract problem
Message-Id: <slrn71t5no.i7.molkiheg@kay.chaos.network>
Jonathan Feinberg <jdf@pobox.com> wrote:
>molkiheg@sp.zrz.tu-berlin.de (Kay Molkenthin) writes:
>
>If you'd show us the perl code that's giving you trouble, we'll be
>better able to help you.
Hi,
sorry but I am not able to because I am not experienced in searching & cutting
text with perl.
Perhaps the HTML-code from this page can help you. This is the important part
of each HTML-file:
---<snip>
<TABLE cellpadding=0 valign=top cellspacing=0 border=0 width=420>
.
.
.
[THIS=1 ROW IN THE TABLE REPEATS 4 TIMES IN 1 PAGE]
<tr valign="top">
<td width=245 valign="top">
<font size="2">
I need-----------------------------------|
<font size="2"><em><b>Alte Marner Sparkasse</b></em></font><br>
I need-------------------------------|
<font size="2"><em><b>Kvnigstr. 19-21</b></em></font><br>
I need------------------------------|
<font size="2"><em><b>25709 Marne</em></font><br>
I need------------------------|
Telefon: <em><b>04851 / 902-0</b></em><br>
I need------------------------|
Telefax: <em><b>04851 / 902-110</b></em><br>
I need------------------|
BLZ: <em><b>21851720</b></em><br>
I need--------------------|
Verband: <em><b>SGVSH</b></em><br>
e-Mail: <em><b><a href="mailto:"></a></b></em><br>
online: <em><b><a href="http://www.spk-marne.de"
target="_top">http://www.spk-marne.de</a></b></em><br>
</font>
</td>
<td width=245 valign="top">
<font size="2">
<font size="2"><em><b>Bayerische Landesbausparkasse</b></em></font><br>
<font size="2"><em><b>Arnulfstr. 50</b></em></font><br>
<font size="2"><em><b>80335 M|nchen</em></font><br>
Telefon: <em><b>089 / 2171-02</b></em><br>
Telefax: <em><b>089 / 2171-7000</b></em><br>
BLZ: <em><b>0</b></em><br>
Verband: <em><b>LBS</b></em><br>
e-Mail: <em><b><a
href="mailto:info@lbs-bayern.de">info@lbs-bayern.de</a></b></em><br>
online: <em><b><a href="http://www.lbs-bayern.de"
target="_top">http://www.lbs-bayern.de</a></b></em><br>
</font>
</td>
</tr>
[REPEAT END]
</TABLE>
---<snip>
The good thing is that every page's structure is the same (I think they
copy & pasted them).
The result has to be a file in this format:
Alte Marner Sparkasse;Kvnigstr. 19-21;25709 Marne;04851 / 902-0;04851 /
902-110;21851720;SGVSH
Bayerische Landesbausparkasse;Arnulfstr. 50;80335 M|nchen;089 / 2171-02;089 /
2171-7000;0;LBS
.
.
.
The HTML-file are called "skX" where X goes from 1 to 41 (sk1-sk41).
At the end I have to build a MS Access Database from this file which is no
problem.
Kay.
--
Kay Molkenthin - R|sternallee 45 - 14050 Berlin - GERMANY
Email: Kay_Molkenthin@Bigfoot.de / molkiheg@sp.zrz.tu-berlin.de
Key fingerprint = 1F 15 D1 F8 46 D8 06 4E D4 BC 09 D2 A9 38 20 02
------------------------------
Date: Fri, 9 Oct 1998 18:15:55 -0700
From: "Raul Trujillo" <raul_t@pacbell.net>
Subject: Newbie to Linux and Perl
Message-Id: <6vmchh$i77$1@nnrp4.snfc21.pbi.net>
I just installed Red Hat Linux 5.1 on my PC. I'm trying to get Perl to run
some of the scripts I've put in the cgi-bin (/home/httpd/cgi-bin). I've
started with the very first script on the book, "Hello World."
I have typed it in this format:
#!/usr/bin/perl
print "Hello, world!\n";
and put it in the cgi-bin. I saved it with a ".cgi" extension. I chmod the
cgi-bin with "755." And I created a link to the script in an HTML page in
this manner (a href="file:/home/httpd/cgi-bin/sample.cgi"). After I click
on the link, I get the sample script on the Netscape Communicator 4.0
browser and I get nothing but the same HTML page on KDE. I have checked
where my Perl program is, and it is in /usr/bin/perl. Can anyone please
tell me what am I missing?
Thanks...
raul_t@pacbell.net
------------------------------
Date: Fri, 09 Oct 1998 20:17:34 -0400
From: Chris Stolpe <cstolpe@acm.org>
Subject: Perl FTP API
Message-Id: <361EA79D.1A0C956B@acm.org>
Is there a Perl FTP API available?
Thanks
Chris Stolpe
------------------------------
Date: Sat, 10 Oct 1998 00:03:42 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: prograMing: CompleteIndexSet
Message-Id: <361EA5EF.6E0E7F05@shaw.wave.ca>
[posted & mailed]
Xah wrote:
>
> Write the function CompleteIndexSet.
[snip description]
> Here are some sample inputs and outputs. (from Mathematica)
>
[snip most]
> In[93]:=
> CompleteIndexSet[{{3,2},{1,1},{5}}]
>
> Out[93]=
> {{},{0},{1},{2},{3},{4},{5},{1,0},{1,1},{3,0},{3,1},{3,2}}
>
> (The empty braces represent the root node. We can ignore it in Perl.
Why? Anything Mathematica can do...
> Here's the Mathematica code that generated the samples.
>
> CompleteIndexSet[indexes_List]:=
> Union[Flatten[
> Map[(FixedPointList[
> > Replace[#,{frest___,x_}:>If[x=!=0,{frest,x-1},{frest}]]&,#]&),
> indexes],1]]
Okay, maybe not as short as Mathematica, but this should be pretty
quick:
#!/usr/local/bin/perl -w
my @out = CompleteIndexSet([100,100,100],[100,100,100],[100,100,100]);
for my $ref (@out) {
local $" = ',';
print "[@$ref]\n";
}
sub CompleteIndexSet {
# Here's a case where I wish I could use a reference as
# a hash key
my %out = map { my $b = $_;"@$b" => $_} @_;
for my $ele (@_) {
my @arr = @$ele;
while(@arr) {
$arr[-1]-- || pop @arr;
last if $out{"@arr"};
$out{"@arr"} = [@arr];
};
}
return values %out;
}
__END__
I couldn't be bothered sorting the output. Does that matter?
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sat, 10 Oct 1998 00:05:30 GMT
From: nanobreath@my-dejanews.com
Subject: RegExp Hell!
Message-Id: <6vm8ca$400$1@nnrp1.dejanews.com>
Hello! Hopefully some kind soul will take mercy on me and defeat the reg exp
demons ... I am trying to truncate a variable at one particular point, and
then save everything before that point in another variable. For instance,
domain.com
What I want it to do is take everything *before* the . and put it into
another variable. So, if before is domain.com, after is domain
I swear, I have looked through several explanations of regular expressions
& I think it is something I really have to sit down with. Unfortunately,
I'm trying to get this done... this is NOT my homework, by the way.
If possible, please send email to me at rbaguer@freenet.columbus.oh.us
because I am physically unable to check newsgroups all the time. Thanks
a lot.
ryan
--
nanobreath@my-dejanews.com
open source everything
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 09 Oct 1998 19:17:57 -0400
From: Peter Smith <psmith01@mindspring.com>
Subject: Re: strange problem with shift()... - Thanks!
Message-Id: <361E99A5.5964058F@mindspring.com>
Thanks to all for the help! My stupid error - must've been late. I
have to admit, the command-line solution kicks ass!
I don't feel too bad - I managed to use a %Hash to make the program more
Perlish before I checked back...
Thanks again.
--
--Peter--
psmith01@mindspring.com
------------------------------
Date: Fri, 09 Oct 1998 22:24:50 GMT
From: dragnovich@my-dejanews.com
Subject: To all spanish people !
Message-Id: <6vm2fi$qkt$1@nnrp1.dejanews.com>
Hello this a message in spanish soo if you don know spanish, for all the
spanic people on the Perl world...
--- START
Amigos estamos conformando un News group de programacion (perl y otros temas
relacionados a Internet) pero en lenguaje espaqol. Para toda la comunidad
latina.
Para toda la gente interesada en este foro, por favor envien un mensaje, en
donde digan si estan interesados. Por Email preferentemente! A
perlesp@qdesigns.com
--- END
That's all the message says that we are making a perl discusion group in
spanish.
------------------------
Juan Carlos Lopez
QDesigns President & CEO
http://www.qdesigns.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sat, 10 Oct 1998 00:22:27 +0000
From: WMWilson <m.v.wilson@erols.com>
Subject: Re: To all spanish people !
Message-Id: <361EA8C3.2377043D@erols.com>
dragnovich@my-dejanews.com wrote:
>
> Hello this a message in spanish soo if you don know spanish, for all the
> spanic people on the Perl world...
>
> --- START
> Amigos estamos conformando un News group de programacion (perl y otros temas
> relacionados a Internet) pero en lenguaje espaqol. Para toda la comunidad
> latina.
>
> Para toda la gente interesada en este foro, por favor envien un mensaje, en
> donde digan si estan interesados. Por Email preferentemente! A
>
> perlesp@qdesigns.com
>
> --- END
> That's all the message says that we are making a perl discusion group in
> spanish.
>
> ------------------------
> Juan Carlos Lopez
> QDesigns President & CEO
> http://www.qdesigns.com
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
Bravo, extremely professional Juan. It's nice to see someone with
manners from time to time.
--
\||/
(..)
+---oOOo-----(_)-----oOOo-----+
| mailto:m.v.wilson@erols.com |
| WMWilson |
|__USCS Data Center Sysadmin__|
------------------------------
Date: Fri, 9 Oct 1998 18:33:22 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: To all spanish people !
Message-Id: <MPG.10885939c1cf135d9897ff@nntp.hpl.hp.com>
In article <6vm2fi$qkt$1@nnrp1.dejanews.com> on Fri, 09 Oct 1998 22:24:50
GMT, dragnovich@my-dejanews.com <dragnovich@my-dejanews.com> says...
...
> Amigos estamos conformando un News group de programacion (perl y otros temas
> relacionados a Internet) pero en lenguaje espaqol. Para toda la comunidad
> latina.
...
> That's all the message says that we are making a perl discusion group in
> spanish.
Well, it actually says "Perl and other subjects related to the Internet"
which might catch some flames here about Perl not being related to the
Internet! :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 10 Oct 1998 00:18:47 +0000
From: WMWilson <m.v.wilson@erols.com>
Subject: Re: WANTED: experienced web developers
Message-Id: <361EA7E7.2A0B04A5@erols.com>
echiu@imservice.com wrote:
>
> Direct job candidates only, no agencies please.
> Internet Media Services
> http://www.imservice.com
>
> Web Application Engineers / Programmers / Developers Job Code #DEV-001: The
> backbone of any software product is solid technology used creatively. IMS is
> constantly pushing the envelope of what can be done with the existing
> technology while thinking of our clients needs first. We are looking for
> outstanding engineers, programmers and developers who want to solve business
> problems never solved before.
>
> Required Experience:
> Application development and testing, interface elements organization and
> creation, front end database development.
> HTML, Java Script, code/project management, Active Server Page, enterprise
> database connectivity, Intranet/Internet database connectivity.
> Desired: CGI (Perl), C++, Java, MS SQL Server, Oracle, MS Access.
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
You'd thinks these people might actually check these newsgroups out
before posting job offers to them. Then maybe they'd see the flaming
happening to one job poster and decide to take the hint. At least this
guy _did_ post to misc.jobs.offered though.
--
\||/
(..)
+---oOOo-----(_)-----oOOo-----+
| mailto:m.v.wilson@erols.com |
| WMWilson |
|__USCS Data Center Sysadmin__|
------------------------------
Date: Fri, 09 Oct 1998 23:21:56 GMT
From: edbillion@my-dejanews.com
Subject: Web/E-Commerce Programmer
Message-Id: <6vm5qk$vu3$1@nnrp1.dejanews.com>
Web/E-Commerce Programmer
Heres a great opportunity to join a fun and talented New Media team in
Woodland Hills, Ca.! As a complete turn-key operations company, they promote
exciting and popular entertainment properties including: Cops, Foxstar, Jerry
Springer, and Xena!
Qualifications:
B.S. Degree
Prior working experience in E-Commerce using Perl, SQl, and Visual Basic or
related scripting languages.
At least 3-5 years experience in developing and programming internet based
technologies and applications, particularly involving internet databases
deployment.
Project Leadership capabilities including planning, estimating, scheduling,
tracking, and reporting tools required.
Maintain a working knowledge of current multimedia trends, technologies,
software and hardware specific to E-Commerce Web development.
Provide technical insight and programming recommendations to management.
Job Description:
Work with project leaders and team members in the development and deployment
of web based backend solutions. Ability to work within a team structure and
provide added value to group. Contribute to the creative development of
building websites that encompass all facets of content, design, and video
components.
Contact: Edward T. Billion
Digital Careers, Inc.
Phone: (714) 992-6144
Fax: (714) 992-6145
e-mail: edbillion@digcareers.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 09 Oct 1998 17:05:02 -0500
From: ed-hill@uiowa.edu
Subject: Writing an intelligent forking server.
Message-Id: <u67dtqtm9.fsf@TRAITOR.i-have-a-misconfigured-system-so-shoot-me>
Hello,
I've written a number of servers in perl (both forking, pre-forking and
single-threaded), but they have all been pretty simple, get the request,
send back the data and exit. I would like to now do something a little
more complex and I'm not sure if it's possible, can someone point me in
the right direction or set me straight if it can't be done.
For this example, assume that my clients are stateless, they make a
single request to the server, get back the response and then shut down
their side of the connection (much like a web browser).
I want to write a forking server that does the following.
* The main process sits on a socket and reads in the first line of
a clients request. That line contains a index key that can be
reused by multiple requestors (a session indicator).
* The main process looks to see if it has already forked a child to
handle that session, and if not it forks off a child, shares the
socket with the child - and lets the child handle processing the
rest of the request. (BUT the child does not die when it is done).
The parent updates a hash table eith the pid of the child that is
handling that session request and the parent goes back to
listening for more requests.
* If when the main process gets a request and it has already forked
of a child, I want the main program to be able to basically hand
off the rest of the incoming request to the already existing
child, and then go back to listening for more requests.
So over time, this server will have various children where each child is
handling all the transactions for a particular session.
So there has to be some type of sharing of filehandles between parent
and child or other trickery that I can't seem to wrap my brain around.
Does anyone have any advice on implementing what I'm trying to achieve?
Thanks.
-Ed Hill (ed-hill@uiowa.edu)
Software Developer - Information Technology Services - University of Iowa
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3939
**************************************
