[17011] in Perl-Users-Digest
Perl-Users Digest, Issue: 4423 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 25 14:05:38 2000
Date: Mon, 25 Sep 2000 11:05:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <969905113-v9-i4423@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 25 Sep 2000 Volume: 9 Number: 4423
Today's topics:
$1 .. $2: odd behavior? <bmb@ginger.libs.uga.edu>
Re: $1 .. $2: odd behavior? <bmb@ginger.libs.uga.edu>
Re: $1 .. $2: odd behavior? <ren.maddox@tivoli.com>
Re: 'use warnings;' versus '-w' (Daniel Chetlin)
Re: /me bangs head agains't brick wall (Ben Coleman)
Re: [IGNORE - OFF TOPIC] Re: vertical text renderer <uri@sysarch.com>
Re: Candidate for the top ten perl mistakes list <sariq@texas.net>
CGI.pm: How to access the raw post data? <kmatassa@jetform.com>
Re: CGI.pm: How to access the raw post data? <dsimonis@fiderus.com>
Re: CGI.pm: How to access the raw post data? <yanoff@yahoo.com>
clickable scrolling list <star@sonic.net>
Converting urls - the other way! <ralawrence@my-deja.com>
Re: Converting urls - the other way! (Rafael Garcia-Suarez)
Re: Converting urls - the other way! <godzilla@stomp.stomp.tokyo>
crontab, perl, oracle query kmhanser@my-deja.com
Re: crontab, perl, oracle query (John J. Trammell)
Re: crontab, perl, oracle query <amonotod@netscape.net>
determine where visitors are "living" kebr@my-deja.com
Re: determine where visitors are "living" <kmetcalf@NOTlighthousemarketingNOT.com>
Re: determine where visitors are "living" <sariq@texas.net>
Re: determine where visitors are "living" <pilsl@goldfisch.atat.at>
enter unicode in forms (foreign languages) <pilsl@goldfisch.atat.at>
Getting a file from an HTML page <ofir.goldberger@weizmann.ac.il>
Re: HTML to Text converter <tom@xor.cc>
Re: Massive kill Unix and Perl <anmcguire@ce.mediaone.net>
Need help on Hash ? tvn007@my-deja.com
perl 5.6.0 & gdbm 1.8.0 - not portable? <OfficerS@aries.tucson.saic.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 25 Sep 2000 11:53:29 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: $1 .. $2: odd behavior?
Message-Id: <Pine.A41.4.21.0009251133120.8552-100000@ginger.libs.uga.edu>
This is perl, version 5.005_03 built for sun4-solaris
Could someone explain why there are warnings (and a 0 return) for line 5,
but not for lines 4 or 6? I've looked for 'range' in the faq and at the
docs for the range operator. I suspect the answer is there somewhere, but
it's not sinking in.
1 #!/usr/local/bin/perl -w
2 use strict;
3
4 print 'a' .. 'z', "\n";
5 if( 'a-z' =~ /([^-]+)-([^-]+)/ ) { print $1 .. $2, "\n"; }
6 if( 'a-z' =~ /([^-]+)-([^-]+)/ ) { print $1 .. $2, "\n"; }
7
8 __DATA__
9 Output:
10 Argument "a" isn't numeric in flop at ./qt line 5.
11 Argument "z" isn't numeric in flop at ./qt line 5.
12 Argument "a" isn't numeric in flop at ./qt line 5.
13 Argument "z" isn't numeric in flop at ./qt line 5.
14 abcdefghijklmnopqrstuvwxyz
15 0
16 abcdefghijklmnopqrstuvwxyz
Thanks,
Brad
------------------------------
Date: Mon, 25 Sep 2000 13:47:36 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: $1 .. $2: odd behavior?
Message-Id: <Pine.A41.4.21.0009251346360.8552-100000@ginger.libs.uga.edu>
On Mon, 25 Sep 2000, Brad Baxter wrote:
> This is perl, version 5.005_03 built for sun4-solaris
>
> Could someone explain why there are warnings (and a 0 return) for line 5,
> but not for lines 4 or 6? I've looked for 'range' in the faq and at the
> docs for the range operator. I suspect the answer is there somewhere, but
> it's not sinking in.
>
> 1 #!/usr/local/bin/perl -w
> 2 use strict;
> 3
> 4 print 'a' .. 'z', "\n";
> 5 if( 'a-z' =~ /([^-]+)-([^-]+)/ ) { print $1 .. $2, "\n"; }
> 6 if( 'a-z' =~ /([^-]+)-([^-]+)/ ) { print $1 .. $2, "\n"; }
> 7
> 8 __DATA__
> 9 Output:
> 10 Argument "a" isn't numeric in flop at ./qt line 5.
> 11 Argument "z" isn't numeric in flop at ./qt line 5.
> 12 Argument "a" isn't numeric in flop at ./qt line 5.
> 13 Argument "z" isn't numeric in flop at ./qt line 5.
> 14 abcdefghijklmnopqrstuvwxyz
> 15 0
> 16 abcdefghijklmnopqrstuvwxyz
>
> Thanks,
>
> Brad
>
>
This is perl, v5.6.0 built for sun4-solaris
abcdefghijklmnopqrstuvwxyz
abcdefghijklmnopqrstuvwxyz
abcdefghijklmnopqrstuvwxyz
Never mind.
:-)
Brad
------------------------------
Date: 25 Sep 2000 11:53:40 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: $1 .. $2: odd behavior?
Message-Id: <m3wvg0s99n.fsf@dhcp11-177.support.tivoli.com>
Brad Baxter <bmb@ginger.libs.uga.edu> writes:
> This is perl, version 5.005_03 built for sun4-solaris
>
> Could someone explain why there are warnings (and a 0 return) for line 5,
> but not for lines 4 or 6? I've looked for 'range' in the faq and at the
> docs for the range operator. I suspect the answer is there somewhere, but
> it's not sinking in.
>
> 1 #!/usr/local/bin/perl -w
> 2 use strict;
> 3
> 4 print 'a' .. 'z', "\n";
> 5 if( 'a-z' =~ /([^-]+)-([^-]+)/ ) { print $1 .. $2, "\n"; }
> 6 if( 'a-z' =~ /([^-]+)-([^-]+)/ ) { print $1 .. $2, "\n"; }
> 7
> 8 __DATA__
> 9 Output:
> 10 Argument "a" isn't numeric in flop at ./qt line 5.
> 11 Argument "z" isn't numeric in flop at ./qt line 5.
> 12 Argument "a" isn't numeric in flop at ./qt line 5.
> 13 Argument "z" isn't numeric in flop at ./qt line 5.
> 14 abcdefghijklmnopqrstuvwxyz
> 15 0
> 16 abcdefghijklmnopqrstuvwxyz
It works fine for me in 5.6, so I assume it was just a bug in 5.005_03
that has since been fixed.
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: 25 Sep 2000 16:08:49 GMT
From: daniel@chetlin.com (Daniel Chetlin)
Subject: Re: 'use warnings;' versus '-w'
Message-Id: <8qntah02q0f@news2.newsguy.com>
On Mon, 25 Sep 2000 13:52:00 GMT, JL Goldstein <jgoldst@my-deja.com> wrote:
>Why would one use the 'use warnings;' pragma rather than the '-w'
>switch? Is there a practical difference?
Many differences:
* The pragma is lexically scoped, whereas the switch (and its brother,
$^W, are dynamically scoped
* One can disable warnings which once were mandatory with the pragma
* One can choose certain warnings to be fatal, and choose which warnings
to hear about and which to not
See the perllexwarn manpage for more details.
-dlc
------------------------------
Date: Mon, 25 Sep 2000 15:49:23 GMT
From: oloryn@mindspring.com (Ben Coleman)
Subject: Re: /me bangs head agains't brick wall
Message-Id: <39cf7370.3315918@news.mindspring.com>
On 25 Sep 2000 14:30:41 +0100, brianr@liffe.com wrote:
>"CJ Llewellyn" <darryl@work-thicker.co.uk> writes:
>
>> "Ben Coleman" <oloryn@mindspring.com> wrote in message
>> news:39cbd316.27150870@news.mindspring.com...
>> -snip-
>> > not to mention perldoc File::Find
>>
>> I looked at using find but it's not quite what I wanted.
>
>Hmmm, in your original post you said "I'm having trouble with a script
>that recurses through directories". That's what File::Find does.
>
>If I understand what you are trying to do in the script in your OP, it
>can even be done as a one-liner using File::Find
>
>perl -MFile::Find -e'find(sub{print"$File::Find::name\n" unless -d}, "/usr")'
>
>In what way is that not what you wanted?
I believe his original code tried to do depth-first, but that's easily
rectified by using finddepth instead of find.
Ben
------------------------------
Date: Mon, 25 Sep 2000 16:00:45 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: [IGNORE - OFF TOPIC] Re: vertical text renderer
Message-Id: <x766nkbgwj.fsf@home.sysarch.com>
>>>>> "G" == Godzilla! <godzilla@stomp.stomp.tokyo> writes:
G> Well, at least you have stopped threatening our
G> family with physical violence, have stopped
G> threatening our family with crime and, have
G> stopped stalking me from newsgroup-to-newsgroup
G> only to harass me in your typical vulgar way.
you are so delusional it is amazing. go see a dcotor. i have no idea who
your family is, nor do i care. and cleaning up after you crap on usenet
is not stalking. learn some english already.
G> Who is the troll Mr. Guttman? Rhetorical
G> question of course. You are simply one
G> of a myriad sociopathic trolls populating
G> this newsgroup concealed in guise of being
G> a self-proclaimed Perl Professional.
hahahahahahahah. and do you get paid for you trashy perl? do you have
anyone here asking for your help or appreciating it? the answer as
anyone could find on deja is no.
G> Kira
at least you are posting your real name. but that is not enough. just
stop posting already. bye bye.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Mon, 25 Sep 2000 10:27:24 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: Candidate for the top ten perl mistakes list
Message-Id: <39CF6EDC.2B0E8126@texas.net>
Russ Jones wrote:
>
> And I know that English isn't Abigail's mother tongue, it's just that
> I can't ever find any nits to pick in her code and sometimes she makes
> me so dang mad, so I have to use the opportunities that are available
> to me.
The lengths to which some people will go, just to be killfiled, truly
amazes me.
Why didn't you just *ask* for the regulars to ignore your posts?
- Tom
------------------------------
Date: Mon, 25 Sep 2000 13:20:57 -0400
From: "Kevin Matassa" <kmatassa@jetform.com>
Subject: CGI.pm: How to access the raw post data?
Message-Id: <ssv2dhlg6uspc4@corp.supernews.com>
Does CGI.pm expose the raw POSTED data through a method or property?
-Kevin
------------------------------
Date: Mon, 25 Sep 2000 13:48:26 -0400
From: Drew Simonis <dsimonis@fiderus.com>
Subject: Re: CGI.pm: How to access the raw post data?
Message-Id: <39CF8FEA.8DDBFDF1@fiderus.com>
Kevin Matassa wrote:
>
> Does CGI.pm expose the raw POSTED data through a method or property?
> -Kevin
Have you read the documentation? I gather not, else you wouldn't
ne asking this question. RTFM please.
------------------------------
Date: Mon, 25 Sep 2000 13:07:40 -0500
From: Scott Yanoff <yanoff@yahoo.com>
To: Kevin Matassa <kmatassa@jetform.com>
Subject: Re: CGI.pm: How to access the raw post data?
Message-Id: <39CF946C.DC555F8@yahoo.com>
Kevin Matassa wrote:
>
> Does CGI.pm expose the raw POSTED data through a method or property?
I have not tried this but out of curiosity, I viewed the manual page for
this by typing "perldoc CGI" on my Unix system.
An explanation appears around pages 6-7. In order to retain
backwards-compatibility with cgi-lib.pl, the input variables are stored
in a hash called %in. So, perhaps you could get what you need out of
this. Otherwise, if you are just looking for a string such as "$buffer"
where the raw data is kept, that is something I am not sure about.
However, %in should be pretty close, you could always re-join the fields
with the "&" between them.
Good luck,
-Scott
------------------------------
Date: Mon, 25 Sep 2000 17:24:58 GMT
From: arthur <star@sonic.net>
Subject: clickable scrolling list
Message-Id: <B5F38727.8B57%star@sonic.net>
Good Day :@),
I am trying to make a clickable scrolling list. I have two forms on my page
and I want the second form when you click on one of the VALUES to fill in
the - textfield('name') -space in the first form. Is that possible?
start_form,
"The name of the game you wish to play is: ",textfield('name'),
submit,
end_form,
p,
start_form,
scrolling_list(-NAME =>'listofgames',
-VALUES=>["red","EnglishToItalian","blue","chartreuse" ],
-LABELS => {
red => param('name'),
green => 'g',
blue => 'b',
chartreuse => 'c'},
-size =>2,
-multiple=>0,
),
submit,
end_form,
Thanks,
~arthur
------------------------------
Date: Mon, 25 Sep 2000 15:30:22 GMT
From: Richard Lawrence <ralawrence@my-deja.com>
Subject: Converting urls - the other way!
Message-Id: <8qnr1g$mib$1@nnrp1.deja.com>
Hi,
Can anyone help? I have:
my $clean = $original_url;
$clean =~ tr/+/ /;
$clean =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
which makes $clean show urls with things like %20 and + turned to
spaces and so on.
However converting something back (ie. from "hello there" to "hello%
20there") has me stuck. Can anyone help?
Many thanks
Rich
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 16:10:12 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Converting urls - the other way!
Message-Id: <slrn8suuji.cn0.rgarciasuarez@rafael.kazibao.net>
Richard Lawrence wrote in comp.lang.perl.misc:
>
>However converting something back (ie. from "hello there" to "hello%
>20there") has me stuck. Can anyone help?
Use the URI::Escape module.
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Mon, 25 Sep 2000 09:37:58 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Converting urls - the other way!
Message-Id: <39CF7F66.960EF540@stomp.stomp.tokyo>
Richard Lawrence wrote:
> Can anyone help? I have:
> my $clean = $original_url;
> $clean =~ tr/+/ /;
> $clean =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
> which makes $clean show urls with things like %20 and + turned to
> spaces and so on.
> However converting something back (ie. from "hello there" to "hello%
> 20there") has me stuck. Can anyone help?
*scratches her noggin*
Umm.. yeah.
$clean = $original_url;
There, now your variable is back to its
original url encoded condition.
*ponders*
Might help if you ask your question in
a clear and concise manner.
Godzilla!
--
Are you ready for Roberta The Remarkable Robot?
------------------------------
Date: Mon, 25 Sep 2000 16:01:18 GMT
From: kmhanser@my-deja.com
Subject: crontab, perl, oracle query
Message-Id: <8qnsrv$oso$1@nnrp1.deja.com>
Hello, I'm trying to run a perl script via a crontab entry that queries
an oracle database. However, I am getting some errors... I've looked
in my perl book, and found the section that describes the cron
environment being limited, so I've tried setting the Oracle environment
variables via the $ENV command, but I'm stil having problems. I keep
getting this error:
DBI->connect failed: Error while trying to retrieve text for error ORA-
12154 (DBD ERROR: OCIServerAttach) at /usr/local/bin/checkquota.pl line
26
Can't call method "prepare" on an undefined value
at /usr/local/bin/checkquota.pl line 31.
I've also tried running the /etc/profile (which sets the ORACLE
variables normally) before the perl script, but I get the same error...
Any ideas?
Thanx
Kevin Hanser
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 25 Sep 2000 16:27:37 GMT
From: trammell@nitz.hep.umn.edu (John J. Trammell)
Subject: Re: crontab, perl, oracle query
Message-Id: <slrn8su4u1.8gj.trammell@nitz.hep.umn.edu>
On Mon, 25 Sep 2000 16:01:18 GMT, kmhanser@my-deja.com
<kmhanser@my-deja.com> wrote:
>I keep getting this error:
>
>DBI->connect failed: Error while trying to retrieve text for error ORA-
>12154 (DBD ERROR: OCIServerAttach) at /usr/local/bin/checkquota.pl line
>26
Your connect failed. That's pretty bad. What arguments are you
passing? What environment variables are you setting, and to what?
What research have you done on ORA error 12154?
>Can't call method "prepare" on an undefined value
>at /usr/local/bin/checkquota.pl line 31.
Why are you even trying to call prepare() if your connect failed?
--
John J. Trammell
johntrammell@yahoo.com
------------------------------
Date: Mon, 25 Sep 2000 16:44:53 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: crontab, perl, oracle query
Message-Id: <8qnve0$s6h$1@nnrp1.deja.com>
In article <8qnsrv$oso$1@nnrp1.deja.com>,
kmhanser@my-deja.com wrote:
> Hello, I'm trying to run a perl script via a crontab entry that
> queries an oracle database. However, I am getting some errors...
> I've looked in my perl book, and found the section that describes the
> cron environment being limited, so I've tried setting the Oracle
> environment variables via the $ENV command, but I'm stil having
> problems. I keep getting this error:
>
> DBI->connect failed: Error while trying to retrieve text for error
> ORA-> 12154 (DBD ERROR: OCIServerAttach) at
> usr/local/bin/checkquota.pl line 26
> Can't call method "prepare" on an undefined value
> at /usr/local/bin/checkquota.pl line 31.
>
> I've also tried running the /etc/profile (which sets the ORACLE
> variables normally) before the perl script, but I get the same
> error...
>
> Any ideas?
Assuming this is not a perl issue: We use .sh scripts to call our perl
scripts. In this way it is possible to set up the ENV through FOO=BAR;
export FOO; commands. The .sh scripts then call the Perl.
Otherwise: It may be necessary to post your code.
HTH,
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 15:09:28 GMT
From: kebr@my-deja.com
Subject: determine where visitors are "living"
Message-Id: <8qnpql$l22$1@nnrp1.deja.com>
Hello,
Based on where my website visitors are coming from I would like to
serve them another/a modified page. Now I hear you all say, use
http_referrer and things like that, but this is not what I mean.
I'm looking for a script that will determine the geographic location of
a visitor.
The ultimate goal would be to serve country/region specific pages based
on the IP-address (?) or some other parameter. Is this at all possible
or am I dreaming aloud ?
I have looked at various code archives and searched the net but haven't
as yet found something suitable.
Any ideas for something along this line ?
kind regards,
Kenneth.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 25 Sep 2000 17:15:55 GMT
From: kevin metcalf <kmetcalf@NOTlighthousemarketingNOT.com>
Subject: Re: determine where visitors are "living"
Message-Id: <39CF889A.F6FA2D3E@NOTlighthousemarketingNOT.com>
kebr@my-deja.com wrote:
> Hello,
>
> Based on where my website visitors are coming from I would like to
> serve them another/a modified page. Now I hear you all say, use
> http_referrer and things like that, but this is not what I mean.
> I'm looking for a script that will determine the geographic location of
> a visitor.
> The ultimate goal would be to serve country/region specific pages based
> on the IP-address (?) or some other parameter. Is this at all possible
> or am I dreaming aloud ?
>
> I have looked at various code archives and searched the net but haven't
> as yet found something suitable.
> Any ideas for something along this line ?
>
> kind regards,
>
> Kenneth.
If you could find a way to search all those IP addresses in the 2-3 seconds
you have before users will assume that there is no web page there and
leave, you would still have to deal with the death threats from certain
fundamentalists who think this would be an invasion of privacy. Sorry,
though, I have no <i>useable</i> answer.
------------------------------
Date: Mon, 25 Sep 2000 12:17:46 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: determine where visitors are "living"
Message-Id: <39CF88BA.4978C5D4@texas.net>
kebr@my-deja.com wrote:
>
> The ultimate goal would be to serve country/region specific pages based
> on the IP-address (?) or some other parameter. Is this at all possible
> or am I dreaming aloud ?
What does this have to do with Perl?
> Any ideas for something along this line ?
Yes, ask in a proper forum.
- Tom
------------------------------
Date: Mon, 25 Sep 2000 17:31:47 GMT
From: peter pilsl <pilsl@goldfisch.atat.at>
Subject: Re: determine where visitors are "living"
Message-Id: <MPG.1439aacbf1c65b139898a5@news.chello.at>
In article <8qnpql$l22$1@nnrp1.deja.com>, kebr@my-deja.com says...
> Hello,
>
>
> Based on where my website visitors are coming from I would like to
> serve them another/a modified page. Now I hear you all say, use
> http_referrer and things like that, but this is not what I mean.
> I'm looking for a script that will determine the geographic location of
> a visitor.
> The ultimate goal would be to serve country/region specific pages based
> on the IP-address (?) or some other parameter. Is this at all possible
> or am I dreaming aloud ?
>
>
> I have looked at various code archives and searched the net but haven't
> as yet found something suitable.
> Any ideas for something along this line ?
>
You know that the best you can get is the ip-adress of the visitor (or his
proxy if he is using one). Based on this address you might get
geographical information.
I remember some windows-tools that make some geographical traceroute on a
world-map. I dont know if they use a big database or some other tricks.
Maybe you find something on their webpage: The tool I remember is called
neotrace.
Other methods: Let the visitor tell you one time where he lives and store
a cookie. Or use the host-function (or something similar on non-linux-
hosts) to convert the ip to hostname, so you could grap the countrycode.
Maybe some perl-scripts could also grap the visitors timezone and
language, so you could get more detailed information.
peter
--
pilsl@
goldfisch.at
------------------------------
Date: Mon, 25 Sep 2000 17:23:16 GMT
From: peter pilsl <pilsl@goldfisch.atat.at>
Subject: enter unicode in forms (foreign languages)
Message-Id: <MPG.1439a8cd6df650e39898a3@news.chello.at>
In my cgi-scripts I found the following mysterium:
when entering foreign languages (russion) and my defaultlanguage mixed in
a text-input-field in a form I sometimes get the foreign part of input
back as unicode (i.e: this is a test:еуче) and
sometimes I get the foreign part of the input back as "normal" code =
nonsense signs (I guess, ASCII-Code)
I now found out, that this has to do with the other components of the
form. If I have only two textfields I get back nonsense code. If I add an
uploadfield I get back what I want. If I add a lot of more fields
(multiscroll, popup ...) I get nonsense-code again.
I also noticed that when unicode comes back, every field delivers two
parameters back, one with the unicode and one with the ascii-code and that
all this behaviour changes also somehow depending if I use normale forms
or multipart-forms and all is very confusing and I play around with this
for a few days now without getting to knowledge. I didnt find anything
about it in the CGI-docs, so maybe one of you could give me some help or
link to documentation that covers CGI-forms <-> unicode.
thanx,
peter
--
pilsl@
goldfisch.at
------------------------------
Date: Mon, 25 Sep 2000 18:13:59 +0300
From: Ofir Goldberger <ofir.goldberger@weizmann.ac.il>
Subject: Getting a file from an HTML page
Message-Id: <B5F54667.750%ofir.goldberger@weizmann.ac.il>
Hi !
I need to get a file from the user via an HTML page with the tag <input
type="file">. I tried using CGI::Standared's param() method but all I got
was the file name.
does anyone know how I can get a filehandle to this file ?
Thanx
Ofir
------------------------------
Date: Mon, 25 Sep 2000 10:04:25 PDT
From: Tom Geldner <tom@xor.cc>
Subject: Re: HTML to Text converter
Message-Id: <VA.00000089.0503719c@xor.cc>
Thanks. I had searched there but for some reason my search
strings didn't turn these up.
Tom of XOR
http://xor.cc for cyber clothez.
------------------------------
Date: Mon, 25 Sep 2000 11:29:14 -0500
From: "Andrew N. McGuire " <anmcguire@ce.mediaone.net>
Subject: Re: Massive kill Unix and Perl
Message-Id: <Pine.LNX.4.21.0009251127440.15838-100000@hawk.ce.mediaone.net>
On Mon, 25 Sep 2000, Rafael Garcia-Suarez quoth:
RG> vivekvp wrote in comp.lang.perl.misc:
RG> >
RG> >Sometimes I have to kill processes that are hogging to many resouces -
RG> >I want to write a script that will do mulitple kills. I do not want to
RG> >kill the users - just knock off the rogue process.
RG> >
RG> >Let say the user name is USER the proces need to be killed is TEST
[ snip ]
RG> This is typically a task for shell programming. Here is a shell command
RG> that does (it uses perl, because we are in c.l.p.m :)
RG>
RG> ps -ef | perl -ne 'split && kill 9, $_[1] if /\bTEST$/'
Or:
ps -u USER | perl -ane '/\bTEST$/ && kill 9, $F[0]'
anm
--
# Andrew N. McGuire
my $j = [ [ qw+ 4A 75 73 74 20 61 0 +] => [ qw+ 6E 6F 74 68 65 72 0 + ] =>
,,,,,,,,, [ qw+ 20 50 65 72 6C 20 0 +] => [ qw+ 48 61 63 6B 65 72 A + ] ];
;;;;;;;;; print map chr(hex()) => map @$_ => map @$j->[$_-0xA], 0xA .. 0xD
------------------------------
Date: Mon, 25 Sep 2000 17:19:13 GMT
From: tvn007@my-deja.com
Subject: Need help on Hash ?
Message-Id: <8qo1dr$uog$1@nnrp1.deja.com>
Hi,
Could someone please help me on this ?
I have two files:
File #1
A3 34
B33 100
File #2
Station1 A3
Station2 B33
I would like to have the output as follow:
Station1 34
Station2 100
Thanks for any help.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 25 Sep 2000 10:26:18 -0700
From: Sarah Officer <OfficerS@aries.tucson.saic.com>
Subject: perl 5.6.0 & gdbm 1.8.0 - not portable?
Message-Id: <39CF8ABA.A2B4AD7F@aries.tucson.saic.com>
I have built perl 5.6.0 and gdbm 1.8.0 on both Solaris 5.8 and
Silicon Graphics IRIX 6.5. We access GDBM using a Tie::Hash and the
GDBM_File stuff. We used to have perl 5.00502 and gdbm 1.7.3. With
our old stuff, we could access the same database from both the
Solaris box and the SGI. With the new stuff, I can access a
database from Solaris, but on the SGI the tie fails because it can't
open the gdbm file. The file does exist and have read/write
permission for the world.
Has anyone else experienced the problem with gdbm on the silicon
graphics platform? Here's the line which fails:
use GDBM_File;
require Tie::Hash;
$PrefDB = ....;
tie %Pref, "GDBM_File", $PrefDB, O_CREAT|O_RDWR, 0660
or die "Cannot open file: $PrefDB\n";
This succeeds on the sun, and I go on to read the contents of the
database. On the SGI, I get:
Cannot open file: /Foo/Db/PREF.gdbm
Does anybody else have this problem? Any suggestions? The file
does exist, and the path is correct, and the permissions are
correct.
Thanks,
Sarah
officers@aries.tucson.saic.com
------------------------------
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 4423
**************************************
