[11535] in Perl-Users-Digest
Perl-Users Digest, Issue: 5135 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 15 03:07:30 1999
Date: Mon, 15 Mar 99 00:00:22 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 15 Mar 1999 Volume: 8 Number: 5135
Today's topics:
5.003-5.004 compatibility <jstoner@generosity.org>
Re: 5.003-5.004 compatibility (brian d foy)
Re: @ARGV is not working <ebohlman@netcom.com>
Re: [Q] Popping an array element (Ronald J Kimball)
Re: [Q] Popping an array element (Ronald J Kimball)
Better Sort, Please (Bill Moseley)
Re: Check return values on close() <ebohlman@netcom.com>
Re: Editing array content (Ronald J Kimball)
hash value needed jhurlbut@sddpc.org
Re: hash value needed <ebohlman@netcom.com>
install perl on home dir? gadesign*nospam*@crl.com
List of Lists <seugenio@man.amis.com>
make depend error <nimesh@smanap.harvard.edu>
Newbie question about form to mail program <dbrotman@worldnet.att.net>
open port from behind firewall, with no proxy <pbolda@spamtrap.dynamite.com.au>
Passing Multiple Variables to a Sub <support@counter.w-dt.com>
Re: Passing Multiple Variables to a Sub (David Efflandt)
Re: searching a flat file database (Kim Saunders)
Re: Sending a Hotmail email <jamesht@idt.net>
Such a WWW Board required; Free or Paid t_alter@hotmail.com
Thread pools (was Re: 1000 thread limit?) <sugalskd@netserve.ous.edu>
Two questions <syt@email*@sp\am|@|spa/m@*.com>
Re: Two questions (Kim Saunders)
Re: Two questions (Ronald J Kimball)
Re: UNIQUE variable... <jamesht@idt.net>
URL encoding routine? <jamesht@idt.net>
Re: URL encoding routine? <ebohlman@netcom.com>
Web mail reader? <mknewman@blkbox.com>
Re: Web mail reader? (brian d foy)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 14 Mar 1999 21:52:28 -0600
From: John Stoner <jstoner@generosity.org>
Subject: 5.003-5.004 compatibility
Message-Id: <36EC83FC.36019326@generosity.org>
I've heard there are some minor incompatibilities between the two...is
this true? What are they?
--
| Enterprises:
John Stoner | The Generosity Game:
mailto:jstoner@generosity.org | http://www.generosity.org
http://www.generosity.org/stoner | day job:
| Pencom Web Works
| http://www.pww.pencom.com
| jstoner@pencom.com
------------------------------
Date: Sun, 14 Mar 1999 23:58:58 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: 5.003-5.004 compatibility
Message-Id: <comdog-ya02408000R1403992358580001@news.panix.com>
In article <36EC83FC.36019326@generosity.org>, John Stoner <jstoner@generosity.org> posted:
> I've heard there are some minor incompatibilities between the two...is
> this true? What are they?
the differences in new releases of perl can be found in the perldelta
man page.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: Mon, 15 Mar 1999 07:27:21 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: @ARGV is not working
Message-Id: <ebohlmanF8MKpM.88r@netcom.com>
Paul Hadley <paulhadley@earthlink.net> wrote:
: (My System: Windows NT SP3; Perl 5.004_02 (binary distribution)
: Perl Script:
: #!/bin/perl -w
: #argvtest1.pl
: print "$0\n", join( " ", @ARGV), "\n";
: Command line$ argvtest1.pl one two three
: Output$ D:\PERLSC~1\ARGUTE~1.PL
: <EMPTY LINE>
: <EMPTY LINE>
On NT, there can be problems passing arguments to "commands" created by
file associations. Try "perl argvtest1.pl one two three" and see if that
works.
------------------------------
Date: Sun, 14 Mar 1999 21:17:29 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: [Q] Popping an array element
Message-Id: <1dood53.2sabgl1vss9aaN@bay3-229.quincy.ziplink.net>
Chi-Feng Wu <cfwu@slugger.ee.nthu.edu.tw> wrote:
> The Book tell us that
> $tmp = pop ARRAY
> has the same effect as
> $tmp = $ARRAY[$#ARRAY--];
>
> But why I just get an undefined $tmp while I use the second
> method? Well, like this:
>
> @bugs = qw/Flik Atta Hopper/;
> print @bugs, $/;
> $bugger = $bugs[$#bugs--];
> print $bugger, $/;
>
> then $bugger gets undef.
I believe the problem is that $#ARRAY-- decreases the size of the array,
which immediately destroys the last element.
So, this would work:
$tmp = $ARRAY[$#ARRAY]; $#ARRAY--;
But this doesn't:
$tmp = $ARRAY[$#ARRAY--];
because first the size of the array is decremented, and then the array
index is performed, which references an element which no longer exists.
This is probably a documentation bug.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 15 Mar 1999 02:52:27 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: [Q] Popping an array element
Message-Id: <1doot2p.xouqbdlvoojbN@bay3-229.quincy.ziplink.net>
Peter Moore <pmoore@interaccess.com> wrote:
> ie $bugs[3] and $bugs[-4] are the same reference to the same memory
> localtion.
That is not correct. 3 is the fourth element from the beginning. -4 is
the fourth element from the end. They'll be the same only if the array
has exactly 7 minutes.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sun, 14 Mar 1999 23:37:54 -0800
From: moseley@best.com (Bill Moseley)
Subject: Better Sort, Please
Message-Id: <MPG.115658ac93a66f539896df@206.184.139.132>
I know these sort discussions have been beaten to death here, but...
I have a multiple level sort. I build an array where each element looks
like:
push @sortarray,
{
KEY => $reference_of_thing_Im_sorting,
SORT1 => $primary_sort_key,
SORT2 => $secondary_sort_key,
};
[In real life, the number of sort levels are determined at run-time and
the foreach (qw/SORT1 SORT2/) below really looks like
foreach ( @sort_levels ) ]
I'm only sorting about 1000-2000 items, and I don't want to stringify --
as it is, I'm probably spending more time building the sort array than
actually sorting.
$cmp{SORT1} and $cmp{SORT2} are true if the sort is non-numeric, set for
each sort key (one could be <=> and the other cmp).
It's almost midnight and this was quick, but it seems like a lot of work
for the sort routine to have that compare each time. Can you recommend
any better, cleaner, nicer looking, or faster methods?
Also, I'd like to add a reverse sort flag for each key level, but that
looks like more testing within the sort routine.
my $sort_compare;
@students = map { $_->{KEY} }
sort {
foreach (qw/SORT1 SORT2/) {
if ( $cmp{$_} ) {
$sort_compare = $a->{$_} cmp $b->{$_}
} else {
$sort_compare = $a->{$_} <=> $b->{$_}
}
return $sort_compare if $sort_compare;
}
return 0;
} @students;
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: Mon, 15 Mar 1999 07:39:36 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Check return values on close()
Message-Id: <ebohlmanF8MLA0.8or@netcom.com>
Bill Moseley <moseley@best.com> wrote:
: Here's a small chunk of my sendmail routine:
: sub send_mail {
: my $params = "|$sendmail -t -oi -oem";
: return "Failed open of sendmail:$sendmail:$!"
: unless (open MAIL, $params );
Normally, the only time you'll get a failure here is if the system were
unable to fork a new process (because the process table was full or
something like that). As long as the fork succeeds, the open() will
succeed even if sendmail couldn't be run.
: print MAIL $body;
: return "Failed close of sendmail:$sendmail:$!" unless (close MAIL);
If there were problems running sendmail, this is where they'll show up.
: 0;
: }
------------------------------
Date: Sun, 14 Mar 1999 21:17:31 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Editing array content
Message-Id: <1doodgk.12czmd11tz3nswN@bay3-229.quincy.ziplink.net>
u4ia <u4ia@nospam.videotron.ca.nospam> wrote:
> I tried $chomp($ra[34]) since the last line is a carriage return but it
> didn't work and I can't see any other operators to remove array content.
> *sigh* :o) (did I already said that I'm coding Perl for two days only? :P ).
And chomp() doesn't remove even remove array content in the first place.
Any of these would remove the last element of the array:
pop(@ra);
splice(@ra, -1);
$#ra--;
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 15 Mar 1999 06:51:13 GMT
From: jhurlbut@sddpc.org
Subject: hash value needed
Message-Id: <7ciakv$4f9$1@nnrp1.dejanews.com>
I've looked through all the FAQs that seem appropriate and can't seem to find
the answer to my question. As I'm new to Perl please answer in as straight
forward a manner as possible. I have a hash and I just want the value for a
single key. All the examples I've seen seem to loop through the entire hash
producing values for all the keys. The values are sorted, etc., but what I
need is a way to get a single value knowing the key for that value. A simple
example would be greatly appreciated.
Thanks,
Jack
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 15 Mar 1999 07:44:55 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: hash value needed
Message-Id: <ebohlmanF8MLIv.8x3@netcom.com>
jhurlbut@sddpc.org wrote:
: I've looked through all the FAQs that seem appropriate and can't seem to find
: the answer to my question. As I'm new to Perl please answer in as straight
: forward a manner as possible. I have a hash and I just want the value for a
: single key. All the examples I've seen seem to loop through the entire hash
: producing values for all the keys. The values are sorted, etc., but what I
: need is a way to get a single value knowing the key for that value. A simple
: example would be greatly appreciated.
You probably need to reread the perldata (man page | HTML document | POD
file), since this is pretty elementary:
$value=$hash{$key};
------------------------------
Date: 15 Mar 1999 07:28:47 GMT
From: gadesign*nospam*@crl.com
Subject: install perl on home dir?
Message-Id: <7cicrf$2i48$1@nnrp9.crl.com>
Hello,
I am wondering what file I need to edit so that I can install a version
of perl in my home directory.. (I want to have the latest version, which
the server does not) Thanks.
------------------------------
Date: 15 Mar 1999 03:07:47 GMT
From: "Sheila Eugenio" <seugenio@man.amis.com>
Subject: List of Lists
Message-Id: <01be6e90$e1d15150$2bbe10ac@amipnet>
Hi!
I have a CGI program which makes use of the Chart Module. Can anyone
please tell me how I can add datapoints to @data from my form such that
when a user enters a 11 & 5.6 to the fields respectively:
$ww = $q->param('$workweek');
$ct = $q->param('$cycle_time');
@data becomes:
@data = ( [09, 10, 11],
[7.5,6.8,5.6]);
Can the array keep the data so that the next combination will be added at
end? Or do you have a better idea?
Any help is greatly appreciated. Thanks!
------------------------------
Date: 14 Mar 1999 21:37:44 -0500
From: Nimesh Patel <nimesh@smanap.harvard.edu>
Subject: make depend error
Message-Id: <36ec7278.0@cfanews.harvard.edu>
Help:
I get the following errors on trying to build Perl5.002_02 on a 486 PC running
LynxOS:
(after doing rm -f config.sh; sh Configure; on running make depend:)
sh ./makedepend MAKE=make MAKEDEPEND=
/dev/null: Protection violation
-f: command not found
Usage: rm [ -rvif ] [ - ] f1 ... fn
Usage: cp [ -i ] f1 f2; or cp [ -irpv ] f1 ... fn d2
: Ambiguous redirect
-d: command not found
mkdir: UU: File already exists
make depend MAKEDEPEND=
sh ./makedepend MAKE=make MAKEDEPEND=
^Cmake[2]: *** [makefile] Interrupt
makemm[1]: *** [depend] aaInterrupt
ke: *** [kmakefile] Interrupte[3]: *** [depend]
Interrupt
bash#
Many thanks in advance.
Nimesh Patel
------------------------------
Date: 15 Mar 1999 07:44:13 GMT
From: "David Brotman" <dbrotman@worldnet.att.net>
Subject: Newbie question about form to mail program
Message-Id: <7cidod$qcb@bgtnsc03.worldnet.att.net>
Is the line at the top of the script that reads:
#!/usr/local/bin/perl
supposed to include the # sign or is the # sign a comment line? I am just
trying to get a form mail cgi to work and it keeps giving me a
misconfiguration error message after I hit the submit button.
Also is this syntax correct?
%alias = ( 'myemail' => 'dbrotman@hotmail.com');
I would appreciate any help!
David Brotman
dbrotman@hotmail.com
------------------------------
Date: Mon, 15 Mar 1999 17:11:37 +1100
From: Paulboldra <pbolda@spamtrap.dynamite.com.au>
Subject: open port from behind firewall, with no proxy
Message-Id: <36ECA499.87AB327A@spamtrap.dynamite.com.au>
Hello,
My TCP/IP grounding isn't too good, but I've put together a simple http
client which I need to run on a solaris box. Solaris on this box has
been patched by 'ip filter' (
http://coombs.anu.edu.au/ipfilter/ip-filter.html ) to only allow
connections on specified ports.
So now I can't run my http client, since the port replies are sent to is
randomly allocated by the OS. Can anyone suggest a way to get my http
client to create sockets only on a pre-determined port number? I have
found ways to do this for a server, but how does it work if you're a
client?
I have also seen (at
http://gilito.lab.dit.upm.es/~cdatlab/doc/faq/unix-socket-faq-3.html )
that there is a C function, "rresvport() " which looks like it meets my
objectives. Does it? Is there a perl analogue?
thanks
paulboldra
(spamtrap is not the name of a mail server)
------------------------------
Date: Mon, 15 Mar 1999 00:15:31 -0600
From: Mike <support@counter.w-dt.com>
Subject: Passing Multiple Variables to a Sub
Message-Id: <36ECA582.C92FEA88@counter.w-dt.com>
How do I pass multiple variables to a sub procedure? I have a file I
want to open for read/write access but how do I insert the stuff in the
middle that I want it to update without entering it. ie, I want a sub
that just opens a file for read/write access so I don't have to write
the code into my program in many places in my program instead I just
want to refer to the sub but how do I pass the stuff I want to update
(ussually more than one thing is updated).
Thanks!
------------------------------
Date: 15 Mar 1999 06:51:54 GMT
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Passing Multiple Variables to a Sub
Message-Id: <slrn7epbe0.147.efflandt@efflandt.xnet.com>
On Mon, 15 Mar 1999 00:15:31 -0600, Mike <support@counter.w-dt.com> wrote:
>How do I pass multiple variables to a sub procedure? I have a file I
>want to open for read/write access but how do I insert the stuff in the
>middle that I want it to update without entering it. ie, I want a sub
>that just opens a file for read/write access so I don't have to write
>the code into my program in many places in my program instead I just
>want to refer to the sub but how do I pass the stuff I want to update
>(ussually more than one thing is updated).
>Thanks!
Of course, if the variables are global and you want to modify the global
values, you don't need to do anything. Otherwise you pass them as a list
to the sub. They arrive in list @_.
&somesub(3, $file, "somestring", @list);
sub somesub {
my ($which, $file, $string, @list) = @_;
# the my makes these temporary local variables
# do something useful
}
--
David Efflandt efflandt@xnet.com
http://www.xnet.com/~efflandt/
------------------------------
Date: Mon, 15 Mar 1999 02:01:54 GMT
From: kims@tip.net.au (Kim Saunders)
Subject: Re: searching a flat file database
Message-Id: <36ec68ee.6157986@news.apex.net.au>
>Its been a while since I've done any programming (15years), but a buddy of
>mine has convinced to learn Perl and do some side work for him. I'll have to
>say Perl is really a neat language and I am enjoying learning it.
>
>I have made a great perl/cgi script to search and ascii txt file '|'
>delimited. Works great using a single word/phrase search key. What I need to
>be able to do is break up the search key and search for the words
>individually. Heres an example using cars. the database would look like
Stuff all the other info unless you're feeling adventurous. Leep it
simple. Use the split funtion:
$search_string = '1990 ford explorer';
@search_words = split ' ', $search_string;
So:
$search_words[0] = '1990'
$search_words[1] = 'ford'
$search_words[2] = 'explorer'
And there you have it!
KimS
------------------------------
Date: Mon, 15 Mar 1999 00:56:42 -0500
From: James Tolley <jamesht@idt.net>
To: Witless <witless@my-dejanews.com>
Subject: Re: Sending a Hotmail email
Message-Id: <36ECA119.DF91379F@idt.net>
Well, you could:
1) copy the html from the Hotmail send-mail form.
2) find all of the inputs in that form.
3) write a script like the one below to submit the form, based upon the inputs
you found.
use HTTP::Request;
use LWP::UserAgent;
$method = 'POST'; # I'm guessing
$url = 'http://www.hotmail.com/something/something';
$content = 'figure=this&part=out&and=youre&home=free';
# I'm using undef for the headers, by the way.
$html =
LWP::UserAgent->new()->request(HTTP::Request->new($method,$action,undef,$content))->as_string();
print "It's just that simple.\n";
hth,
James
------------------------------
Date: Mon, 15 Mar 1999 04:41:35 GMT
From: t_alter@hotmail.com
Subject: Such a WWW Board required; Free or Paid
Message-Id: <7ci31u$uh6$1@nnrp1.dejanews.com>
Hi Everybody;
For a client, I am looking for WWW Board. It should have the following
features:
Unique Sr. Number to all posts...
Posters can modify/delete their posts with password.....
It should be moderated i.e. All posts go to a que, and are posted only after
the Administrator clears them....
Prune messages that are "x" days old ...
Administrator is allowed to modify/delete any post...
Preferably the Administrator can email all the users....
If u know of some readymade or custommade solution please let me know at
t_alter@hotmail.com
TIA
Tom
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 15 Mar 1999 03:27:24 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Thread pools (was Re: 1000 thread limit?)
Message-Id: <7chums$d23$1@news.NERO.NET>
Steve Wells <wells@cedarnet.org> wrote:
: Slightly off topic for this thread ;-) but...
: Can you dynamically update the Pool as it runs?
Sure. Since a thread pool's just a bunch of threads you've fired off to do
something, you can make 'em do whatever you like. :-)
More usefully, though, it's not a problem--just make sure your pooling
code's set up to handle something like this. If you're using Malcolm's
Thread::Pool code it handles threads automatically, and if you roll your
own, it can do whatever you like.
: Scenerio:
: I have program that I want to take one minute to run.
: It consists of 12 threads and each thread takes about
: 15 seconds to run. So I start up my thread pool with
: a max of 4 threads so they will complete within my one
: minute time frame.
: but...
: Let's say that thread number three ends up taking 30
: seconds to run...
: (I want to add a thread to the pool after 15 seconds)
Sure. The tricky part is knowing that you'll need an extra thread.
: or...
: that threads 5,6 and 7 takes only 5 seconds to run...
: (I want to subtract a thread from the pool and open
: system resources back up that I don't need now)
: Is it possible to dynamically update the pool?
Sure. In most cases, all the threads in the pool will be taking entries
ofa single queue. Perl doesn't limit the number of threads accessing a
queue, so if you want more, start more threads. Removing threads from the
pool's trickier, but not that much trickier. It just requires the threads
in the pool to check and update some pool-wide count variable.
Dan
------------------------------
Date: Sun, 14 Mar 1999 21:08:45 -0600
From: "Jim" <syt@email*@sp\am|@|spa/m@*.com>
Subject: Two questions
Message-Id: <7chtjv$e09$1@news3.infoave.net>
#1 is there a way to make a perl script open a seperate file and see that
text as an actual part of the perl script? I'm sure it is, but how.
#2 is is better to use one perl script for everything on a site or to break
it up into smaller scripts that perform the seperate functions?
thanks for any help,
--
Jim
please reply to syt{at}email{dot}com
------------------------------
Date: Mon, 15 Mar 1999 04:46:14 GMT
From: kims@tip.net.au (Kim Saunders)
Subject: Re: Two questions
Message-Id: <36ec9001.16162411@news.apex.net.au>
>#1 is there a way to make a perl script open a seperate file and see that
>text as an actual part of the perl script? I'm sure it is, but how.
Yeah, use the eval funtion (I think, don't quote me). Just read it,
whack it in a variable, and eval it?
>#2 is is better to use one perl script for everything on a site or to break
>it up into smaller scripts that perform the seperate functions?
A matter of personal preference really. It is generally better to have
descrete programs that interact with each other, it is eaier to wite
like that, you only have to concentrate on one thing at a time.
KimS
------------------------------
Date: Mon, 15 Mar 1999 00:18:20 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Two questions
Message-Id: <1doolc5.inoqv41auv3siN@bay3-229.quincy.ziplink.net>
"Jim" <syt@email*@sp\am|@|spa/m@*.com> wrote:
> #1 is there a way to make a perl script open a seperate file and see that
> text as an actual part of the perl script? I'm sure it is, but how.
You want to look up 'do', 'require', and 'use' in the perlfunc
documentation. You will most likely want to use 'require' or 'use' in
your script.
> #2 is is better to use one perl script for everything on a site or to break
> it up into smaller scripts that perform the seperate functions?
It's probably better to break it up into smaller scripts, because they
will be easier to maintain than one big script. Especially if you want
to replace bits and pieces.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Mon, 15 Mar 1999 01:19:45 -0500
From: James Tolley <jamesht@idt.net>
To: Steve Wells <wells@cedarnet.org>
Subject: Re: UNIQUE variable...
Message-Id: <36ECA681.8F8E181A@idt.net>
> Many times I'm looking for a a situation where I need a unique variable.
>
> Such as I want to send out a cookie that is unique or have a unique
> filename for caching etc.
I think you can be reasonably sure that:
$unique = $ENV{'REMOTE_ADDR'}.time.$$;
will work.
hth,
James
------------------------------
Date: Mon, 15 Mar 1999 01:14:51 -0500
From: James Tolley <jamesht@idt.net>
Subject: URL encoding routine?
Message-Id: <36ECA55B.7AC292A6@idt.net>
Hello,
I know I must have missed it someplace obvious... where can I get
something I can drop in my code so this works:
$url_encoded_string = &url_encode($string);
TIA,
James
------------------------------
Date: Mon, 15 Mar 1999 07:43:10 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: URL encoding routine?
Message-Id: <ebohlmanF8MLFy.8vD@netcom.com>
James Tolley <jamesht@idt.net> wrote:
: Hello,
: I know I must have missed it someplace obvious... where can I get
: something I can drop in my code so this works:
: $url_encoded_string = &url_encode($string);
Try the URI::Escape module.
------------------------------
Date: 15 Mar 1999 04:11:45 GMT
From: Marc Newman <mknewman@blkbox.com>
Subject: Web mail reader?
Message-Id: <921471104.214134@news.blkbox.com>
Is there a PD web mail reader that anyone knows of? POP3 and/or IMAP4.
Marc
--
Marc K. Newman (N5SLG) |Is UNIX pronounced "UNIQUES" or "EUNUCHS"?
mknewman@blkbox.com |281-480-2684 voice, 800-BLKBOX-1 toll free
PO BOX 591822 |Serving the Houston Internet community since 1992
Houston, Texas 77259-1822 |Email info@blkbox.com for 713/281/409 Internet!
GB/CM/CS d H s+:+ g- p#2+ au+ a39 w+ v--- C++++ UBISC++++ P+ L- 3- E- N++ K W M
V po++ Y++ t++ 5+ jx R- G? tv+++ b+++ D- B--- e- u+ h---- f- r+++ n--- x++++
------------------------------
Date: Sun, 14 Mar 1999 23:58:23 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Web mail reader?
Message-Id: <comdog-ya02408000R1403992358230001@news.panix.com>
In article <921471104.214134@news.blkbox.com>, Marc Newman <mknewman@blkbox.com> posted:
> Is there a PD web mail reader that anyone knows of? POP3 and/or IMAP4.
in Perl? you could probably write one given the modules on CPAN.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5135
**************************************
