[25543] in Perl-Users-Digest
Perl-Users Digest, Issue: 7787 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 16 00:05:31 2005
Date: Tue, 15 Feb 2005 21:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 15 Feb 2005 Volume: 10 Number: 7787
Today's topics:
¼M!!! ¦n³¥.. «l!.................................. supergood@hotmail.com
Re: A wide open niche in Perl publishing... <jkrugman345@yahbitoo.com>
Re: copy directory structure without files <ddunham@redwood.taos.com>
Don't understand this syntax - (Larry)
Re: Don't understand this syntax - <spamtrap@dot-app.org>
Logging into and parsing a website using Perl <bonjo90@yahoo.co.in>
Re: perl corrupting my open files - mkfifo? <mgjv@tradingpost.com.au>
Re: Record Hash Data Structure (Newbie) rajasekaran.natarajan@gmail.com
search perldocs against each word in a string ioneabu@yahoo.com
search perldocs against each word in a string ioneabu@yahoo.com
Re: Weird Error message <jgibson@mail.arc.nasa.gov>
Re: x-www-form-urlencoded <jidanni@jidanni.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 16 Feb 2005 04:06:19 +0000 (UTC)
From: supergood@hotmail.com
Subject: ¼M!!! ¦n³¥.. «l!..................................
Message-Id: <cuugrr$28am$34@news.hgc.com.hk>
n¦Û¤v°_¯¸¶Ü?
¨C¤ë $20 ºô¶±H¦sªA°È
¤ä´© PHP+MySQL, Access+ASP, ASP.NET, CGI, SSI ¹q¶l¯f¬r¹LÂo, ©U§£¹q¶l¹LÂo ¤Î
WebMail µ¥......
¥»¤ë§C«e¥Ó½ÐW1000§Y°eº¦¸¦w¸ËÁʪ«¨®µ{¦¡ osc.
http://shop2.uhostnet.com
¨C¤ë¥u»Ý $20 °_
http://www.uhostnet.com
http://www.hkxmb.net
http://new.hkxmb.net
Basic Plan W200: (¨C¤ë $20)
-- 200MB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© ASP+Access / CGI
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=A
Windows W300: (¨C¤ë $38)
-- ¤@¦~°ê»Ú·s°ì¦W
-- 300MB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© PHP+MySQL, ASP+ACCESS, CGI, SSI
-- 1 Ó MySQL ¸ê®Æ®w (5MB)
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=B
Windows W500: (¨C¤ë $48)
-- ¤@¦~°ê»Ú·s°ì¦W
-- ¤lºô°ì 3 Ó (¼v®g¤£¦P¥Ø¿ý)
-- 500MB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© PHP+MySQL, ASP+ACCESS, CGI, SSI
-- 1 Ó MySQL ¸ê®Æ®w (10MB)
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=C
Windows W800: (¨C¤ë $58)
-- ¤@¦~°ê»Ú·s°ì¦W
-- ¤lºô°ì 5 Ó (¼v®g¤£¦P¥Ø¿ý)
-- 800MB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© PHP+MySQL, ASP+ACCESS, CGI, SSI
-- 1 Ó MySQL ¸ê®Æ®w (20MB)
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=D
Windows W1000: (¨C¤ë $68)
-- ¤@¦~°ê»Ú·s°ì¦W
-- ¤lºô°ì 10 Ó (¼v®g¤£¦P¥Ø¿ý)
-- 1GB ºô¶ªÅ¶¡
-- µL¹q¶l«H½c
-- µL¸ê®Æ¶Ç¿é¶q
-- ¤ä´© PHP+MySQL, ASP+ACCESS, CGI, SSI
-- 1 Ó MySQL ¸ê®Æ®w (50MB)
-- ¹q¶l¯f¬r¹LÂo¨t²Î
-- ©U§£¹q¶l¹LÂo¨t²Î
-- °eº¦¸¦w¸Ë½×¾Âµ{¦¡©ÎoscÁʪ«¨®¨t²Î
http://www.uhostnet.com/modules.php?name=service&file=index&func=windetails&plan=E
.................................
------------------------------
Date: Wed, 16 Feb 2005 04:48:01 +0000 (UTC)
From: J Krugman <jkrugman345@yahbitoo.com>
Subject: Re: A wide open niche in Perl publishing...
Message-Id: <cuuja1$sjs$1@reader2.panix.com>
In <4PGdnaAejrxc84_fRVn-rw@adelphia.com> Sherm Pendley <spamtrap@dot-app.org> writes:
>J Krugman wrote:
>> Unless I've been looking in all the wrong places, it seems to me
>> that there's a wide open niche in Perl-related publishing (and in
>> all of programming-related publishing, for that matter). I don't
>> even know what to call the type of book I'm thinking of. It's
>> something in the spirit of the (awesome) Perl Cookbook, but dedicated
>> to larger-scale design issues, instead of bite-sized solutions.
>I think you've been looking in the wrong places. The kind of large-scale
>application design issues you're talking about aren't language-specific,
>and books that talk about them tend to use pseudo-code and/or diagrams to
>illustrate their points.
>The assumption is that someone who's designing applications at that scale
>will be familiar enough with the target language that they'll have no
>problem translating the abstract ideas from the book, into concrete code in
>the language of their choice.
>Have a look at "Design Patterns", for example.
Well, I just couldn't disagree more. I *am* very familiar with
"Design Patterns" and several other books of the same ilk, familiar
to the point of nausea, actually. Those books are good as far as
they go, but they are no substitute for a functionally coherent,
detailed, extended example written in a real programming language,
not in pseudo-code.
Three reasons.
First, a working extended example cannot be content with presenting
beautiful theoretical schemes, featuring infinitely sensible
abstractions out the wazoo and layer upon layer of clever indirections,
if come run time the code ends up being slower than molasses in
January, or if, in the concrete problem at hand, the implementation
of gorgeous design pattern A happens to conflict in subtle ways
with the implementation of exquisite pattern B. A real example
has to be, above all, functional, which may or may not agree with
higher-level considerations. (Have you seen the guts of perl???
How's *that* for pretty? Most of perl internals would give the
GoF seizures.)
Second, programming books written in pseudo-code implicitly assume
that all the important design decisions in programming are essentially
orthogonal to the choice of language, which is far from the case.
The particular facilities and limitations of a language (is it
strongly typed? what support does it have for namespaces and scopes?
what support for exceptions? what support for callbacks? etc.) are
often decisive to the ultimate shape of the code. In fact, the
choice of language for a project is in itself a major design
decision, and this choice is based, at least in part, on how the
strengths and weaknesses of a language impinge on the project's
goals.
Third, if theoretical books like "Design Patterns" where enough,
books like "The Perl Cookbook" wouldn't sell nearly as well as they
do. Most of the basic Perl information and design advice in "The
Perl Cookbook" is already present in "Programming Perl", but for
someone learning the craft of programming it is invaluable to see
how exactly (and how far) design principles are put into practice.
"The Perl Cookbook" does a great job at showing the reader how to
code Perl "in the small". I think there is very much of a need
for a follow up (or twelve) that show in gory detail how one programs
Perl "in the large."
(I sure hope that someone at O'Reilly, or Manning, or New Riders,
or Apress, etc. is reading this.)
jill
jill
--
To s&e^n]d me m~a}i]l r%e*m?o\v[e bit from my a|d)d:r{e:s]s.
------------------------------
Date: Tue, 15 Feb 2005 23:35:45 GMT
From: Darren Dunham <ddunham@redwood.taos.com>
Subject: Re: copy directory structure without files
Message-Id: <lHvQd.368$DC6.366@newssvr14.news.prodigy.com>
phaylon <phaylon@dunkelheit.at> wrote:
> ioneabu wrote:
>> use File::NCopy;
>> ...
>> QUESTION: What if I want to copy the directory structure but not the
>> files?
> In the docs I could'nt find (am I the only one getting »bad request« at
> search.cpan.org?) any option which could do this. I don't know what the
> original Thread was, so just the question: Why aren't you making this with
> your shell? 'find', 'xargs' and 'mkdir' should be enough. It shouldn't
> also be a great problem to do this in Perl with File::Find.
or for other non-perl solutions, I like this, especially if you have to
do it more than once in the same location.
rsync -a --include "*/" --exclude "*" source/ target
--
Darren Dunham ddunham@taos.com
Senior Technical Consultant TAOS http://www.taos.com/
Got some Dr Pepper? San Francisco, CA bay area
< This line left intentionally blank to confuse you. >
------------------------------
Date: Wed, 16 Feb 2005 03:20:49 GMT
From: noway@none.com (Larry)
Subject: Don't understand this syntax -
Message-Id: <l_yQd.11308$xX3.5317@twister.socal.rr.com>
I'm a novice trying to learn some perl, and am trying to understand some
syntax used in a formmail script to seperate a list of names.
The use is - (split /\s*,\s*/, $recipient)
I understand split, but can't see why the \s*,\s* is used as the marker. It
seems to evaluate to s,s so why the escapes and asterisks?
I'm sure it's quite simple, but I can't see it??
Thanks much,
Larry L
------------------------------
Date: Tue, 15 Feb 2005 22:54:23 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Don't understand this syntax -
Message-Id: <aLOdnVsKbYpsXo_fRVn-qA@adelphia.com>
Larry wrote:
> I'm a novice trying to learn some perl, and am trying to understand some
> syntax used in a formmail script to seperate a list of names.
First off, understand this: If you're referring to Matt Wright's formmail,
don't even bother trying to understand it. It's horribly written, and the
only useful purpose it has is to serve as an example of how *not* to write
Perl.
> The use is - (split /\s*,\s*/, $recipient)
>
> I understand split, but can't see why the \s*,\s* is used as the marker.
> It seems to evaluate to s,s so why the escapes and asterisks?
Check the docs for the function - "perldoc -f split" and see what it says.
Notice how the first argument is listed as /PATTERN/? That means it's a
regex, so the escapes and asterisks have the same meaning they do in other
regexes. Let's break it down:
/ # Begin the pattern
\s* # Match any number (including zero) of whitespace (\s)
# characters
, # Match a comma
\s* # Again, any number of whitespace characters
/ # End pattern
So "," " ," " , " would all match the pattern.
Have a look at the following perldocs for more about regexes:
perldoc perlrequick
perldoc perlretut
perldoc perlre
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Tue, 15 Feb 2005 21:11:39 -0500
From: "Antwerp" <bonjo90@yahoo.co.in>
Subject: Logging into and parsing a website using Perl
Message-Id: <a4yQd.6434$dZ.349666@news20.bellglobal.com>
Hi,
I'm trying to create a perl script that will log into a website (the login
form uses POST), navigate to several pages, and append the (html) content parsed
from those pages to a seperate log file. I'm not very familiar with this aspect
of perl, and have been having some trouble in the POSTing of the form data,
while using cookies to log in.
Visting the site automatically redirects you to a login page. Once you fill
out the login form and click the submit button, you are redirected to the main
site index. The login form uses cookies to establish identity.
I've searched through several google resources, and have built upon what
I've read. I *believe* I am now storing the cookies I come across when loading
the page (using a cookie jar), however, this doesn't seem to be allowing me to
log on to the secure areas of the site. I suspect this is because I am not
properly sending the appropriate cookies with every request, or else am not
properly POSTing the login form data, or otherwise not 'following' the redirect
to the secure area of the site.
At this point in time, I am just trying to get my script to login to the
page (using my appropriate credentials), and then display the site index.
If someone could please offer me some insight and direction into using the
appropriate modules, or else point out any flaws in my code (included below).
------START CODE------
#!/usr/bin/perl -w
use LWP::Simple;
use LWP::UserAgent;
use HTML::TokeParser;
use HTML::Parser;
use HTTP::Request::Common;
use HTTP::Cookies;
use POSIX;
#----Variables----#
$t_url='http://www.memberplushq.com/pe/register/include/processlogin.jsp';
# This is where the log in form is located - once logged in, you are
redirected to the secured content (below).
$s_url='http://www.memberplushq.com/pe/index.jsp';
# This is where the secured content is located. If you aren't logged in, you
are redirected to the above.
$login='My_username';
$password='My Password';
$submit_value='Login';
#----/Variables----#
#----User Agent Config----#
$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "cookies.txt", autosave => 1,
ignore_discard => 1));
#----/User Agent Config----#
#----Really posting my buttons----#
$content = $ua->request(POST $t_url , [ login_name => $login , password =>
$password , loginSubmit => $submit_value ] );
$ua->request(POST $t_url , [ login_name => $login , password => $password ,
loginSubmit => $submit_value ] );
#----/Really pressing my buttons----#
#----Completing----#
print "$content";
#----Completing----#
------END CODE------
As you can tell, I am *trying* to get through to the secure site. However, this
is proving to be somewhat interesting.
I would appreciate any guidance you can offer,
AntWerp
------------------------------
Date: 16 Feb 2005 01:31:20 GMT
From: Martien Verbruggen <mgjv@tradingpost.com.au>
Subject: Re: perl corrupting my open files - mkfifo?
Message-Id: <slrnd158je.c6f.mgjv@verbruggen.comdyn.com.au>
On Tue, 15 Feb 2005 12:19:24 -0700,
Jeremy Slade <jeremy.slade@intel.com> wrote:
> I'm running perl 5.6.1 on linux i686 kernel 2.6.8
>
> I had a very strange experience this morning that is rather alarming to
> me. I was running a perl script that has been running many hundreds of
> times before... I had executed it with the incorrect options, so I hit
> Ctrl-C to kill it.
>
> Somehow the result of this is that every file to which I had an open
> handle became a unix FIFO on disk -- as though the file was removed,
> then mkfifo was run in it's place. e.g. it look like this afterwards:
Have you ever heard of a "post hoc, ergo propter hoc" fallacy? Jst
because you noticed this just after you interrupted a Perl program,
doesn't mean that this was caused by you interrupting the Perl
program.
Martien
--
|
Martien Verbruggen | There are only 10 types of people in the
| world; those who understand binary and those
| who don't.
------------------------------
Date: 15 Feb 2005 18:45:10 -0800
From: rajasekaran.natarajan@gmail.com
Subject: Re: Record Hash Data Structure (Newbie)
Message-Id: <1108521910.152097.281470@o13g2000cwo.googlegroups.com>
Thanks a lot for Gibson and Xho,
this is too much of info, let me go bakc and do my desk and do the
homework to implement your suggestions. It needs sometime I hope.
Thanks again for Gibson for the minute details and the pain he had
taken to do the same.
Before I do: Let me clarify the problem and the Input Data better.
Regarding the Realtionship between element and Grid. imagine the
Element to be a square surface/plate on the space, then its corners are
GRIDS. so the corners define the geometry of the element. (in case the
surface is Triangular then it has three GRIDS loosely corners)
Hope this explains the relationship.
What I am trying to do is read the data and of element and grid data
store them and with the realtionship. So when i encounter element(i)
then I should be able to pick out its corners from array/hash/anything
like saying
GRID(j) of (elemet(i)) #j is 1-4 for square element.
Next post I will implement use strict and also limit my line width to
60 letters.
sorry for the inconvenience.
Thanks again
Jim Gibson wrote:
> In article <1108438617.406599.291620@z14g2000cwz.googlegroups.com>,
> <rajasekaran.natarajan@gmail.com> wrote:
>
> > Hi all!
> > Yeah I included another hash for element data for the second part.
but
> > I do not know how to acess the hash %grid using the values I get
from
> > %element hash (check the print loop)
>
> As Xho pointed out, a hash is probably not the best data structure
for
> 300,000 records. In any case, you are not using hashes properly.
>
> >
>
> Where is 'use strict;' ?
>
> > my $file1 = "test.dat";
> > my ($identifier,$gridNo,$cp,$xcor,$ycor,$zcor,$cd);
>
> Do not declare variables outside of a block that are used only within
> that block.
>
> > open(DECK,"$file1") || die ("Cant open input file \"$file1\",
Unable to
> > Find, Check the file name and path");
>
> Don't quote unnecessarily; use variable file handles, use 3-argument
> open, let Perl and the system tell you what is wrong:
>
> open($fh,'<',$file1) or die("Can't open $file1: $!");
>
> Here, declare some global arrays (not hashes) to hold your data:
>
> my( @grid, @element );
>
> > while($line= <DECK>){
>
> while( my $line = <$fh> ) {
>
> > if ($line =~ m/^GRID/) {
> > ($identifier,$gridNo,$cp,$xcor,$ycor,$zcor,$cd)= unpack("A8 A8
A8 A8
> > A8 A8 A8",$line);
>
> my( $identifier, ...
>
> > %grid = (
> > $gridNo => {cp => $cp, xcor => $xcor, ycor => $ycor, zcor =>
$zcor,},
> > );
>
> You are assigning to %grid each time through the loop, thereby
> overwriting your previous data. If you really want to use a hash, you
> should be doing this:
>
> $grid{$gridNo} = { id => $gridNo, cp => $cp, ... };
>
> but you might want to use an array of hashes instead:
>
> push(@grid, { id => $gridNo, cp => $cp, ... });
>
> or even an array of arrays (which I would recommend for simplicity
and
> efficiency:
>
> push(@grid, [ $gridNo, $cp, $xcor, $ycor, $zcor ] );
>
> > }
> > elsif($line =~ m/^CQUAD4/) {
> > ($eId,$elementNo,$grid1,$grid2,$grid3,$grid4) = unpack("A8 A8
x8 A8
> > A8 A8 A8",$line);
>
> my( $eId, ... ) = ...;
>
> > %element = (
> > $elementNo => {ETYPE=> $eId, con1 => $grid1, con2 => $grid2,
con3=>
> > $grid3, con4 => $grid4},
> > );
>
> Either
> $element{$elementNo} =
> or
> push(@element, { ... } );
>
> > }
> > foreach $elementNo (keys %element) {
> > print
> >
> >
"\n$element{$elementNo}->{ETYPE},$elementNo,$element{$elementNo}->{con1},$elem
> >
ent{$elementNo}->{con2},$element{$elementNo}->{con3},$element{$elementNo}->{co
> > n4}
> > \n";
> > #here I wanted to print grid1-grid4 (from `con1`-`con4` value of
> > %element) and its x,y,z corordinates (x,y,z needs tobe picked from
like
> > %grid{con1}->{xcor} is it possible
> > #I dont know how to do that I tried many ways.
> > }
> > }
> > close(DECK);
>
> In future posts, please try to make all of your lines no longer than
> 60-70 characters for readability.
>
> >
> > My Present Goal is to print like this
> >
> > Element1 grid1 grid2 grid3 grid4 (-> this line is ok)
> > grid1 xcor ycor zcor -> these four lines I could not
get.
> > grid2 xcor ycor zcor
> > grid3 xcor ycor zcor
> > grid4 xcor ycor zcor
> > Element2 grid1 grid2 grid3 grid4
> > grid1 xcor ycor zcor
> > grid2 xcor ycor zcor
> > grid3 xcor ycor zcor
> > grid4 xcor ycor zcor
> >
>
> You seem to imply some sort of relation between the GRID lines and
the
> CQUAD4 lines, but you haven't explained what it is. That would
> definitely influence the choice of data structure to use and the
method
> for fetching and printing. Try showing some relevant, sample data
next
> time. Use the special <DATA> file handle and include the data at the
> end of your program after a '__DATA__' line.
>
>
> ----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet
News==----
> http://www.newsfeeds.com The #1 Newsgroup Service in the World!
>100,000 Newsgroups
> ---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: 15 Feb 2005 20:28:11 -0800
From: ioneabu@yahoo.com
Subject: search perldocs against each word in a string
Message-Id: <1108528091.146221.133040@o13g2000cwo.googlegroups.com>
#!/usr/bin/perl
#file: pdoc.pl searches perldocs
use warnings;
use strict;
pdoc.pl "perldoc individual words string"
output:
perl5005delta
perl561delta
perl581delta
perlmodlib
perlos2
perlport
Is there anything built in that does this? It runs pretty fast
considering it has to load each perldoc into memory and compare against
each word in search string.
use File::Slurp;
use File::Find;
#file: pdoc.pl: search perldocs
my $string = $ARGV[0];
my @string = split /\s+/, $string;
my $count = scalar @string;
my $path = 'c:\perl\lib\pod';
find(\&wanted, $path);
sub wanted
{
my ($contents, $filename);
$filename = $File::Find::name;
if (/\.pod$/)
{
$contents = read_file($filename) ;
s/\.pod$//;
print $_ , "\n"
if $count == grep {$contents =~ /$_/i} @string;
}
}
#thanks!
#wana
------------------------------
Date: 15 Feb 2005 20:29:03 -0800
From: ioneabu@yahoo.com
Subject: search perldocs against each word in a string
Message-Id: <1108528143.838551.208330@g14g2000cwa.googlegroups.com>
#!/usr/bin/perl
#file: pdoc.pl searches perldocs
use warnings;
use strict;
pdoc.pl "perldoc individual words string"
output:
perl5005delta
perl561delta
perl581delta
perlmodlib
perlos2
perlport
Is there anything built in that does this? It runs pretty fast
considering it has to load each perldoc into memory and compare against
each word in search string.
use File::Slurp;
use File::Find;
#file: pdoc.pl: search perldocs
my $string = $ARGV[0];
my @string = split /\s+/, $string;
my $count = scalar @string;
my $path = 'c:\perl\lib\pod';
find(\&wanted, $path);
sub wanted
{
my ($contents, $filename);
$filename = $File::Find::name;
if (/\.pod$/)
{
$contents = read_file($filename) ;
s/\.pod$//;
print $_ , "\n"
if $count == grep {$contents =~ /$_/i} @string;
}
}
#thanks!
#wana
------------------------------
Date: Tue, 15 Feb 2005 15:09:27 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Weird Error message
Message-Id: <150220051509271163%jgibson@mail.arc.nasa.gov>
In article <cuth8d$6l0$1@online.de>, Christoph Sünderhauf
<chris@sunderhauf.net> wrote:
> thank you, thats just what I needed.
> But what is interpolation?
In Perl context, it means substituting the value of a variable where
that variable appears in a double-quoted string.
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: Wed, 16 Feb 2005 07:40:36 +0800
From: Dan Jacobson <jidanni@jidanni.org>
Subject: Re: x-www-form-urlencoded
Message-Id: <87sm3xgznv.fsf@jidanni.org>
Yeah, but uri_escape can't be what I want, as
$ echo -n wow pow|perl -nlwe 'use URI::Escape;print uri_escape($_);'
wow%20pow
whereas I was looking for the tool that makes
wow+pow
I mean that's what those <FORM>s make, so why isn't there a function
to do it, or do I have to s/%20/+/g by hand? And perhaps that
character is not the only difference.
Maybe I want a tool that turns
a=bla bla
b=murmf
into
a=bla+bla&b=murmf
but without running some http server.
$ echo -n wow pow|perl -nlwe 'use CGI qw/:standard/;print escapeHTML($_)'
wow pow
no help. Is autoEscape() supposed to affect it? I can't find what
value for autoEscape() to use on perldoc CGI.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 7787
***************************************
