[10069] in Perl-Users-Digest
Perl-Users Digest, Issue: 3662 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 8 18:07:38 1998
Date: Tue, 8 Sep 98 15:00:18 -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 Tue, 8 Sep 1998 Volume: 8 Number: 3662
Today's topics:
(Tom Christiansen's) ggh woes <rmlynch@best.com>
Adminmisc problem <alext@cri-boi.nospam.com>
Bug! in regexp (or me) <gmarzot@baynetworks.com>
crypt.pm where can i find this module <ruttenf@uni-muenster.de>
Re: Exception.pm <aravind@genome.wi.mit.edu>
Re: fork problem (Andrew M. Langmead)
Re: fork/exec from perl? (Andrew M. Langmead)
Re: How do I extract last line from multiline string? (Bob Trieger)
Re: How do I extract last line from multiline string? (Larry Rosler)
Re: How do I extract last line from multiline string? (Bob Trieger)
Re: How do you supply cleartext password and be secure <garry@america.net>
Re: How do you supply cleartext password and be secure <p-fein@uchicago.edu>
Moving data from Perl to C (was Re: ISO C (YACC) to par <jdporter@min.net>
Of FAQS and Rounding... <sneaker@sneex.fccj.org>
Package constants: how to make them? jboes@qtm.net
Re: Package constants: how to make them? (Sean McAfee)
Re: Perl Programmer Needed <rick.delaney@shaw.wave.ca>
Re: Perl Programmer Needed <eashton@bbnplanet.com>
Re: Perl Programmer Needed <rra@stanford.edu>
Re: read a file through HTTP <matt@pcr7.pcr.com>
Re: read a file through HTTP <nguyend7@msu.edu>
Re: skipping lines <garry@america.net>
Re: Stripping out 'bad' HTML <crism@oreilly.com>
Which method am I on? <aravind@genome.wi.mit.edu>
Re: Which method am I on? (Charles DeRykus)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 08 Sep 1998 13:39:41 -0700
From: Robert Lynch <rmlynch@best.com>
Subject: (Tom Christiansen's) ggh woes
Message-Id: <35F5960D.99C9E2A@best.com>
Hi-
I discovered a hacker's kit when recently backing up my hard drive.
It's pretty surely futile but I thought I might be able to spot
something funny in my Netscape history.db using Tom Christiansen's
program ggh.
However, when I run ggh in various modes, it works erratically, giving
some output followed by an unending series (?) of:
---
...
Use of uninitialized value at ./ggh line 83.
Use of uninitialized value at ./ggh line 84.
Use of uninitialized value at ./ggh line 83.
Use of uninitialized value at ./ggh line 84.
...
----
The lines in question are:
---
...
$epoch_secs = unpack($byte_order, $binary_time);
$stardate = $opt_epochtime ? $epoch_secs
: $opt_gmtime ? gmtime $epoch_secs
: localtime $epoch_secs;
...
---
It could be the history.db is just too big for Perl to cope (tho it's
probably mostly made of "holes"):
[user@ravel perl]$ l /home/user/.netscape/history.db
-rw------- 1 user user 21024768 Sep 8 13:25
/home/user/.netscape/history.db
(actually this latter gibe is just an attempt to goad y'all towards
looking into this ;-)
Any ideas?
Bob L.
--
Robert Lynch-Berkeley CA USA-rmlynch@best.com
http://www.best.com/~rmlynch/
------------------------------
Date: Tue, 08 Sep 1998 13:22:00 -0600
From: Alex Tatistcheff <alext@cri-boi.nospam.com>
Subject: Adminmisc problem
Message-Id: <35F583D7.2C79D30C@cri-boi.nospam.com>
I'm trying to use the AdminMisc ScheduleGet function to find out info
about the AT jobs on my NT servers. What I'm finding is that in the
hash that it returns, the Command key is truncated to 8 characters. The
commandline for a specific AT job might be "c:\bat\somebatchfile.bat"
but the ScheduleGet function only shows it as "c:\bat\s". I've tried
replacing all the backslashes with fwd slashes in case that was causing
a problem but it still only comes back with the first 8 characters. Is
this a bug?
The following is the code snippet I'm using.
#Get info about a job
Win32::AdminMisc::ScheduleGet("myhostname",1,\%Jobinfo);
@Keys = keys(%Jobinfo);
foreach (@Keys) {
print "$_ = $Jobinfo{$_}\n";
}
--
Alex Tatistcheff
CRI/The Resource Group, Inc.
Boise, ID
Please remove "nospam" from my email when replying
------------------------------
Date: 08 Sep 1998 16:57:03 -0400
From: Joe Marzot <gmarzot@baynetworks.com>
Subject: Bug! in regexp (or me)
Message-Id: <pdpvd6e31c.fsf@whaler.engeast>
with perl5.004 I see the following counter intuitive output.
perl -MEnglish -e '$foo = "abababaaaaa"; $foo =~ s/a(a|b)/$1/g; print
"strangely missing the trailing \"a\".\n" unless $POSTMATCH;'
prints:
strangely missing the trailing "a".
esp. given
perl -MEnglish -e '$foo = "abababa"; $foo =~ s/ab/b/g; print
"found the trailing \"a\" as I expected.\n" if $POSTMATCH;'
prints:
found the trailing "a" as I expected.
BTW,. does anyone have an example of how to use '\G' in the regexp. I
was hoping this might give me a hint as to where the previous s///g left
off.
Thanks, GSM
--
G.S. Marzot email: gmarzot@baynetworks.com
Bay Networks Inc. voice: (978)670-8888 x63990
600 Tech Park M/S BL60-101 pager: (800)409-6080 (4096080@skytel.com)
Billerica, MA 01821 fax: (978)670-8145
------------------------------
Date: Tue, 08 Sep 1998 21:33:29 +0200
From: "Frank Ruetten" <ruttenf@uni-muenster.de>
Subject: crypt.pm where can i find this module
Message-Id: <35F58689.CAD03113@uni-muenster.de>
Hi !
I have a very urgent problem. I have to implement the perl crypt()
function but this is not included in the 32 bit Version but on UNX.
Someone told me that there is a module called cryp.pm anywhere outhere.
Where can i dowload this module. I was not able to find this file via
archie.
Please help me
Thanks
Frank
------------------------------
Date: Tue, 08 Sep 1998 15:46:54 -0400
From: Aravind Subramanian <aravind@genome.wi.mit.edu>
To: mkolbuszewski@mail.cebra.com
Subject: Re: Exception.pm
Message-Id: <35F589AE.C314BDB5@genome.wi.mit.edu>
I havent seen Exception.pm but Error.pm - a module at CPAN provides a
try-catch functionality somewhat similar to java's that I've found useful.
Marcin Kolbuszewski wrote:
> Hi!
>
> "Advanced Perl Programming" book by Sriram Srinivasan says, on page 70,
> "As this book goes to press, a new module, Exception.pm, built over eval
>
> and die, is just being announced to CPAN".
>
------------------------------
Date: Tue, 8 Sep 1998 20:16:48 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: fork problem
Message-Id: <EyzF00.31o@world.std.com>
Daniel <dwiesel@my-dejanews.com> writes:
>I've got a script in perl that forks alot. However my code doesn't
>seem to be correct. The output procuces the same text over and over
>again and I can't figure out why.
One problem that I see is that you are keeping the output in its
default buffering status (fully buffered for a network socket or a
pipe), so that when you fork, a copy of the parent's output is copied
in the child's buffer as well. Either a "$|=1" before the parent
starts to print, or a "STDOUT->flush()" before the fork() (or some
other method of flushing STDOUT) should take care of it.
--
Andrew Langmead
------------------------------
Date: Tue, 8 Sep 1998 21:31:04 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: fork/exec from perl?
Message-Id: <EyzIFs.I4K@world.std.com>
tekkin@hotmail.com (Ken Williams) writes:
>I have a perl cgi script that needs to run another perl script, but I don't
>want the first script to wait until the second ends before it can end. I've
>tried forking, and exec, but the first script won't output(or flush) any HTML
>code util the second script offically ends for some reason.
Many HTTP servers buffer up a CGI scripts response until the program's
STDOUT is closed (which in Unix happens automaticaly when a program
finishes). When you fork() the child process inherits the parent's
STDIN, STDOUT, and STDERR.
You should see if this is the case with your server, and if so, close
the filehandles.
--
Andrew Langmead
------------------------------
Date: Tue, 08 Sep 1998 19:53:26 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: How do I extract last line from multiline string?
Message-Id: <6t426d$q7n$1@ligarius.ultra.net>
[ posted to usenet and courtesy e-mail sent ]
ced@bcstec.ca.boeing.com (Charles DeRykus) wrote:
-> In article <MPG.105dad7a4ee2c8b989831@nntp.hpl.hp.com>,
-> Larry Rosler <lr@hpl.hp.com> wrote:
-> >[Posted to comp.lang.perl.misc and copy mailed.]
-> >
-> > ...
-> >$x = "a\nb\nc\nd\n";
-> >$x =~ s/\n([^\n]*)\n$//; # $x becomes "a\nb\nc"
-> >$y = $1; # $y becomes "d"
-> >
->
-> This is easier to type and in many cases faster:
->
-> $x =~ s/\n(.*)\n$//;
It might be easier to type but it doesn't come close to doing what the
poster asked. He wanted the last line like the topic says.
$x =~ s/^.*\n([^\n]+)\n$/$1/sm;
is how I'd do it if using a substitution regex.
But I'd probably use shift or pop to actually do it.
Bob Trieger | `Sparks International' is spamming and
sowmaster@juicepigs.com | trying to help us lose weight. Let's do
them a favor. Call to let the know that
spamming is evil and do it on their dime.
Call 1-888-689-3097
------------------------------
Date: Tue, 8 Sep 1998 13:45:12 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: How do I extract last line from multiline string?
Message-Id: <MPG.105f37334dde4ccc98979a@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <6t426d$q7n$1@ligarius.ultra.net> on Tue, 08 Sep 1998 19:53:26
GMT, Bob Trieger <sowmaster@juicepigs.com> says...
> ced@bcstec.ca.boeing.com (Charles DeRykus) wrote:
> -> In article <MPG.105dad7a4ee2c8b989831@nntp.hpl.hp.com>,
> -> Larry Rosler <lr@hpl.hp.com> wrote:
> -> > ...
> -> >$x = "a\nb\nc\nd\n";
> -> >$x =~ s/\n([^\n]*)\n$//; # $x becomes "a\nb\nc"
> -> >$y = $1; # $y becomes "d"
> ->
> -> This is easier to type and in many cases faster:
> ->
> -> $x =~ s/\n(.*)\n$//;
>
> It might be easier to type but it doesn't come close to doing what the
> poster asked. He wanted the last line like the topic says.
>
> $x =~ s/^.*\n([^\n]+)\n$/$1/sm;
>
> is how I'd do it if using a substitution regex.
He wanted the last line, and also to remove it from the input (as shown
above). Yours removes everything but the last line from the input. I'm
not sure I understand the purpose of the leading anchor or the /m
modifier, in any case.
In regard to Charles DeRykus's observation, I agree that
$x =~ s/\n([^\n]*)\n$//;
and
$x =~ s/\n(.*)\n$//;
work the same, because by default '.' and '[^\n]' are synonymous. As for
speed, the '.' form is indeed about 5% faster by my Benchmarks, not that
it is likely to matter in any real program. I'm not sure why it is
faster, and I wonder how Charles predicted that without measurement.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 08 Sep 1998 21:07:25 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: How do I extract last line from multiline string?
Message-Id: <6t46h3$tml$1@ligarius.ultra.net>
[ posted to usenet and courtesy e-mail sent ]
lr@hpl.hp.com (Larry Rosler) wrote:
-> Bob Trieger <sowmaster@juicepigs.com> says...
-> > ced@bcstec.ca.boeing.com (Charles DeRykus) wrote:
-> > -> This is easier to type and in many cases faster:
-> > ->
-> > -> $x =~ s/\n(.*)\n$//;
-> >
-> > It might be easier to type but it doesn't come close to doing what the
-> > poster asked. He wanted the last line like the topic says.
-> >
-> > $x =~ s/^.*\n([^\n]+)\n$/$1/sm;
-> >
-> > is how I'd do it if using a substitution regex.
->
-> He wanted the last line, and also to remove it from the input (as shown
-> above). Yours removes everything but the last line from the input. I'm
-> not sure I understand the purpose of the leading anchor or the /m
-> modifier, in any case.
Oops. I guess I should have backed up and read the original post. But
from the subject line I figured he just `wanted' the last line.
Bob Trieger | `Sparks International' is spamming and
sowmaster@juicepigs.com | trying to help us lose weight. Let's do
them a favor. Call to let the know that
spamming is evil and do it on their dime.
Call 1-888-689-3097
------------------------------
Date: Tue, 08 Sep 1998 20:33:32 GMT
From: Garry Williams <garry@america.net>
Subject: Re: How do you supply cleartext password and be secure in Perl (was Perl compiler)
Message-Id: <35F594E3.79FF7CB0@america.net>
I don't understand. Why not setuid?
Have the script run as your own ID and make a file with the secrets in
it readable *only* by you. It's as secure as the file system.
-Garry Williams
; wrote:
>
>
>
> In article <35F39B06.914128B0@bp.com>, Chris Leach <leachcj@bp.com> wrote:
> >I've been reading the "Perl Compiler" thread had a look at a few FAQ but
> >have not seen offered the secure way to supply a perl script a password
> >which it will need to supply in clear text. This occurs often enough
> >that
> >I would have thought there would be a canned solution available.
>
> - - Unfortunately, not all FAQ's have a FGA ( frequently given
> answer ). In the short run, there is no secure way to give
> a perl script a password.
>
> >How do people supply there FTP, SQL etc scripts with that all important
> >password?
>
> - - A reasonable person uses a "middleware" approach. Most commonly
> a cgi script is used to "hide" the data. If you can find my
> previous post in this thread, I outlined the two approachs that
> while not "secure" at least raise the bar.
>
> - - Booker C. Bense
>
>
> Version: 2.6.2
>
> iQCVAwUBNfU4MQD83u1ILnWNAQFG3wQA3ZqBOBX3/gQ88f+SI7PKxXhoQP7qDEb6
> UojpuUZApp2Jdg/EecUs8SNlyk+5xON8L2FYG6cwrV2mNlZS/QP3YuhGWe+PwZGs
> S/pfHb67lFolyoOkYO1P7SFyZVz2wqKJlXkte6uXdad8XTX9n06yw+9nd8J0AOdt
> T+gHaa/C8ns=
> =pcSL
> -----END PGP SIGNATURE-----
------------------------------
Date: Tue, 8 Sep 1998 21:41:07 GMT
From: Peter A Fein <p-fein@uchicago.edu>
Subject: Re: How do you supply cleartext password and be secure in Perl (was Perl compiler)
Message-Id: <opgd8965ll8.fsf@harper.uchicago.edu>
Garry Williams <garry@america.net> writes:
>
> I don't understand. Why not setuid?
>
> Have the script run as your own ID and make a file with the secrets in
> it readable *only* by you. It's as secure as the file system.
What about security holes in the script? Even if you don't make it
setuid 0, but rather something else, it still necessarily leaves the
possibility of reading the password file open.
>
> ; wrote:
> >
> >
> >
> > In article <35F39B06.914128B0@bp.com>, Chris Leach <leachcj@bp.com> wrote:
> >
> > >How do people supply there FTP, SQL etc scripts with that all important
> > >password?
> >
> > - - A reasonable person uses a "middleware" approach. Most commonly
> > a cgi script is used to "hide" the data. If you can find my
> > previous post in this thread, I outlined the two approachs that
> > while not "secure" at least raise the bar.
What solutions were those? This thread has been rather long.
--
Peter A Fein Summering in SF!
Home: 650-571-6476 Work: 650-628-2172
p-fein@uchicago.edu pfein@us.checkpoint.com
Who's going to pay for this!?!
------------------------------
Date: Mon, 07 Sep 1998 16:16:24 -0400
From: John Porter <jdporter@min.net>
Subject: Moving data from Perl to C (was Re: ISO C (YACC) to parse Perl data structures)
Message-Id: <35F43F18.1AFEAAB@min.net>
Andy Glew wrote:
>
> I am working with a moderately large C program, not written by me.
> I want to save some data structures to a file, and then in a later run of the program
> restore these data structures from the file. The data structures can structs and arrays,
> but are strictly hierarchical.
>
> This is the sort of thing that, in Perl, is a one liner, using Data::Dumper and eval.
This is not the sort of thing you want to use Data::Dumper for.
As an example of a format (and a module that reads/writes it) which
is easy to implement in C, check out Boulderio, at:
http://stein.cshl.org/software/boulder/
hth,
John Porter
P.S. Please wrap your posts at about 72 columns. Thanks.
------------------------------
Date: Tue, 08 Sep 1998 17:43:28 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Of FAQS and Rounding...
Message-Id: <35F5A500.3EDE0110@sneex.fccj.org>
#!/usr/bin/perl -w
use strict;
use diagnostics;
# Someone where I work asked this today:
# Is there a built in way to round a number in PERL?
# IE. 5.1 to derive to 5 or 4.6 to derive to 5....
# He has shown a lot of promise, so I didn't want
# just tell him to read the FAQ, etc. so I went
# looking for the answer myself first.
# Know what I found - you guessed it - not much.
# So after playing with rounding I wrote
# him the following -
# Answer:
# Not really is the short answer...
#
# Long answer - You'll have to do it yourself.
# Sorry...
my $needsRnding = 4.49;
printf("Should equal 4: %d.\n", $needsRnding);
$needsRnding = 4.51;
printf("Should equal 5: %d, but doesn't.\n", $needsRnding);
# So let's try this:
my $rndThis = $needsRnding;
$rndThis =~ /\./;
$needsRnding = $`;
$rndThis = $';
if ((length($rndThis) > 1 && $rndThis > 49) ||
(length($rndThis) == 1 && $rndThis > 4)) {
$needsRnding += 1;
}
#Else do nothing, as it must be less than 4.50...
printf("Now, should equal 5: %d.\n", $needsRnding);
# Exit...
1;
# I'm not complaining mind you, but where
# do I go to LEARN how to LEARN to use the
# FAQs and Docs and all the other valuable
# information surrounding Perl?
# PS - Who would have thought to use:
#perldoc perlfaq4
???
-Sneex- :]
__________________________________________________________________
Bill Jones | FCCJ Webmaster | http://webmaster.fccj.org/Webmaster
__________________________________________________________________
It is common sense to take a method and try it. If it fails,
admit it frankly and try another. But above all, try something.
-- Franklin D. Roosevelt
------------------------------
Date: Tue, 08 Sep 1998 20:55:06 GMT
From: jboes@qtm.net
Subject: Package constants: how to make them?
Message-Id: <6t45ja$fts$1@nnrp1.dejanews.com>
Okay, I'm using Perl 5.004_04 on AIX, and I wanted to construct a package
(I'm not ready to construct a module yet ...) which has its own constants,
available to the outside world.
# script alarm.ph
package alarm;
use constant ALARM_INFO => 0;
use constant ALARM_WARN => 1;
sub putAlarm {
my ($priority) = shift;
my ($message) = shift;
if ($priority == $ALARM_INFO) {
print STDERR "INFO: ";
}
else {
print STDERR "WARNING: ";
}
print STDERR $message, "\n";
}
And then in my main program do:
require 'alarm.ph';
$default_Priority = $alarm::ALARM_INFO;
...
&putAlarm($default_Priority, "Hey, you have a problem here!");
(And yes, I know there are other ways to record warning messages. This code is
stripped down to eliminate the messy details: the alarms are actually being
queued as messages via MQSeries, not printed to a file.)
So: having learned Perl 4, and slowly but surely converting myself to Perl 5,
I think I'm suffering a lingual deficiency here. What is there about 'package
foo' that I'm misinterpreting? I thought that anything declared in alarm.ph
would then be named 'alarm::foo'?
--
Jeff Boes jboes@qtm.net
http://www.qtm.net/~jboes/
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 08 Sep 1998 21:26:46 GMT
From: mcafee@moonpatrol.rs.itd.umich.edu (Sean McAfee)
Subject: Re: Package constants: how to make them?
Message-Id: <qihJ1.1631$F7.7150476@news.itd.umich.edu>
In article <6t45ja$fts$1@nnrp1.dejanews.com>, <jboes@qtm.net> wrote:
>Okay, I'm using Perl 5.004_04 on AIX, and I wanted to construct a package
>(I'm not ready to construct a module yet ...) which has its own constants,
>available to the outside world.
># script alarm.ph
>package alarm;
>
>use constant ALARM_INFO => 0;
>use constant ALARM_WARN => 1;
[snip]
>And then in my main program do:
>require 'alarm.ph';
>
>$default_Priority = $alarm::ALARM_INFO;
>...
>&putAlarm($default_Priority, "Hey, you have a problem here!");
>So: having learned Perl 4, and slowly but surely converting myself to Perl 5,
>I think I'm suffering a lingual deficiency here. What is there about 'package
>foo' that I'm misinterpreting? I thought that anything declared in alarm.ph
>would then be named 'alarm::foo'?
'package alarm; use constant ALARM_INFO => 0;' isn't doing what you think
it's doing. It doesn't define a variable called $alarm::ALARM_INFO;
rather, it defines a subroutine &alarm::ALARM_INFO which takes no arguments
and returns the value 0. The constant is then accessed via a normal
subroutine call, eg:
$level = ALARM_INFO; # inside package alarm
$level = alarm::ALARM_INFO; # outside package alarm
You could just as easily obtain the constant's value via &alarm::ALARM_INFO,
alarm::ALARM_INFO(), or &alarm::ALARM_INFO(), but most would probably agree
that alarm::ALARM_INFO looks the best.
So use "$default_priority = alarm::ALARM_INFO;' in your original code and
you should be OK.
If, for some reason, you feel you must use genuine scalars to hold your
constants, don't use 'use constant'; do this:
package alarm;
*ALARM_INFO = \0;
*ALARM_WARN = \1;
This will create read-only constant scalars which you must access from
outside the package as, eg, $alarm::ALARM_INFO.
--
Sean McAfee | GS d->-- s+++: a26 C++ US+++$ P+++ L++ E- W+ N++ |
| K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
| tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
------------------------------
Date: Tue, 08 Sep 1998 20:57:58 GMT
From: Rick Delaney <rick.delaney@shaw.wave.ca>
Subject: Re: Perl Programmer Needed
Message-Id: <35F59BE0.FDF41DE6@shaw.wave.ca>
Richard wrote:
>
> I think Rick has cleared this up:
> > e-mail to both you and your machine administrators. Posting
> > about a few items for sale, or a job opening, in an appropriate
> > newsgroup (such as misc.forsale.* or misc.jobs.*) is OK; posting
> > an ad for your business to a hundred groups is not.
> This is a rule which I followed!
>
I don't see how this is an appropriate newsgroup. There are many *jobs*
groups. I'm sure many people don't mind the job posts here, but that
doesn't make it ok.
[rantings snipped]
> 3) I don't want to share anyone's private life publicly, but some
> of the people who wrote me, looking for work, explained that they
> really needed some project work because of things going on in their
> personal lives. These people were really excited that I posted this
> here. There really IS NOWHERE ELSE for them to go and look for this
> type of work because the job newsgroups and other resources on the net
> are for full-time positions.
I really doubt that part-time/contract positions are unwelcome in
_every_ job group.
Since you did get responses for your job posting, I would say it served
its purpose. It really shouldn't matter to you what others think.
Your big complaint seems to be that Randal somehow publicly humiliated
you. I think you are doing a far better job of that yourself.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Tue, 08 Sep 1998 21:05:37 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Perl Programmer Needed
Message-Id: <35F599C6.79AA0E0F@bbnplanet.com>
> Not true Elaine. Actually, I am still receiving email from interested
> parties. That fact alone proves the point that some people did appreciate
> the post.
I didn't say that the post was not appreciated. The point was made that
there are newsgroups for that and would you please post there instead.
No biggie.
> I will, however take your advice and relax, I would agree that I
> overreacted, but it was not out of any sense of insecurity, it was out of
> anger. I do think we should all be involved in helping people realize what
> is appropriate and inappropriate on the Internet in general, but there is a
> way to do it. One person, making themselves the policeman of what IS right
> and IS wrong IS not the way. Making a friendly note to that person
> privately is. Posting a message publicly saying it is a questionable post
> and asking for feedback from the other users of the newsgroup is. But
> dropping the gavel on something like this is not.
The insecurity reference was from your thinking that you were being
personally crushed by someone of a high profile. And really, it's not
one person. I have had the joy and pain of managing a news server which
was always trying desperately to keep up with the flood. The public
posting was to point that out to others who may follow you. You aren't
the first and assuredly not the last to do this.
Some threads are fun, some are educational, and some are just silly
flamefests. We are all just people with feelings and emotions just like
our real life selves. I think we forget that sometimes. Anyway, this has
all been said before. This is usenet, this is your brain on usenet.
Enjoy.
e.
------------------------------
Date: 08 Sep 1998 14:07:41 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Perl Programmer Needed
Message-Id: <ylzpcatisi.fsf@windlord.stanford.edu>
Randal Schwartz <merlyn@stonehenge.com> writes:
> But you forget, apparently, that the rules for the group are *not* set
> by the group participants. They're set by the people that actually
> BRING you the news. The news admins around the world. The ones that
> publish the stuff in news.admin.newusers. And *they* are the ones that
> have decreed that job postings go in job groups, regardless of the
> category.
Er... I'm not aware of any such global policy. I'd get annoyed, as a news
administrator, if job postings started filling up groups that my users
wanted to read for other purposes, and if there were too many of them it
might be a good idea to create a separate group for that purpose, and I'm
not sure that I'm that *happy* about them, but I odn't feel nearly as
strongly about this as it seems like you do.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 8 Sep 1998 20:10:06 GMT
From: "Matt Heusser" <matt@pcr7.pcr.com>
Subject: Re: read a file through HTTP
Message-Id: <01bddb64$92ca83c0$47eb1bcc@XSTA71.pcr.com>
> is there a way for a CGI script to get the contents
> of a file that isn't on the same server as the cgi script...
Could you FTP it and then read it in? There's a cool
auto FTP script a guy in my office wrote, and perl
has all kindsa cool built-in support for that ....
Matt H.
------------------------------
Date: 8 Sep 1998 21:17:08 GMT
From: Dan Nguyen <nguyend7@msu.edu>
Subject: Re: read a file through HTTP
Message-Id: <6t46sk$prm$1@msunews.cl.msu.edu>
shane michael harwood <sharwood@cs.uiowa.edu> wrote:
: with $file equal to something like http://cs.uiowa.edu/sample.pir
If your actually willing to read a file through http, realize that it
may be different based on the browser information you send the side,
use the LWP modules. For a really quick start use LWP::Simple
-dan
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Tue, 08 Sep 1998 21:13:24 GMT
From: Garry Williams <garry@america.net>
Subject: Re: skipping lines
Message-Id: <35F59E3C.EB6E7747@america.net>
Try: next;
-Garry Williams
Steve Debenport wrote:
>
> How do I within a 'While (<>)' and 'if' statement, skip a couple of
> lines at a certain point while stepping through a text file. I thought
> two simple '<>' would work, but it doesn't seem to. Any ideas?
> Thanks.
> Steve Debenport
> Steve.Debenport@us.pwcglobal.com
------------------------------
Date: 08 Sep 1998 16:51:12 -0400
From: Chris Maden <crism@oreilly.com>
Subject: Re: Stripping out 'bad' HTML
Message-Id: <keogsqfhvj.fsf@rosetta.ora.com>
"Jonathan M. Hartman" <cajun@expert.cc.purdue.edu> writes:
> On 8 Sep 1998, Abigail wrote:
> > What is bad about "3 < 5"?
>
> If you don't know, you won't be of any help to him...
Abigail's point is that "3 < 5" *is* legal HTML, and trying to devise
a simpleminded regexp to distinguish broken HTML from valid HTML is
not possible. In SGML (of which HTML is an application), the less-
than sign is only recognized as a delimiter if it is followed by a
name-start character ([a-zA-Z]). Since the space is not a name-start
character, "3 < 5" is legal. (The confusion this engenders is one of
the reasons that XML forbids the use of < in data.)
However, it's "bad" precisely because it's confusing. It would be
*better* to use "3 < 5", but it is not *required*.
-Chris
--
<!NOTATION SGML.Geek PUBLIC "-//Anonymous//NOTATION SGML Geek//EN">
<!ENTITY crism PUBLIC "-//O'Reilly//NONSGML Christopher R. Maden//EN"
"<URL>http://www.oreilly.com/people/staff/crism/ <TEL>+1.617.499.7487
<USMAIL>90 Sherman Street, Cambridge, MA 02140 USA" NDATA SGML.Geek>
------------------------------
Date: Tue, 08 Sep 1998 15:43:46 -0400
From: Aravind Subramanian <aravind@genome.wi.mit.edu>
Subject: Which method am I on?
Message-Id: <35F588F2.7FB1ACCB@genome.wi.mit.edu>
Is there a way to find the name of the method a statement occurs in. For
example
package Uid::Dev
sub some_method {
...
..
die ("Error: problem with parsing in Uid::Dev->some_method"); # give
an informative message
}
Is there a way to not have to type out the fully qualified method name?
caller() does give the package, and line number but is there a way to
determine the name of the current *method*
Thanks
aravind
------------------------------
Date: Tue, 8 Sep 1998 21:10:43 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: Which method am I on?
Message-Id: <EyzHHv.FI7@news.boeing.com>
In article <35F588F2.7FB1ACCB@genome.wi.mit.edu>,
Aravind Subramanian <aravind@genome.wi.mit.edu> wrote:
>Is there a way to find the name of the method a statement occurs in. For
>example
>
>
>package Uid::Dev
>
>sub some_method {
> ...
> ..
> die ("Error: problem with parsing in Uid::Dev->some_method"); # give
>an informative message
>
>}
>
>Is there a way to not have to type out the fully qualified method name?
>
>caller() does give the package, and line number but is there a way to
>determine the name of the current *method*
>
caller(0))[3]
hth,
--
Charles DeRykus
------------------------------
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 3662
**************************************
