[13828] in Perl-Users-Digest
Perl-Users Digest, Issue: 1238 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 31 18:05:37 1999
Date: Sun, 31 Oct 1999 15:05:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <941411109-v9-i1238@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 31 Oct 1999 Volume: 9 Number: 1238
Today's topics:
Re: [offtopic] English (Craig Berry)
Basic Question fbrito@my-deja.com
Can this be made faster? <22pb22@excite.com>
Re: Comparing Arrays (short question) (Pfash1)
Re: EPOCH'S Halloween? <_ncc1701d@storage2000.com_>
function showing memory available? newsmf@bigfoot.com
I just want to separate a string!!! <landim2NOlaSPAM@brhs.com.br.invalid>
Re: I just want to separate a string!!! (Michael Budash)
Re: ip address (Randal L. Schwartz)
Re: ip address <Floyd@NewWebSite.com>
Re: It is always like this here? (David Foster)
Re: It is always like this here? <gellyfish@gellyfish.com>
Re: MacPerl 5 assign to Listelement (brian d foy)
Re: Need help with error. Thanks! (Abigail)
Need Help! <jingdongli@networld.com>
Re: perl double-split (Ilya Zakharevich)
Re: perl double-split <ltl@rgsun40.viasystems.com>
Perl4 and Y2K (Randal L. Schwartz)
Re: quick question (I hope) (Abigail)
Re: simplifying a script (David H. Adler)
Re: simplifying a script <gellyfish@gellyfish.com>
to Alan Flavell <tech1@magicnet.net>
Re: to Alan Flavell (Abigail)
Re: to Alan Flavell <camerond@mail.uca.edu>
Re: to Alan Flavell <ltl@rgsun40.viasystems.com>
Re: to Alan Flavell <gellyfish@gellyfish.com>
Upload files via HTTP <rcrescini@home.com>
Re: Upload files via HTTP <gellyfish@gellyfish.com>
upload progress <ab@cd.com>
Using SelfLoader along with our own AUTLOAD <james_lavery@csi.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 31 Oct 1999 18:01:21 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: [offtopic] English
Message-Id: <s1p0vhdjiqi75@corp.supernews.com>
Alan J. Flavell (flavell@mail.cern.ch) wrote:
: On Fri, 29 Oct 1999, Craig Berry wrote:
: > Stephen Lee - Post replies please (nobody@nowhere.net) wrote:
: > : >: > paranoid (genlabs@gmx.net) wrote:
: > : >: > : and mildly ignore it's dumbness .
: > ^^^^
: > : I don't see any possessive "its" in the original quote...
: >
: > Marked in quoted text above.
:
: I don't see any possessive there either. Mayb'e yo'u ar'e imaginin'g
: thing's.
:
: What you have marked is a contraction.
So you're suggesting that the uncontracted phrase is "...and mildly ignore
it is dumbness"? Not sure how to parse that, if so. :)
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "They do not preach that their God will rouse them
a little before the nuts work loose." - Kipling
------------------------------
Date: Sun, 31 Oct 1999 21:21:06 GMT
From: fbrito@my-deja.com
Subject: Basic Question
Message-Id: <7vibs1$pf3$1@nnrp1.deja.com>
I have already read the perlfunc but could not find this:
I need to discover a way to do the 'whoami' Unix command in Perl.
Where can I find the argument ( file or variable ) of getpwuid()
function to get this ?
Thanks,
Felipe
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 31 Oct 1999 14:01:57 -0800
From: "PB" <22pb22@excite.com>
Subject: Can this be made faster?
Message-Id: <7vie89$611$1@birch.prod.itd.earthlink.net>
Hello,
the following is a sub of a script. It opens files, searches for a specific
$string, and $counts the number of matches. The problem is that this is
supposed to run on a large number of LARGE files, so it takes a while.
I've included the study right after opening the file but it doesn't really
make a difference.
Is there a way to make it faster?
--------------------------------------------------------
foreach $file (@files) {
open (FILE, "$file") || die "Cannot open $file: $!";
study $file;
while (@line = <FILE>) {
foreach $line (@line){
if ($line =~ /\s$string\s/oi) {$count++;}
}
}
close (FILE);
}
--------------------------------------------------------
cheers,
pb
------------------------------
Date: 31 Oct 1999 20:03:49 GMT
From: pfash1@aol.com (Pfash1)
Subject: Re: Comparing Arrays (short question)
Message-Id: <19991031150349.02939.00001221@ng-cg1.aol.com>
Thanks for your reply. I will look into the FAQs. Sorry for the muddled
example. I am covering a lot of bases right now and rushed that post.
No this is not for a homework assignment.
I direct a mentoring program for high school kids.
www.mentoringnetwork.org
and the perl problem was for the email component.
thanks again
------------------------------
Date: Sun, 31 Oct 1999 11:06:48 -0600
From: "Jason D" <_ncc1701d@storage2000.com_>
Subject: Re: EPOCH'S Halloween?
Message-Id: <HF_S3.1272$n7.9216@news2.randori.com>
Hi Abigail (If you read this)
Thanks for your pointing. I was doing some EPOCH conversions in code from
actual date values and everything beyond that was converting correctly.
Although once the 31st of October hit EPOCH conversions stopped due to the
fact that I was forcing a 31st of November. It all turned out to be a
conversion to EPOCH seconds way back in a beginning of a module of my code.
I forgot to ADD one to the month in a part of the code. DOH!
Thanks for your pointing it out. It was getting late and I obviously made a
mistake!
Thanks again.
Jason
Abigail <abigail@delanet.com> wrote in message
news:slrn81o33i.66b.abigail@alexandra.delanet.com...
> Jason D (_ncc1701d@storage2000.com_) wrote on MMCCLII September MCMXCIII
> in <URL:news:5sTS3.1228$n7.8078@news2.randori.com>:
> ** Hi,
> ** I'm a beginner programmer in PERL, and I had a program that was ripping
> ** apart files with dates in them just fine. Then all of a sudden a file
with
> ** the date of October 31, 1999 came up and my program just stopped. I
> ** debugged for a while and was able to figure out why. When I run this
> ** program:
> **
> ** #!/usr/bin/perl
> **
> ** use Time::Local;
> **
> ** $time = timelocal($seconds, $minutes, $hours+10, (localtime)[3,4,5]);
> ** if ($ARGV[0] > 0){$epoch=$ARGV[0]}else{$epoch=$time};
> **
> ** @asdf=localtime($epoch);
> **
> ** print "$time\n";
> ** print "@asdf\n";
> **
> ** with these arguments separately 944027999, 944028000, I get a date
reported
> ** back to me as Oct 30th for the first one and Nov 1st for the second
one.
> ** They both appear in the same year and everything else looks good. Why
is it
> ** that PERL isn't recognizing Halloween? Is this normal?
>
> Forget about Halloween. It looks your Perl is a month off! For me, it
> report Dec 1, 1999.
>
> Or perhaps you are a month off? Did you read the first sentence of the
> description section in the Time::Local manpage?
>
>
>
> Abigail
> --
> perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
>
>
> -----------== Posted via Newsfeeds.Com, Uncensored Usenet News
==----------
> http://www.newsfeeds.com The Largest Usenet Servers in the World!
> ------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers
==-----
>
------------------------------
Date: Sun, 31 Oct 1999 18:30:01 GMT
From: newsmf@bigfoot.com
Subject: function showing memory available?
Message-Id: <7vi1r9$it7$1@nnrp1.deja.com>
Hi -
is there a perl function that will show me how much memory is unused on
the server? I want to used it to avoid out of memory problems when
forking many separate programs.
Thx a bunch.
Marc.
mNOSPAM@fest.net
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sun, 31 Oct 1999 08:34:59 -0800
From: Landim <landim2NOlaSPAM@brhs.com.br.invalid>
Subject: I just want to separate a string!!!
Message-Id: <08941b48.82a370ac@usw-ex0108-062.remarq.com>
Hi all...
I got from "CGI" a variable &query, and in this variable
i have:
&query= "blablabla blablabla blablabla",
and now i want to separate this like that:
$query1= "blablabla"
and
&query2= "blablabla"
and
&query3= "blablabla"
How can i do that? Using split()? How?
If you can help me, email to :
landim2@brhs.com.br
* Sent from AltaVista http://www.altavista.com Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping. Smart is Beautiful
------------------------------
Date: Sun, 31 Oct 1999 10:47:46 -0800
From: mbudash@wcws.com (Michael Budash)
Subject: Re: I just want to separate a string!!!
Message-Id: <mbudash-3110991047470001@adsl-216-103-91-123.dsl.snfc21.pacbell.net>
In article <08941b48.82a370ac@usw-ex0108-062.remarq.com>, Landim
<landim2NOlaSPAM@brhs.com.br.invalid> wrote:
> Hi all...
>
> I got from "CGI" a variable &query, and in this variable
> i have:
> &query= "blablabla blablabla blablabla",
> and now i want to separate this like that:
>
> $query1= "blablabla"
> and
> &query2= "blablabla"
> and
> &query3= "blablabla"
>
> How can i do that? Using split()? How?
>
> If you can help me, email to :
> landim2@brhs.com.br
>
i think you've mistakenly used '&' where you meant '$'...
($query1, $query2, $query3) = split (/ /, $query);
use the docs, pls...
--
Michael Budash ~~~~~~~~~~ mbudash@wcws.com
------------------------------
Date: 31 Oct 1999 09:05:07 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: ip address
Message-Id: <m1r9ib1mws.fsf@halfdome.holdit.com>
>>>>> "Floyd" == Floyd Morrissette <Floyd@NewWebSite.com> writes:
Floyd> That is what I am doing. I need to know where to look to get a permanent ip.
You get it from wherever you get your connectivity.
NOT by posting to a Usenet group.
print "Just another Perl hacker,"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sun, 31 Oct 1999 13:39:54 -0500
From: Floyd Morrissette <Floyd@NewWebSite.com>
Subject: Re: ip address
Message-Id: <381C8CFA.27BCA7BD@NewWebSite.com>
"Randal L. Schwartz" wrote:
> NOT by posting to a Usenet group.
>
As noted in my original post.
I knew I was going to get a lot of grief. But I got my question answered anyway.
I did not know where else to turn. Now I know that somebody is going to tell me
where I should have looked, which will be good also.
------------------------------
Date: 31 Oct 1999 13:41:03 -0500
From: dfoster@panix.com (David Foster)
Subject: Re: It is always like this here?
Message-Id: <7vi2fv$5hh$1@panix.com>
In <slrn81n0bd.66b.abigail@alexandra.delanet.com> abigail@delanet.com (Abigail) writes:
>David Foster (dfoster@panix.com) wrote on MMCCLI September MCMXCIII in
><URL:news:7vfbnq$cs3$1@panix.com>:
>()
>() a) The .cgi group got buried. I mean, c'mon, comp.infosystems???
>How hard can it be to search for '^comp.*.cgi'? Rather trivial, don't
>you think?
Doesn't really matter. Most people search the groups top-down, which
is the only obvious thing to do on a lot of platforms.
Think about it as a UI problem. If people keep clicking the wrong
button, maybe it's a bad UI.
>You can even do that by hand. The fact people keep asking
>off-topic CGI posting in this group isn't a reason to allow them; it's
>a reason to kick them even harder.
It's not a question of allowing them. The fact is that they *are*
going to do it. Sure it's wrong, but you can try to fix the disease
or the symptom.
Pointing out that you have to be fairly clueless or rude to post
incorrectly doesn't really address the point. The point is that
there is an inexhaustible supply of clueless rude people out there.
>We know that, and if you think "flamers" think it will keep that off-topic
>poster away, you're wrong. But it will keep *others* away. If noone
>complains about people asking off-topic questions, or of people not
>reading the docs, then it will become `acceptable behaviour', and we
>will even get *more* of those questions.
>It's like trying to fix a leak. You aren't saying "oh, why bother, the
>floor is already wet", are you?
No. I'm suggesting that the leak should be fixed. You seem to be
suggesting that a bigger mop is a good idea.
>() So you're in the situation where new perl users need a place to discuss
>() perl, and the most obvious place to do it is trying to keep them out.
>() Most new users will respect this, but there's always going to be a
>() percentage that won't. There's really no good answer to this one.
>You are totally wrong. 100% completely wrong. New perl users are welcome
>here.
No, I'm not. I waited perhaps a year after learning perl before
posting to clp. I suspect most common posters here did something
similar. There's simply no way to really have a good question for this
group until you've worked with the language a while.
It's not that new users aren't welcome per se, but rather that once
you've spent time enough with the documentation on any single point to
reasonably phrase the issue, you probably don't need to ask the
question. I really can't imagine what question a user could have in
the first six months of perl that would be appropriate for this
newsgroup (except perhaps installation issues).
>Off course, we have gone through all this over and over and over again.
>It's all in deja news.
Agreed, this is all old hat. Not just here, but in many many other
groups. Sometimes things are fixed, and sometimes they aren't.
To be quite honest, and I know you'll probably disagree with this,
enough regulars here *enjoy* the situation as it stands so much
that it will never change.
--
--
David Foster | I am a camera with its shutter open
dfoster@panix.com | quite passive, recording not thinking
finger for PGP key | -- Christopher Isherwood
------------------------------
Date: 31 Oct 1999 21:23:52 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: It is always like this here?
Message-Id: <7vic18$2ht$1@gellyfish.btinternet.com>
On 31 Oct 1999 13:41:03 -0500 David Foster wrote:
> In <slrn81n0bd.66b.abigail@alexandra.delanet.com> abigail@delanet.com (Abigail) writes:
>
>>David Foster (dfoster@panix.com) wrote on MMCCLI September MCMXCIII in
>><URL:news:7vfbnq$cs3$1@panix.com>:
>>()
>>() a) The .cgi group got buried. I mean, c'mon, comp.infosystems???
>
>>How hard can it be to search for '^comp.*.cgi'? Rather trivial, don't
>>you think?
>
> Doesn't really matter. Most people search the groups top-down, which
> is the only obvious thing to do on a lot of platforms.
>
This is probably not such a good example to make this point with as in
nearly every possible way I can think of comp.infosystems.* will be presented
before comp.lang.* when listed - I can telnet to port 119 on my favourite
NNTP server and type the appropriate NNTP commands and will get the groups
back in alphabetic order.
> Think about it as a UI problem. If people keep clicking the wrong
> button, maybe it's a bad UI.
>
You're probably not wrong there though - if certain vendors will insist
on shipping offensive software then I guess this is what is going to happen.
>>You are totally wrong. 100% completely wrong. New perl users are welcome
>>here.
>
> No, I'm not. I waited perhaps a year after learning perl before
> posting to clp. I suspect most common posters here did something
> similar. There's simply no way to really have a good question for this
> group until you've worked with the language a while.
>
<pantomime>
Oh yes you are
</pantomime>
> It's not that new users aren't welcome per se, but rather that once
> you've spent time enough with the documentation on any single point to
> reasonably phrase the issue, you probably don't need to ask the
> question. I really can't imagine what question a user could have in
> the first six months of perl that would be appropriate for this
> newsgroup (except perhaps installation issues).
>
This obviously is saying something about the reading abilities of your
hypothetical new user - I would say that someone who is new to Perl but
is not unfamilar with programming ( and by extension with the reading of
technical documentation) could read the whole document set in a week - of
course they might not understand it *all* but they should know what is
there and where to look if they need to revise their understanding. I
think that given that exposure people should be able to discern whether
something is worth asking about and whether they should post here.
> To be quite honest, and I know you'll probably disagree with this,
> enough regulars here *enjoy* the situation as it stands so much
> that it will never change.
Believe me when I say that is not the case.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 31 Oct 1999 13:50:40 -0500
From: brian@smithrenaud.com (brian d foy)
Subject: Re: MacPerl 5 assign to Listelement
Message-Id: <brian-3110991350400001@160.new-york-73-74rs.ny.dial-access.att.net>
In article <381C70D9.155C66C6@etech.hs-bremen.de>, "Dr.-Ing. M. Hartje" <hartje@etech.hs-bremen.de> wrote:
>The following Program works with WinPerl 5 different ports but not on
>MacPerl 5:
>
>#!/perl
>for ($i =0; $i <=10; $i++) {
> $f[$i] = $i;
> print "*";
>};
>print "\n\n elements: $#f;\ncontents:\n";
>
>foreach $a (@f) { print $a, "="
>};
that works fine for me. the source of your problem may not
be this script.
--
brian d foy
Perl Mongers <URI:http://www.perl.org>
CGI MetaFAQ
<URI:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: 31 Oct 1999 12:34:44 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Need help with error. Thanks!
Message-Id: <slrn81p2t1.66b.abigail@alexandra.delanet.com>
claire (claire@telix.com) wrote on MMCCLII September MCMXCIII in
<URL:news:s1oli0fsiqi13@corp.supernews.com>:
__
__ claire wrote in message ...
__ >I get the following error for a script I am running:
__ >
__ >TEST 4: perl syntax
__ > Bareword found where operator expected at multiple_choice.cgi line 341,
__ >near "
__ >
__ >what is a bareword? Line 341 is near where I start HTML formatting. The
__ >script follows:
__ >
__ > {
__ > print qq!
^
|
+-----------+
|
You string starts here --+
__ > <HTML>
__ > <HEAD>
__ > <TITLE>Your Results!</TITLE>
^ ^
| |
And ends here ----------+ +-----------------------------------------+
|
You compare its value with the result of a regex that starts here --+
And it ends there --+
|
+-------------+
|
V
__ > </HEAD> (THIS IS LINE 341)
Up to there, it's all valid Perl. But then we get 'HEAD', and Perl no
longer knows what to do with it.
Perhaps you want to use a here doc.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 31 Oct 1999 14:25:29 -0700
From: "jingdong li" <jingdongli@networld.com>
Subject: Need Help!
Message-Id: <381cb3d1@nntp.networld.com>
I am a beginner in perl, right now I got a question. Can somebody tell me
how can I get and install the perl interpreter on my homecomputer so I can
test my cgi program on my PC. Right now, I just write done my cgi program
and then upload to unix machine to test it. It took a lot of time.
Thanks a lot!
------------------------------
Date: 31 Oct 1999 21:54:24 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: perl double-split
Message-Id: <7vidqg$lcv$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to lt lindley
<lee.lindley@bigfoot.com>],
who wrote in article <7vhkg0$1ad$1@rguxd.viasystems.com>:
> while (my $names = <>) {
> my $values = <>;
...
*Never* do this. Too error prone. If you hit EOF from internal <>,
you will start to read from STDIN in the other loop.
my $values = <> ?? die "'Name' line without matched 'values' line.\n";
is the proper solution.
Ilya
------------------------------
Date: 31 Oct 1999 22:37:25 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: perl double-split
Message-Id: <7vigb5$8it$1@rguxd.viasystems.com>
In comp.lang.perl.misc Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
:>[A complimentary Cc of this posting was sent to lt lindley
:><lee.lindley@bigfoot.com>],
:>who wrote in article <7vhkg0$1ad$1@rguxd.viasystems.com>:
:>> while (my $names = <>) {
:>> my $values = <>;
:> ...
:>*Never* do this. Too error prone. If you hit EOF from internal <>,
:>you will start to read from STDIN in the other loop.
:> my $values = <> ?? die "'Name' line without matched 'values' line.\n";
:>is the proper solution.
Ilya, I am not so newbie as all that. :-)
The next three lines of what I wrote, which you failed to include, were
unless (defined $values) {
warn "Got a line of names, but it was not followed by values.\n";
last;
}
If that is not a sufficient test for this condition, please point
out the reason as I really don't know.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 31 Oct 1999 10:49:52 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Perl4 and Y2K
Message-Id: <m1yacjz7ov.fsf@halfdome.holdit.com>
Just a reminder since we're now just two months away from the
rollover:
THERE ARE NO PLANS TO MAKE ANY VERSION OF PERL PRIOR TO
PERL VERSION 5 Y2K COMPLIANT.
Be sure your boss knows. Upgrade now, or be sorry!
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 31 Oct 1999 12:24:18 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: quick question (I hope)
Message-Id: <slrn81p29g.66b.abigail@alexandra.delanet.com>
Diane (tech1@magicnet.net) wrote on MMCCLII September MCMXCIII in
<URL:news:emcAl36I$GA.305@cpmsnbbsa02>:
[] What would be the easiest and most effective way for a perl script to send
[] the user to an existing html page, after a database has been updated in the
[] script?
I would use the print function.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 31 Oct 1999 19:37:01 GMT
From: dha@panix7.panix.com (David H. Adler)
Subject: Re: simplifying a script
Message-Id: <slrn81p6it.df6.dha@panix7.panix.com>
In article <MPG.1284dd4ad0b0c63698a16a@nntp.hpl.hp.com>, Larry Rosler wrote:
>In article <x766zod981.fsf@home.sysarch.com> on 30 Oct 1999 13:55:26 -
>0400, Uri Guttman <uri@sysarch.com> says...
>> >>>>> "WvdB" == Walter van den Berg <vandenbNOSPAM@cistron.nl> writes:
>>
>> WvdB> No, but really, I want to thank you for the good advice. Tomorow
>> WvdB> I will go to town and buy a decent book. Is Learning Perl (2nd
>> WvdB> Edition); By Randal L. Schwartz a good one?
>>
>> it is highly recommended by the perl community.
>
>And it has two authors, one of whom isn't around to defend himself.
And, of course, if one is on Windows, one might wish to get the Win32
version - which has 3 authors! Where will it all end?
:-)
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"If it's not Jewish, it's CRAP!:)" - IsraelBeta on #DWC
------------------------------
Date: 31 Oct 1999 21:50:45 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: simplifying a script
Message-Id: <7vidjl$2lu$1@gellyfish.btinternet.com>
In comp.lang.perl.misc David H. Adler <dha@panix7.panix.com> wrote:
> In article <MPG.1284dd4ad0b0c63698a16a@nntp.hpl.hp.com>, Larry Rosler wrote:
>>In article <x766zod981.fsf@home.sysarch.com> on 30 Oct 1999 13:55:26 -
>>0400, Uri Guttman <uri@sysarch.com> says...
>>> >>>>> "WvdB" == Walter van den Berg <vandenbNOSPAM@cistron.nl> writes:
>>>
>>> WvdB> No, but really, I want to thank you for the good advice. Tomorow
>>> WvdB> I will go to town and buy a decent book. Is Learning Perl (2nd
>>> WvdB> Edition); By Randal L. Schwartz a good one?
>>>
>>> it is highly recommended by the perl community.
>>
>>And it has two authors, one of whom isn't around to defend himself.
>
> And, of course, if one is on Windows, one might wish to get the Win32
> version - which has 3 authors! Where will it all end?
>
The OS/9 version ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 31 Oct 1999 15:11:04 -0500
From: "Diane" <tech1@magicnet.net>
Subject: to Alan Flavell
Message-Id: <#FBeFx9I$GA.245@cpmsnbbsa02>
FUCK YOU!!
I come to this group for help. If you cannot find it in your useless no life
heart to give help when asked for, just butt out!!!
Please do NOT answer my posts with condescending crap!! I dont need it, nor
do I deserve it!!
Alan J. Flavell <flavell@mail.cern.ch> wrote in message
news:Pine.HPP.3.95a.991031154751.10047F-100000@hpplus01.cern.ch...
> On Sun, 31 Oct 1999, Diane wrote:
>
> Subject : quick question (I hope)
>
> Please choose meaningful Subject lines for your postings, lest they
> should be ignored by those who are best able to help you.
>
> > What would be the easiest and most effective way for a perl script to
send
> > the user to an existing html page,
>
> This is clearly a CGI-related question, and hence the proper place
> for it would be comp.infosystems.www.authoring.cgi, if it wasn't already
> an FAQ, http://www.htmlhelp.org/faq/cgifaq.3.html#13
>
> > after a database has been updated in the
> > script?
>
> That falls under the description "eg process form inputs and
> conditionally redirect the user" used in the FAQ, I would have thought.
> The fact that a database is updated is just part of the processing, and
> has no particular influence on the question of how one issues a
> redirection transaction.
>
> FAQs are good for you. Asking them on usenet (especially on a group
> where they are off-topic) is not.
>
> > Ive tried to code in using a meta tag that includes the HTTP-EQUIV
refresh
> > and then the URL, but the browser comes up with some error that it cant
> > refresh unless the data is reposted???
>
> Oh, good. Most clue-impaired people seem to use this third-rate ersatz
> method of giving a muddled impression of a redirection, without ever
> getting any immediate warning that they are creating problems.
>
> > Kinda has be confused.
>
> This will be obvious when you understand about non-idempotent requests.
> ;-}
>
------------------------------
Date: 31 Oct 1999 15:07:12 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: to Alan Flavell
Message-Id: <slrn81pbqu.66b.abigail@alexandra.delanet.com>
Diane (tech1@magicnet.net) wrote on MMCCLII September MCMXCIII in
<URL:news:#FBeFx9I$GA.245@cpmsnbbsa02>:
''
'' FUCK YOU!!
Rude, and Jeopardy.
*plonk*
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 31 Oct 1999 15:09:14 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: to Alan Flavell
Message-Id: <381CAFFA.3CAF967C@mail.uca.edu>
Diane wrote:
>
> F*** YOU!! [CLEANED UP]
>
> I come to this group for help. If you cannot find it in your useless no life
> heart to give help when asked for, just butt out!!!
>
> Please do NOT answer my posts with condescending crap!! I dont need it, nor
> do I deserve it!!
>
> Alan J. Flavell <flavell@mail.cern.ch> wrote in message
> news:Pine.HPP.3.95a.991031154751.10047F-100000@hpplus01.cern.ch...
> >
> > This is clearly a CGI-related question, and hence the proper place
> > for it would be comp.infosystems.www.authoring.cgi, if it wasn't already
> > an FAQ, http://www.htmlhelp.org/faq/cgifaq.3.html#13
Alan, can't you see that Diane is a VERY busy woman? She doesn't have
enough time to click on the URL that you enclosed in your post. After
all, it takes time for the Internet to find the URL and display it in M$
IE, and then it takes even more time for her to read it.
If you can't just spit out a magic script which she can cut-and-paste
into her obviously important-to-the-world website, then you don't have
any business pretending you know what is going on and faking an answer
to her question.
After all, she must be a really top-notch technical guru, she puts an
"anti-spam" code in her signature at the bottom to tell spammers that
the "From:" address in her headers is actually a real one. My guess is
either that this is a ploy to destroy the spammers robot through
double-deception or that every message that gets sent to her address is
assumed to be spam and she fires off a note to the spammers similar to
the one you got (maybe even the same one).
Cameron
--
Cameron Dorey
Associate Professor of Chemistry
University of Central Arkansas
Phone: 501-450-5938
camerond@mail.uca.edu
------------------------------
Date: 31 Oct 1999 21:39:18 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: to Alan Flavell
Message-Id: <7vicu6$7p7$1@rguxd.viasystems.com>
Diane <tech1@magicnet.net> wrote:
:>FUCK YOU!!
:>I come to this group for help. If you cannot find it in your useless no life
:>heart to give help when asked for, just butt out!!!
:>Please do NOT answer my posts with condescending crap!! I dont need it, nor
:>do I deserve it!!
Gee Diane. I read what Alan wrote and didn't see it as condescending
at all. And he did offer you help. He told you where you could find
an answer to your question. You may be misinterpreting his answer
if you still assume that this is an appropriate place to ask that
question, but it is not. In light of that fact, Alan's answer
was quite civilized and helpful.
I think you owe Alan an apology.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 31 Oct 1999 21:49:21 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: to Alan Flavell
Message-Id: <7vidh1$2lr$1@gellyfish.btinternet.com>
On Sun, 31 Oct 1999 15:11:04 -0500 Diane wrote:
<re-arranged jeopardic post so the assembled 'nauts can get the full
flavour of this exchange>
> Alan J. Flavell <flavell@mail.cern.ch> wrote in message
> news:Pine.HPP.3.95a.991031154751.10047F-100000@hpplus01.cern.ch...
>> On Sun, 31 Oct 1999, Diane wrote:
>>
>> Subject : quick question (I hope)
>>
>> Please choose meaningful Subject lines for your postings, lest they
>> should be ignored by those who are best able to help you.
>>
>> > What would be the easiest and most effective way for a perl script to
> send
>> > the user to an existing html page,
>>
>> This is clearly a CGI-related question, and hence the proper place
>> for it would be comp.infosystems.www.authoring.cgi, if it wasn't already
>> an FAQ, http://www.htmlhelp.org/faq/cgifaq.3.html#13
>>
>> > after a database has been updated in the
>> > script?
>>
>> That falls under the description "eg process form inputs and
>> conditionally redirect the user" used in the FAQ, I would have thought.
>> The fact that a database is updated is just part of the processing, and
>> has no particular influence on the question of how one issues a
>> redirection transaction.
>>
>> FAQs are good for you. Asking them on usenet (especially on a group
>> where they are off-topic) is not.
>>
>> > Ive tried to code in using a meta tag that includes the HTTP-EQUIV
> refresh
>> > and then the URL, but the browser comes up with some error that it cant
>> > refresh unless the data is reposted???
>>
>> Oh, good. Most clue-impaired people seem to use this third-rate ersatz
>> method of giving a muddled impression of a redirection, without ever
>> getting any immediate warning that they are creating problems.
>>
>> > Kinda has be confused.
>>
>> This will be obvious when you understand about non-idempotent requests.
>> ;-}
>>
>
> FUCK YOU!!
>
> I come to this group for help. If you cannot find it in your useless no life
> heart to give help when asked for, just butt out!!!
>
> Please do NOT answer my posts with condescending crap!! I dont need it, nor
> do I deserve it!!
>
Hoo, delightful. Diane asks off-topic question, Alan points Diane to the
very answer she is looking for in (admittedly) another resource, Diane
tells Alan to Fuck Off, usenauts put Diane in killfile. Simple, elegant:
a microcosm of late twentieth century life really.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 31 Oct 1999 20:14:00 GMT
From: Rachelle Crescini <rcrescini@home.com>
Subject: Upload files via HTTP
Message-Id: <381C949D.9F5AC4EA@home.com>
Hi everyone,
I would like to know if it's possible to securely upload files
to an FTP directory using a browser?
According to my ISP, UUNET, they're able to assign usernames and
passwords to the directories of our choice, on our FTP site, so that our
clients will be able to download files without having to use an FTP
client. And they'll also provide us with the master password file that
we can modify ourselves at anytime. The only problem is that our
clients will not be able to upload files. Can CGI scripting solve this
problem?
(We have a shared server, so if I do use a CGI script that will have to
access, maybe, the root-level dir, I probably wouldn't be able to do
it.)
I am new to PERL and would really appreciate ANY suggestions.
-thanx in advance
-Rachelle
------------------------------
Date: 31 Oct 1999 22:15:19 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Upload files via HTTP
Message-Id: <7vif1n$2m6$1@gellyfish.btinternet.com>
On Sun, 31 Oct 1999 20:14:00 GMT Rachelle Crescini wrote:
> Hi everyone,
>
> I would like to know if it's possible to securely upload files
> to an FTP directory using a browser?
>
> According to my ISP, UUNET, they're able to assign usernames and
> passwords to the directories of our choice, on our FTP site, so that our
> clients will be able to download files without having to use an FTP
> client. And they'll also provide us with the master password file that
> we can modify ourselves at anytime. The only problem is that our
> clients will not be able to upload files. Can CGI scripting solve this
> problem?
>
It might well be able to do so, however you almost certainly asked this
question in the wrong newsgroup. Questions about the capabilities of the
CGI are best asked in the group comp.infosystems.www.authoring.cgi, once
determined that the CGI is thus capable and that Perl is the implimentation
language of choice, then perhaps if you have any difficulties with the
implementation details that are peculiar to Perl we might be able to
help you. Bear in mind that Perl is not synonymous with CGI.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 31 Oct 1999 14:33:02 -0600
From: "Blair Heuer" <ab@cd.com>
Subject: upload progress
Message-Id: <7vi92e$qah$1@birch.prod.itd.earthlink.net>
Does anyone know a way, be it through a module, library, script, or
whatever, to show the progress of a file being uploaded through perl. My
script is to run a free webspace server, and it all works, but I was just
wondering if there was a way to show the user that the file was in fact
uploading and that something was happening... otherwise on big files it just
looks like the browser is working hard at loading a page.
Any help (even a simple "no") is welcome.
Thanks,
Blair Heuer
------------------------------
Date: Sun, 31 Oct 1999 22:52:16 -0000
From: "James Lavery" <james_lavery@csi.com>
Subject: Using SelfLoader along with our own AUTLOAD
Message-Id: <7vih5b$hhj$2@ssauraaa-i-1.production.compuserve.com>
Hi all,
We've written an extensive OO Perl system, and now want to improve memory
efficiency by using SelfLoader or AutoLoader.
However, I'm having trouble with this as we are using AUTOLOAD to access
object properties, which is interfering with SelfLoader's AUTOLOAD.
Our base object is LRSobject, which contains the AUTOLOAD, and others
inherit as folows (code snips used for brevity...)
vvvvvvvvvvvvvvvvvvvvvvvvvvv
package LRSObject;
sub AUTOLOAD {
# code here gets/sets object properties to avoid having to write accessor
methods for all
# of them
}
package Title;
@ISA = qw(LRSObject);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Is there a way to use SelfLoader with this model? I am finding that the
LRSobject's AUTOLOAD is not getting called - only SelfLoader's AUTOLOAD. I
have looked at the SelfLoader documentation, but this only says 'If you have
your own AUTOLOAD... you probably know what you are doing'! Well, I did
know what I was doing, but not how to resolve this one!
Thanks,
James Lavery
MicroSec Ltd
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 1238
**************************************
