[8146] in Perl-Users-Digest
Perl-Users Digest, Issue: 1764 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 29 19:15:57 1998
Date: Thu, 29 Jan 98 16:00:29 -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 Thu, 29 Jan 1998 Volume: 8 Number: 1764
Today's topics:
A Rounding Question <vchandra@mail.delcoelect.com>
Re: Converting to Leadingcap format? (Craig Berry)
Re: Converting to Leadingcap format? <lr@hpl.hp.com>
Re: De-FrontPage-itizing HTML (Jonathan Stowe)
Re: delete function <r.goeggel@atos-group.de>
Executing app from NT PERL scritp swilson@nswc.navy.mil
Re: Freidl's book mystery (Ilya Zakharevich)
Re: Freidl's book mystery (Chip Salzenberg)
How do you make the something case-insensitive? <poohba@io.com>
Re: How do you make the something case-insensitive? (Craig Berry)
HTML/CGI to play midi file? <snorris@post.cis.smu.edu>
Re: Insecure Path <barnett@houston.Geco-Prakla.slb.com>
Re: Perl and IIS. Trying to get the server running. <webmaster@fccj.cc.fl.us>
Re: perl4, solaris, varargs (Chip Salzenberg)
Re: Perl5 on 80286 under DOS (Chip Salzenberg)
Re: print<< into variable? <sgordon@athena.lbl.gov>
Re: Problem With use <r.goeggel@atos-group.de>
Problems converting Bourne shell to Perl (Steve Bourgeois)
Re: Profiler for Perl4 (yup. Perl4) (Ilya Zakharevich)
Re: puzzling result from hex() (Chip Salzenberg)
Retrieving remote page using CGI Script marlontan@hotmail.com
Re: size limit to the length of a perl script <webmaster@fccj.cc.fl.us>
Re: Some possible bugs <tchrist@mox.perl.com>
Re: Survival Of perl <tchrist@mox.perl.com>
Re: Up Loading Perl Files-Afraid! (Steve Linberg)
Re: Up Loading Perl Files-Afraid! (Joe McMahon)
Re: Vote/poll/survey Script needed (Chip Salzenberg)
Re: Webring (Chip Salzenberg)
Re: Where are all the scripts? <tchrist@mox.perl.com>
Re: Why shift ? (Joe McMahon)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 29 Jan 1998 17:45:11 -0500
From: "V. Chandrasekhar" <vchandra@mail.delcoelect.com>
Subject: A Rounding Question
Message-Id: <34D10677.2EAC@mail.delcoelect.com>
1. I have requirements to process a set of numbers the following way:
a. Multiply the number by 10
b. Round to whole integer
c. Make sure that the number is in the range -32768 to
32767
d. Print the number out in FORTRAN Z4 format i.e., as a
two-byte hex number.
2. I was having some problems with step 'b'. The following is one
way I found, to do this. I would appreciate constructive comments/
suggestions for alternatives.
print "If number is outside the range of -32768 to 32767,\n" .
"it is changed to the closest limit.\n" ;
while ( chop( $number = <STDIN> ) ) {
if (! $number ) { exit; }
$temp = $number * 10.0 ;
if ($temp > 32767.0) { $temp = 32767.0 ; }
elsif ($temp < -32768.0) { $temp = -32768.0 ; }
$float = sprintf("%8.1f", $temp);
($digit) = $float =~ /\.(\d{1,})/;
if ($digit > 5) { $temp = $temp + 1.0; }
$string = substr(sprintf("%04X",$temp), -4) ;
print "**$string** times 0.1 should equal $number.\n";
}
Regards.
V.Chandrasekhar
------------------------------
Date: 29 Jan 1998 21:33:46 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Converting to Leadingcap format?
Message-Id: <6aqsjq$s8l$1@marina.cinenet.net>
Mike Noel (noel@integrityonline.com) wrote:
: Ok. This is mostly for the amusement of the experienced perl hacks.
: You know how it is when you just want something to work and it doesn't
: have to be pretty? Several times I've had to convert a string from mixed
: case to Leadingcap format (eg, "miKe" -> "Mike"). I am imagining that
: there is a super slick way to do this but here's my solution.
:
: What's the one liner?
Presuming the string to be leading-capitalized is in $name:
$lcap = "\u\L$name";
Or, equivalently
$lcap = ucfirst lc $name;
HTH.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Thu, 29 Jan 1998 15:01:27 -0800
From: Larry Rosler <lr@hpl.hp.com>
To: Mike Noel <noel@integrityonline.com>
Subject: Re: Converting to Leadingcap format?
Message-Id: <34D10A47.9DF231@hpl.hp.com>
I'm sure many people will provide this on-lin answer:
$result = ucfirst lc $string;
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
Mike Noel wrote:
>
> Ok. This is mostly for the amusement of the experienced perl hacks.
> You know how it is when you just want something to work and it doesn't
> have to be pretty? Several times I've had to convert a string from mixed
> case to Leadingcap format (eg, "miKe" -> "Mike"). I am imagining that
> there is a super slick way to do this but here's my solution.
>
> What's the one liner?
>
> sub fixccard
> {
> # This sub fixes the card name to the Leadingcap format.
> local($name) = $_[0];
>
> $name =~ tr/A-Z/a-z/;
> $name =~ /^(\w)/;
> $letter = $1;
> $letter =~ tr/a-z/A-Z/;
> $name =~ s/^(.)/$letter/;
> return($name);
> }
>
> Mike Noel
> Integrity Online International
> noel@integrityonline.com
------------------------------
Date: 29 Jan 1998 22:18:14 GMT
From: Gellyfish@btinternet.com (Jonathan Stowe)
Subject: Re: De-FrontPage-itizing HTML
Message-Id: <6aqv76$ol0$3@uranium.btinternet.com>
In article <6aqq1m$lmt$1@gte1.gte.net>, rbrannan#nospam#@oakharbor.net
says...
>
>Anyone out there have any experience with using Perl to strip all of the
>MSFrontPage junk (JavaScript, Extensions, wacko formatting tricks, etc.)
out
>of FrontPage-generated HTML?
>
><snip>
For myself I'd like to beautify said stuff. Indent. Capitalize.
I'll probably right the thing myself;-}
But its rather difficult to know how I would do it for *your*
requirements;-{
/J\
------------------------------
Date: Thu, 29 Jan 1998 21:14:42 +0100
From: "Ronald G\"oggel" <r.goeggel@atos-group.de>
Subject: Re: delete function
Message-Id: <6aqo3d$qg5$1@news.pop-stuttgart.de>
Justin wrote in <34CFF632.4893EAAD@thegrid.net>...
>Hi,
>
>I'm having a hard time understanding the delete function in perl. Some
>of the scripts that I have running on a BSDI machine require that I
>delete certain lines of a file. It seems that the delete function only
>likes to delete a specified key and associated value from a specified
>hash. If I have a file full of tilde delimited text, do I have to dump
>all of it into an associative array? It seems like it should be easier
>than that, so I figured I'd post a question here in hopes that someone
>might point out what I'm overlooking.
>Thanks,
>Justin
>
Yes, the delete function in perl is only for hashes.
If you want do delete lines from a file do something like
open(INPUT, $in) || die "can't open $in: $!\n";
open(OUTPUT, ">$out") || die "can't open $out: $!\n";
while (defined $line = <FILE>) {
print OUTPUT $line if &line_is_ok($line);
}
close INPUT;
close OUTPUT;
check the result (because you are a beginner) and rename $out to $in.
HTH
Ronald
------------------------------
Date: Thu, 29 Jan 1998 20:48:47 GMT
From: swilson@nswc.navy.mil
Subject: Executing app from NT PERL scritp
Message-Id: <1998Jan29.204540.1767@relay.nswc.navy.mil>
Keywords: NT PERL
Hello All,
I would appreciate any help that anyone could give me on this. I am
trying to automate some testing on an NT box using PERL. The windows
console program that I want to run must be executed over 1000 times with
different inputs to it every time. Sort of like a batch file with
variables. For example, my simple PERL script looks like:
for ($i=16; $i < 16384; $i+=16)
{
print 'my_app -a -b -c -l$i';
}
I have PERL running correctly because I can run the "Hello World" type of
program but when I run the above, I get nothing. I have tried -w, use
diagnostics, use strict with no messages. I have also looked over the
FAQ's and I can't find ANYTHING about how to execute an app from within
a PERL script (It works on unix).
Any help would be appreciated. I am running out of ideas! Either
post or send email to swilson@nswc.navy.mil.
Thank You,
Scott Wilson
------------------------------
Date: 29 Jan 1998 22:15:34 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Freidl's book mystery
Message-Id: <6aqv26$mh6$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Chip Salzenberg
<chip@pobox.com>],
who wrote in article <6aqm88$8gn$1@cyprus.atlantic.net>:
> >Which is what you have to do if you're lexing.
>
> Yes, quite. So it was a bit of a slowdown for that purpose.
> OTOH, it was only a _bit_, not the absurd factor mentioned earlier.
Yeah, sure, because you say so.
Manifest: it becomes "a bit" starting from today... :-(
Ilya
------------------------------
Date: Thu, 29 Jan 1998 22:56:29 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Freidl's book mystery
Message-Id: <6ar1ic$940$1@cyprus.atlantic.net>
According to ilya@math.ohio-state.edu (Ilya Zakharevich):
>Chip writes:
>> >Which is what you have to do if you're lexing.
>>
>> Yes, quite. So it was a bit of a slowdown for that purpose.
>> OTOH, it was only a _bit_, not the absurd factor mentioned earlier.
>
>Yeah, sure, because you say so.
Well, yes, I have committed the sin of not including benchmarks.
However, given all the malloc'ing and freeing that Perl does, it
stretches my credulity to believe that _one_ malloc/free, of the
size of the match (not the size of the target), can be that much
of a factor in performance.
I'm not claiming complete knowledge of 5.004's regex performance.
I *am* claiming that if something slowed way down, this ain't it.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
Like Perl? Want to help out? The Perl Institute: www.perl.org
-> Ask me about Perl training and consulting <-
"It's the lemon zester of death!!" // MST3K
------------------------------
Date: Thu, 29 Jan 1998 16:54:12 -0500
From: Chocolate <poohba@io.com>
Subject: How do you make the something case-insensitive?
Message-Id: <Pine.BSI.3.96.980129165312.17002A-100000@xanadu.io.com>
I have this form and I want to be able to search but I want the case to be
insensitive. How do I do this?
------------------------------
Date: 29 Jan 1998 22:38:42 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: How do you make the something case-insensitive?
Message-Id: <6ar0di$3qj$1@marina.cinenet.net>
Chocolate (poohba@io.com) wrote:
: I have this form and I want to be able to search but I want the case to be
: insensitive. How do I do this?
m//i
HTH.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Thu, 29 Jan 1998 17:04:51 -0600
From: "Scott Norris" <snorris@post.cis.smu.edu>
Subject: HTML/CGI to play midi file?
Message-Id: <6ar1pl$kdp$1@hermes.seas.smu.edu>
I want to offer users a list of music to play, but want to avoid the clutter
of listing them all on the page. A menu form seemed the natural choice. The
menu works fine, as does the script, but something along the way is
misinterpreted. Right now, I just submit the URL of the midi file, and then
the script prints to the browser this line
Location: ~~~~~~~~~~
However, that gives me the
"you have started to download a file of type .mid: save it or open it?"
option.
This would work just great for a list of links, which I plan to do in the
future, but Is there a way to get the browser to just play the midi?
thanks
-Scott Norris
------------------------------
Date: Thu, 29 Jan 1998 16:31:49 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: Insecure Path
Message-Id: <34D10355.7F7FF3E7@houston.Geco-Prakla.slb.com>
Todd Sprang wrote:
>
<snip>
>
> I get this error:
> --
> Insecure $ENV{PATH} while running setuid at /root/umerc.pl line 5.
> [line 5 is actually line 2 above--I edited]
If I'm not mistaken, I believe Perl is automatically taint-checking for
you because this is a setuid script. What you need to do is untaint the
PATH variable. The easiest way is to do this:
$ENV{PATH} = ""; # unset the existing path
$ENV{PATH} = "/bin:/usr/bin" # reset the path to a known "good"
path...edit as you see fit
I believe that Perl is doing this for security reasons since someone
could have a rogue 'ps' command in their PATH that does something that
you would rather not have them do. I.e. \rm -rf /* That would
pretty much ruin several peoples day, and yours in particular.
You might want to have a look at the perlsec page.... perldoc perlsec
HTH
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: Thu, 29 Jan 1998 18:45:44 -0500
From: "Webmaster" <webmaster@fccj.cc.fl.us>
Subject: Re: Perl and IIS. Trying to get the server running.
Message-Id: <34d115ad.0@usenet.fccj.cc.fl.us>
You will need to install the cgi scripts into the cgi-bin of the IIS 4
server, then you will need to tell the System Registry (use RegEdit) to tell
the WinNT system what to do with the files (like execute them.)
You should be able to fix both of these by using Build 315 (three download
files) of ActiveState's Win32 Perl package...
http://www.activestate.com
HTH,
Bill
Jason Vallery wrote in message ...
>We have NT Server 4.0 and ISS 4.0 as well. We can't seem to get a snigle
>Perl program to execute with a browser, I have went over every FAQ I could
>find and nothing, It asks us if we want to save the file to disk. I know
>to get around that I am supposed to use a '?' but that doesn't work
>either. We derpreatly need help getting this working as soon as possible.
>Any sugg. would be appreciated.
>Thanks.
>
>
> _____________________________________________
> / __________ Jason Ray Vallery \
>| | ___)_ |
>| | _____) vallery@bvsd.k12.co.us |
>| | ______) guide4@bvsd.k12.co.us |
>| | _______) vallery@usa.net |
>| \_______) vallery_j@gems.colorado.edu |
> \_____________________________________________/
>
------------------------------
Date: Thu, 29 Jan 1998 22:32:30 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: perl4, solaris, varargs
Message-Id: <6ar05b$90n$1@cyprus.atlantic.net>
According to Tony Finch <fanf@demon.net>:
>Exactly. It isn't our job to ecucate our customers, merely provide a
>service to them. It isn't my job to decide what service we provide.
Well, first of all, c.l.p.m isn't a service, it's a newsgroup.
And I won't deal with any customer who insists on using perl 4.
"He who is having dealings with the stupid one will fare badly." -- Proverbs
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
Like Perl? Want to help out? The Perl Institute: www.perl.org
-> Ask me about Perl training and consulting <-
"It's the lemon zester of death!!" // MST3K
------------------------------
Date: Thu, 29 Jan 1998 22:29:29 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Perl5 on 80286 under DOS
Message-Id: <6aqvvr$903$1@cyprus.atlantic.net>
According to John Shimeld <shimeld@agc.bio.ns.ca>:
>Is there such a beast? My searching of www.perl.com revealed only versions
>that require EMX and, I think, 80386 processors or better.
I don't think Perl has been ported to any 286 environment in ages.
It would probably be extraordinarily painful. I should know, I did
the original port of Perl (2?) to the 286. *ouch*
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
Like Perl? Want to help out? The Perl Institute: www.perl.org
-> Ask me about Perl training and consulting <-
"It's the lemon zester of death!!" // MST3K
------------------------------
Date: Thu, 29 Jan 1998 14:58:24 -0800
From: Shawn Gordon <sgordon@athena.lbl.gov>
To: "Tony L. Svanstrom" <tony@svanstrom.com>
Subject: Re: print<< into variable?
Message-Id: <34D10990.77FBC280@athena.lbl.gov>
Tony L. Svanstrom wrote:
>
> Kirk Is <kisrael@allegro.cs.tufts.edu> wrote:
>
> > Is there any way to use the print<<__EndOfQuote__
> > syntax to print into a variable directly, rather
> > than to a file handle? (eg STDOUT)
> >
Why 'print' to a variable, when you can just assign it using
similar syntax? ie.:
$var = <<__EndOfQuote__;
whatever you want here...
__EndOfQuote__
>
> What if I want to "print" to a variable a couple of times and I don't
> want to replace the information already in it?
>
And similarily:
$var = <<FOO;
first line
FOO
dosomething();
$var .= <<FOO;
second line
FOO
print $var;
That is it...
shawn
------------------------------
Date: Thu, 29 Jan 1998 21:23:06 +0100
From: "Ronald G\"oggel" <r.goeggel@atos-group.de>
Subject: Re: Problem With use
Message-Id: <6aqoj4$qpp$1@news.pop-stuttgart.de>
Robert Sample wrote in <6anua2$q13$1@wbnws01.ne.highway1.com>...
<snip>
>Can't locate Win32/Registry.pm in @INC at LotusReg.pl line 3.
>BEGIN failed--compilation aborted at LotusReg.pl line 3.
<snip>
>Can't locate Cwd.pm in @INC at TestModule.pl line 3.
>BEGIN failed--compilation aborted at TestModule.pl line 3.
perl is looking for modules not in the $PATH but in @INC.
type
perl -e "print join(' ', @INC)"
to find out, where perl is looking for its modules/packages.
Maybe you have to reinstall your modules;
btw. (on unix) you can set the environment $PERL5LIB. It works on my
machine,
but I don't have any literature about it. Sorry
HTH
Ronald
------------------------------
Date: 29 Jan 1998 22:58:32 GMT
From: sbourgeo@ici.net (Steve Bourgeois)
Subject: Problems converting Bourne shell to Perl
Message-Id: <6ar1io$fdl$1@bashir.ici.net>
I've been going nuts with this one.
In Bourne shell, I can do the following to pass info to a command:
COMMAND <<_EOF_
line 1
line 2
...
_EOF_
How can I do this in Perl? The Perl "here document" functionality
seems similar, but it doesn't appear to work the same way.
Any info would be appreciated,
Steve (sbourgeo@ici.net)
------------------------------
Date: 29 Jan 1998 22:20:10 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Profiler for Perl4 (yup. Perl4)
Message-Id: <6aqvaq$mh6$2@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Eli the Bearded
<*@qz.to>],
who wrote in article <qz$9801291547@qz.little-neck.ny.us>:
> going to stop you. *We* are not going to answer them because it is a
> real nuissance to hobble oneself and try to think down to a buggy and
> feature deficient version of perl after we have gotten used to the
> latest and greatest.
Com'on, you should know better than this. I'm not sure 5.004_04 is
close to 4.036 on the level of being bug-free. And I expect 5.005
will be *much* worse - partially due to shutting down the direct
connection to the magic Chip-a-bug machine.
Ilya
------------------------------
Date: Thu, 29 Jan 1998 22:22:55 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: puzzling result from hex()
Message-Id: <6aqvjh$8ut$1@cyprus.atlantic.net>
According to Nathan Franzen <franzen@pmel.noaa.gov>:
>Earlier, I asked some questions, including
>> >And shouldn't the result of the mod operator (%) *always* be positive?
>>
>& On Tue, 27 Jan 1998, Chip Salzenberg wrote:
>> No. However, you may wish to upgrade to Perl 5.004_04. We spent
>> a lot of time on modulo, getting it exactly right.
>
>I wonder if you could elaborate on this. It does not accord with my
>(perhaps simplistic) idea of the operator.
There are two ways of doing %: have the sign of the result be the same
as the sign of right-hand operand; or have it it negative if the
left-hand operand is negative xor the right-hand operand is negative.
For 5.004, we had to choose the former because it was compatible with
5.003 on the majority of systems we could find. But we made the logic
consistent so that it would _always_ act like that on _all_ systems.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
Like Perl? Want to help out? The Perl Institute: www.perl.org
-> Ask me about Perl training and consulting <-
"It's the lemon zester of death!!" // MST3K
------------------------------
Date: Thu, 29 Jan 1998 17:11:59 -0600
From: marlontan@hotmail.com
Subject: Retrieving remote page using CGI Script
Message-Id: <886115193.1961033729@dejanews.com>
To whom it may concern:
Good day! My question is: How do you retrieve (save to local drive) a
remote homepage to the local hardrive without using the save menu of your
browser (by using program code)?
If the page I want to save is just generated by a CGI Script, it means
that the page is "physically" not there (am I right?), and I want to
retrieve that file, how do we do that?
More power! Thank you...
Sincerely yours,
Marlon
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Thu, 29 Jan 1998 18:35:19 -0500
From: "Webmaster" <webmaster@fccj.cc.fl.us>
Subject: Re: size limit to the length of a perl script
Message-Id: <34d1133a.0@usenet.fccj.cc.fl.us>
I would say the problem is somewhere other than Perl. I have written
several CGIs which are about 2,000 lines each (really big for perl as Perl
goes...)
I have yet to experience a problem with any of them :-)
HTH,
Bill
Victor Pronk wrote in message <34d0439d.3271914@news.utwente.nl>...
>On Wed, 28 Jan 1998 12:11:52 -0600, cotal@delphi.com wrote:
>
>>Is there a size limit to the length of a perl script running as a cgi?
>>
>>My script is about 1500 lines, across 3 different files.
>>
>>It fails to run if I add another line or another subroutine.
>If you're working in Notepad, the problem could be there. I had the
>same problem and it was Notepad that would not save anymore lines.
>
>Victor
------------------------------
Date: 29 Jan 1998 22:28:56 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Some possible bugs
Message-Id: <6aqvr8$lse$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, "V. Chandrasekhar" <vchandra@mail.delcoelect.com> writes:
:1. I am working with the following version of perl:
:
:Version 4.0 Patch Level 36 1993/02/05
Give up and upgrade.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
And don't tell me there isn't one bit of difference between null and space,
because that's exactly how much difference there is. :-)
--Larry Wall in <10209@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 29 Jan 1998 22:16:32 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Survival Of perl
Message-Id: <6aqv40$krn$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, jsd@bud.com writes:
:use your imagination. our users use windows 95. they don't have
:command lines.
That's not my fault.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"Lisp has all the visual appeal of oatmeal with fingernail clippings mixed in."
--Larry Wall
------------------------------
Date: Thu, 29 Jan 1998 17:35:19 -0500
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: Up Loading Perl Files-Afraid!
Message-Id: <linberg-2901981735190001@projdirc.literacy.upenn.edu>
In article <rbolt-2901981543060001@dbolt2.gsfc.nasa.gov>,
rbolt@pop300.gsfc.nasa.gov (Dick.Bolt) wrote:
> Want to put Guest Book up. Read instructions several times. I changed
> Matts script to match providers best I can. Crossing fingers!
You're asking for trouble if you put up a CGI without really understanding
how it works, no matter how friendly Matt's instructions are.
> Using a Mac, can I just FTP them into my cgi-bin file as
"chmod775GuestBook.cgi"
> as file in ASCII name?
> Its the "Chomd in" thats scarry! FTP is NOT scarry.
I've never heard of doing it this way and I'd be amazed if it works. If
you're using Fetch, you can set the permissions after you upload it. I'd
REALLY recommend you read up on this before you just do it, though.
*********************************************************************
Steve Linberg
Systems Programmer and Technology Specialist (general) 215-898-2100
National Center on Adult Literacy (tech lab) 215 898-0668
Graduate School of Education (fax) 215-898-9804
University of Pennsylvania
3910 Chestnut Street linberg@literacy.upenn.edu
Philadelpia, PA 19104
*********************************************************************
------------------------------
Date: Thu, 29 Jan 1998 17:35:26 -0500
From: joe.mcmahon@gsfc.nasa.gov (Joe McMahon)
Subject: Re: Up Loading Perl Files-Afraid!
Message-Id: <joe.mcmahon-2901981735260001@prtims.stx.com>
In article <rbolt-2901981543060001@dbolt2.gsfc.nasa.gov>,
rbolt@pop300.gsfc.nasa.gov (Dick.Bolt) wrote:
> Want to put Guest Book up. Read instructions several times. I changed
> Matts script to match providers best I can. Crossing fingers!
> Using a Mac, can I just FTP them into my cgi-bin file as
"chmod775GuestBook.cgi"
> as file in ASCII name?
> Its the "Chomd in" thats scarry! FTP is NOT scarry.
> Dick
Hi, Dick. The "chmod" is just so that the files are executable under Unix.
Should be fine as long as the newlines are set right and all that.
-- Joe M.
------------------------------
Date: Thu, 29 Jan 1998 22:50:53 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Vote/poll/survey Script needed
Message-Id: <6ar16q$938$1@cyprus.atlantic.net>
According to "BozzMon" <bozzmon@bigfoot.com>:
>I need a script that allows people to respond, and then view the current
>results in a graphical form.
I assume this is for the web. You want comp.infosystems.www.authoring.cgi,
just down the hall and turn left at the sound of giant squids.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
Like Perl? Want to help out? The Perl Institute: www.perl.org
-> Ask me about Perl training and consulting <-
"It's the lemon zester of death!!" // MST3K
------------------------------
Date: Thu, 29 Jan 1998 22:36:46 GMT
From: chip@mail.atlantic.net (Chip Salzenberg)
Subject: Re: Webring
Message-Id: <6ar0df$91v$1@cyprus.atlantic.net>
According to Anthony David <adavid@netinfo.com.au>:
>Walter Archie wrote:
>> Is there a webring Script?
>
>I'm confused. What do we bring?
One webring to bring them all,
And in the darkness /usr/sbin/bind them,
In the land of Microsoft where the spokesmen lie.
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
Like Perl? Want to help out? The Perl Institute: www.perl.org
-> Ask me about Perl training and consulting <-
"It's the lemon zester of death!!" // MST3K
------------------------------
Date: 29 Jan 1998 22:30:49 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Where are all the scripts?
Message-Id: <6aqvup$lse$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, ray@uh.edu (Ray Schultz) writes:
:I would think, given the \xb3free\xb2 atmosphire around perl, that there would
:be a place where one could go and get already written perl scripts. You
:know, \xb3Why reinvent the wheel\xb2, if it has already been written why write
:it again. So the question is where is that place? FTP? WEB? Or what?
CPAN has a few.
http://www.perl.com/CPAN
http://www.perl.com/CPAN/
ftp://ftp@ftp.perl.com/perl/scripts/
And you should probably look into fix your newsreader. There's something
broken. You're posting bogotic characters. See the quoted bits I
included above.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
> (It's sorta like sed, but not. It's sorta like awk, but not. etc.)
Guilty as charged. Perl is happily ugly, and happily derivative.
--Larry Wall in <1992Aug26.184221.29627@netlabs.com>
------------------------------
Date: Thu, 29 Jan 1998 17:18:58 -0500
From: joe.mcmahon@gsfc.nasa.gov (Joe McMahon)
Subject: Re: Why shift ?
Message-Id: <joe.mcmahon-2901981718580001@prtims.stx.com>
> In comp.lang.perl.misc, Eyal <eyalb@bvr.co.il> wrote :
> # Hi,
> #
> # from the Programming Perl book (P. 118) :
> #
> #
> # $rec = get_rec(\*STDIN);
> #
> # sub get_rec {
> # my $fh = shift;
> # return scalar <$fh>;
> # }
> #
> # why use shift ?
No good reason, other than it's possible that there may be more things
in @_ that you may add code to diddle with later. If you mean, "why not
use 'my($fh) = @_;'?", then it's a different question. That would work
as well, but wouldn't munge @_. It all depends on whether you want to
diddle with @_ or not. If I was treating the rest of the argument list
as an array, I'd probably shift. Otherwise I'd probably assign to a list.
The difference between the two is mostly a style thing.
--- Joe M.
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
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 1764
**************************************
