[12080] in Perl-Users-Digest
Perl-Users Digest, Issue: 5680 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun May 16 04:07:19 1999
Date: Sun, 16 May 99 01:00:17 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 16 May 1999 Volume: 8 Number: 5680
Today's topics:
Re: Access and Web (I'm lost and tried everything: HELP (Charles R. Thompson)
Re: Count number of html files and print it a html file (Charles R. Thompson)
Re: File uploading problem (Charles R. Thompson)
Re: Help - Perl/CGI posts to another script (Jeffrey Horn)
Re: Help - Perl/CGI posts to another script (Jeffrey Horn)
How to pass params by ref/addr into subroutines <grantandlinda@bigpond.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 16 May 1999 06:35:14 GMT
From: design@raincloud-studios.com (Charles R. Thompson)
Subject: Re: Access and Web (I'm lost and tried everything: HELP ME!)
Message-Id: <MPG.11a832832cfebf6a9896c9@news>
In article <7hk9k9$9k6$1@news.telekabel.nl>, Genie says...
> Can someone send me an URL where I can find info about how to link Access
> Dbase too web!
Just like a big dinner, bloatware can make you have whacked-out dreams.
> Just a FEW ANSWERS would make me extremely happy.
Hmm.. only one of these might be possible...
1) Export Access DB to something realistic.
2) Sell MS to the defense department since they seem to have a 'thing'
for overpriced useless hardware and gizmos
3) See if ActiveState.com has any info. (but since you are using apache,
you probably are on UNIX.. in which case you really need to wake up.
--
CT
------------------------------
Date: Sun, 16 May 1999 06:36:35 GMT
From: design@raincloud-studios.com (Charles R. Thompson)
Subject: Re: Count number of html files and print it a html file ?
Message-Id: <MPG.11a832d67c4f76449896ca@news>
In article <7hkdtk$fvj$1@news2.kornet.net>, Yeong Mo/Director Hana co.
says...
> Is it possible to check the number of html files,
> and print the numbers at a html file ?
yes
--
CT
------------------------------
Date: Sun, 16 May 1999 06:27:51 GMT
From: design@raincloud-studios.com (Charles R. Thompson)
Subject: Re: File uploading problem
Message-Id: <MPG.11a830cc299191cb9896c8@news>
[ Congratulations, Alex you could be a winner! Return to
comp.lang.perl.misc to claim your prize. ]
In article <373D84AE.78577766@netvigator.com>, Alex says...
> 1. How can I create a new file when my visitor upload their file to my
> server so that
> I can open the "new created file" and write the "uploaded file" into the
> "new created file"?
Ummm... so eventually you have 40 gazillion unused files laying around on
the server with no indication of what they are for? Oh wait.. you'll
probably want to delete the original one. I see.
So they send you a file, you basically stick it into your file named
something that you want.
Why not just rename the uploaded file instead of jumping through a
flaming ring of dog-doo? It's not that impressive to watch anyway.
Quit making things so complex. :)
--
Charles R. Thompson
RainCloud Studios
"That? That's no script. That's your attempt at a rather complex README
file."
------------------------------
Date: 16 May 1999 06:06:47 GMT
From: horn@wheel.cs.wisc.edu (Jeffrey Horn)
Subject: Re: Help - Perl/CGI posts to another script
Message-Id: <7hln9n$crh@spool.cs.wisc.edu>
Dale Sutcliffe <dales@enhanced-performance.com> writes:
> I am using sockets to do a post to script on another server.
> How do I urlencode data? That is, how do I convert characters (other
> than alpha-numeric) into the three-character string "%xy" where xy is
> the two-digit hexidecimal representation of the lower 16-bits of the
> character? For example, the "@" symbol is represented by %40
This whole operation would be much easier using the LWP module. Your
specific question about URL encoding is handled by the URI::Escape module
like this:
use URI::Escape;
print uri_escape("joe\@schmoe.com","\@"),"\n";
This results in the following output:
joe%40schmoe.com
The first argument of the uri_escape function is the string to be
"escaped". The second parameter is optional. If you specify it, it
escapes those characters, if not, you get the escape characters specified
in RFC 1738.
Hope that helps!
-- Jeff
--
Jeffrey Horn (horn@cs.wisc.edu) |BELZER,BERNHARDT,BOETTCHER,DRAVIS,FETTER
PHONE:(608) 846-1932 |GAPINSKI,GAUGER,HARMS,HIRSCHINGER,HORNE
FAX: (608) 846-1934 |JUECH,KLAJBOR,KROIS,KRONING,LEMKE,RUNGE
http://www.cs.wisc.edu/~horn/horn.html |STOCK,TAUBERT,TRESKE,WILLMERT,ZILLMER
------------------------------
Date: 16 May 1999 05:51:43 GMT
From: horn@wheel.cs.wisc.edu (Jeffrey Horn)
Subject: Re: Help - Perl/CGI posts to another script
Message-Id: <7hlmdf$cp4@spool.cs.wisc.edu>
Dale Sutcliffe <dales@enhanced-performance.com> writes:
> I am using sockets to do a post to script on another server.
> How do I urlencode data? That is, how do I convert characters (other
> than alpha-numeric) into the three-character string "%xy" where xy is
> the two-digit hexidecimal representation of the lower 16-bits of the
> character? For example, the "@" symbol is represented by %40
This whole operation would be much easier using the LWP module. Your
specific question about URL encoding is handled by the URI::Escape module
like this:
use URI::Escape;
print uri_escape("joe\@schmoe.com","\@"),"\n";
This results in the following output:
joe%40schmoe.com
The first argument of the uri_escape function is the string to be
"escaped". The second parameter is optional. If you specify it, it
escapes those characters, if not, you get the escape characters specified
in RFC 1738.
Hope that helps!
-- Jeff
--
Jeffrey Horn (horn@cs.wisc.edu) |BELZER,BERNHARDT,BOETTCHER,DRAVIS,FETTER
PHONE:(608) 846-1932 |GAPINSKI,GAUGER,HARMS,HIRSCHINGER,HORNE
FAX: (608) 846-1934 |JUECH,KLAJBOR,KROIS,KRONING,LEMKE,RUNGE
http://www.cs.wisc.edu/~horn/horn.html |STOCK,TAUBERT,TRESKE,WILLMERT,ZILLMER
------------------------------
Date: Sun, 16 May 1999 14:09:31 +0800
From: "Grant Williams" <grantandlinda@bigpond.com>
Subject: How to pass params by ref/addr into subroutines
Message-Id: <9kt%2.31111$MB3.47330@newsfeeds.bigpond.com>
Yo!
I am brandnew to perl.
Have an assignment to do that basically tests our ability at re's and
parsing strings etc..
I like many have read documentation on references, subroutines etc. only to
become more confused. All I would like to know is how to pass a parameter
into a subroutine, have some work done on it and returned or changed as in
the following snippet of code.
this is xxx.pl file
----------------------------------------------------------------------------
-----------
#!c:/perl/bin
require "yyy.pl"; #file with subroutine in it
(below)
print "Enter your age>"; #say 5 <enter>
read (STDIN,$age,2); #get input
chop($age); #take out the return char
changeage($age); #change age by adding 10 to it in
sub
print "So your age is $age\n"; #print out $age after it has been
changed
#eg. if you enter
5, it will be printed as 15!
----------------------------------------------------------------------------
-----------
"this is yyy.pl file"
#!c:/perl/bin
sub changeage
{
@_[0] += 10;
}
1;
To be extremely verbose about what i want, you enter say "5" as your age.
Then this is passed into the sub. The sub alters the val of the parameter
by adding 10 to it
When printed, the val will be 15 instead of 5.
Is there a good faq or doco somewhere which explains to beginners how this
is done?
Ta in advance
Grant the grad-dipper
------------------------------
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 5680
**************************************
