[7936] in Perl-Users-Digest
Perl-Users Digest, Issue: 1561 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 1 02:07:30 1998
Date: Wed, 31 Dec 97 23:00:21 -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 Wed, 31 Dec 1997 Volume: 8 Number: 1561
Today's topics:
Re: Benchmarking <adavid@netinfo.com.au>
Re: Benchmarking (brian d foy)
Bugs in CGI/Perl Cookbook <webmaster@billiardsdigest.com>
Re: Bugs in CGI/Perl Cookbook <joseph@5sigma.com>
Re: bulk mail <webmaster@billiardsdigest.com>
Re: bulk mail (brian d foy)
Re: Need help hand-coding an HTTP POST request (Nick Kew)
Re: Need help hand-coding an HTTP POST request (brian d foy)
Re: newbie: what am i doing wrong? <joseph@5sigma.com>
Re: Okay, I should know this, but its about reading inf <alecto@lasierra.pe.net>
Re: Okay, I should know this, but its about reading inf <adavid@netinfo.com.au>
Re: Okay, I should know this, but its about reading inf (brian d foy)
Re: reading in passwords <joseph@5sigma.com>
Require weirdness... <djacobs@tsoft.com>
Re: Require weirdness... <joseph@5sigma.com>
Re: Script calls embedded in web pages (brian d foy)
Re: Search and replace questions (brian d foy)
Re: Simple(!) regular expression problem <joseph@5sigma.com>
Re: Simple(!) regular expression problem (brian d foy)
Re: Simple(!) regular expression problem (brian d foy)
Re: Stripping non-alphanum's from within string? (brian d foy)
Re: system command (brian d foy)
Re: timing subroutines <joseph@5sigma.com>
Re: timing subroutines (brian d foy)
Re: undefined value <joseph@5sigma.com>
Win95 Perl <eddie@NOSPAMMING.cs.odu.edu>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 01 Jan 1998 15:24:07 +1100
From: Anthony David <adavid@netinfo.com.au>
To: mhanson@arrowweb.com
Subject: Re: Benchmarking
Message-Id: <34AB1A67.B0DF6AD5@netinfo.com.au>
Mike wrote:
> What code do you use to make it so that you can see how much cpu usage
> and additional stuff that your perl program is taking up. Also is there
The Benchmark module on CPAN is an excellent choice.
--
Anthony David | Opinions expressed ARE
Anthony David & Associates | those of my employer
------------------------------
Date: Thu, 01 Jan 1998 01:39:16 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Benchmarking
Message-Id: <68fd9n$3g8@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <34AB0D46.5620@arrowweb.com>, mhanson@arrowweb.com posted:
> What code do you use to make it so that you can see how much cpu usage
> and additional stuff that your perl program is taking up. Also is there
> a way to see how many times that the program could be accessed without
> seeing a noticable slow down in the server, or see how many times it
> could be accessed per second without getting a could not fork new
> process error?
perhaps you missed the answer to
How do I profile my Perl programs?
in the Perl FAQ <URL:http://www.perl.com>
good luck :)
--
brian d foy <http://computerdog.com>
------------------------------
Date: Wed, 31 Dec 1997 22:30:58 -0600
From: Sven Davies <webmaster@billiardsdigest.com>
Subject: Bugs in CGI/Perl Cookbook
Message-Id: <34AB1C02.7D95@billiardsdigest.com>
I recently purchased the by Craig Patchett and Matthew Wright called
"The CGI/Perl Cookbook" (http://www.cgi-perl.com). Although I have
found the book to be generally great and full of good programs to use in
my web sites, the programs seem to be full of bugs.
After receiving little help from the authors, I have been faced with the
problem of finding the bugs for myself. Not really a problem as I am
enjoying learning PERL. My question, is - since I am still quite new to
the language - is there a way to debug a PERL program using a utility
that will show variable values step by step?
The program in question is a WebShop application.
Thanks in advance.
Sven.
sven@avalon.net
------------------------------
Date: Wed, 31 Dec 1997 23:13:43 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
To: Sven Davies <webmaster@billiardsdigest.com>
Subject: Re: Bugs in CGI/Perl Cookbook
Message-Id: <34AB3404.2967F991@5sigma.com>
A Perl book with bugs. Yikes!
-joseph
http://www.effectiveperl.com
(who has had to look through WAY too many buggy Perl books, and
hopes his is a little more solid than average ... and who will
gladly help readers, to a point anyway!)
Sven Davies wrote:
>
> I recently purchased the by Craig Patchett and Matthew Wright called
> "The CGI/Perl Cookbook" (http://www.cgi-perl.com). Although I have
> found the book to be generally great and full of good programs to use in
> my web sites, the programs seem to be full of bugs.
>
> After receiving little help from the authors, [...]]
------------------------------
Date: Wed, 31 Dec 1997 22:21:36 -0600
From: Sven Davies <webmaster@billiardsdigest.com>
Subject: Re: bulk mail
Message-Id: <34AB19D0.7148@billiardsdigest.com>
Mike wrote:
>
> If i am writing a program to send bulk email, is using sleep 1 enough
> time to make it so that i don't overload the sendmail program?
I am using sleep 2 with a shell script that I use send site update
announcements for my web site and it works just fine. I haven't tested
it with sleep 1, but I don't really need it to seed the announcements
that fast.
I usuall just start it and move on to something else.
Sven.
sven@avalon.net
------------------------------
Date: Thu, 01 Jan 1998 01:35:36 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: bulk mail
Message-Id: <68fd2s$3g8@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <34AB0BD0.1BB1@arrowweb.com>, mhanson@arrowweb.com posted:
> If i am writing a program to send bulk email, is using sleep 1 enough
> time to make it so that i don't overload the sendmail program?
sendmail questions are best asked in alt.fan.e-t-b
and, of course, judicious use of command line switches to sendmail
will help you manage the load on your system. you might want to take
a look at majordomo which is written in Perl.
--
brian d foy <http://computerdog.com>
------------------------------
Date: Wed, 31 Dec 1997 17:23:04 +0000
From: nick@webthing.com (Nick Kew)
Subject: Re: Need help hand-coding an HTTP POST request
Message-Id: <o1vd86.r7.ln@jarl.webthing.com>
In article <68d2es$jdd@bgtnsc02.worldnet.att.net>,
comdog@computerdog.com (brian d foy) writes:
>> RF.FED.02=1st Page
>
> there needs to be a blank line between the HTTP message body and the
> HTTP header. see the HTTP specification [1] for more details.
You forgot to mention the incomplete header and required URLencoding.
As author of one of the systems that does this automatically, why didn't
you suggest it? Either cg-eye or httpeek will let you hand-craft a POST.
--
Nick Kew
WebThing virtual office: personal and groupware desktop on the Web
Mail Client, Mail Server, Calendar Server, FileServer, Conferencing
- <URL:http://www.webthing.com/>
------------------------------
Date: Thu, 01 Jan 1998 00:50:48 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Need help hand-coding an HTTP POST request
Message-Id: <68faes$md1@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <o1vd86.r7.ln@jarl.webthing.com>, nick@webthing.com (Nick Kew) posted:
> In article <68d2es$jdd@bgtnsc02.worldnet.att.net>,
> comdog@computerdog.com (brian d foy) writes:
> >> RF.FED.02=1st Page
> >
> > there needs to be a blank line between the HTTP message body and the
> > HTTP header. see the HTTP specification [1] for more details.
>
> You forgot to mention the incomplete header and required URLencoding.
i figured the poster would get all that information from reading
the HTTP spec. i get tired of typing it frequently. the message body
doesn't need to be encoded though, but any parts that need encoding
would be well served by the URI::Escape module.
> As author of one of the systems that does this automatically, why didn't
> you suggest it? Either cg-eye or httpeek will let you hand-craft a POST.
hey, that's right - i did write one of those. but as the author
of the other you, you didn't include either URL ;)
HTTPeek <URL:http://computerdog.com/httpeek/>
cg-eye <URL:http://server.htmlhelp.org/tools/cg-eye/>
--
brian d foy <http://computerdog.com>
------------------------------
Date: Wed, 31 Dec 1997 22:58:44 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: newbie: what am i doing wrong?
Message-Id: <34AB3082.E07EDAA2@5sigma.com>
The best thing you could do would be to spend a weekend with
a copy of Learning Perl.
If it were a simple thing I would have just fixed your code for you.
-joseph
http://www.effectiveperl.com
jay wrote:
>
> I'm bored at work, so I'm working on a random password geneator.
> I have lots of ideas for it, but I can't implement those until I get
> this problem worked out. I see no problem in my code, but then again,
> I don't have a lot of experience with PERL. If you can tell me what I
> am doing wrong, it'd be much appreciated. Thx.
------------------------------
Date: 1 Jan 1998 03:04:35 GMT
From: alecto <alecto@lasierra.pe.net>
Subject: Re: Okay, I should know this, but its about reading info from a file
Message-Id: <68f143$dgb$1@nntp.pe.net>
William Byrd <wcb4@erols.com> wrote:
>In every perl script I have written to date, I have had to read
>through an entire file for information and process it. Now I need to
>open a file and read only the second line of the file to see if it has
>the information I need, and if not, close it.
one way:
#! /usr/bin/perl -w
# do foo if 2nd line matches whatever
while (<>) {
if (($. == 2) && ($_ =~ /whatever/) ) {
& foo;
}
}
sub foo { print "wow, whatever on line 2\n"; }
------------------------------
Date: Thu, 01 Jan 1998 15:27:29 +1100
From: Anthony David <adavid@netinfo.com.au>
Subject: Re: Okay, I should know this, but its about reading info from a file
Message-Id: <34AB1B31.C5D6F91C@netinfo.com.au>
alecto wrote:
> William Byrd <wcb4@erols.com> wrote:
>
> #! /usr/bin/perl -w
> # do foo if 2nd line matches whatever
>
> while (<>) {
> if (($. == 2) && ($_ =~ /whatever/) ) {
> & foo;
>
last; # this would be good here. Save reading the whole file.
> }
> }
>
> sub foo { print "wow, whatever on line 2\n"; }
--
Anthony David | Opinions expressed ARE
Anthony David & Associates | those of my employer
------------------------------
Date: Thu, 01 Jan 1998 01:45:17 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Okay, I should know this, but its about reading info from a file
Message-Id: <68fdl0$3g8@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <68emg6$rge$1@winter.news.erols.com>, wcb4@erols.com posted:
> In every perl script I have written to date, I have had to read
> through an entire file for information and process it. Now I need to
> open a file and read only the second line of the file to see if it has
> the information I need, and if not, close it.
>
> I don't know the perl syntax, but I want to
> open (file,"<$filename");
you'll want to check the return value of the open()
open(FILE, $filename) or die "$!"; #or some such
> read $line; # this gets discarded
> read $line; # this is the line I readlly want
you can then read lines with <FILE>
$first_line = <FILE>;
$second_line = <FILE>;
and then close the file:
close FILE;
> Any help would be appreciated. Please reply via e-mail as well, as I
> do not know when I will get back to this newsgroup.
i haven't figured out how to send mail from my PlayStation, so you'll
have to deal with reading the newsgroup or its archives. :)
--
brian d foy <http://computerdog.com>
looking forward to Virtual Tic Tac Toe
------------------------------
Date: Wed, 31 Dec 1997 23:05:44 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: reading in passwords
Message-Id: <34AB3225.6D1E729@5sigma.com>
You can do it through curses. In fact the very first ever curses
program I wrote was an answer to this very question. How many
people write their first curses program in Perl, I wonder?!?
But there are less complicated approaches covered in the FAQ, and
no doubt at least one of the other replies to this question.
-joseph
http://www.effectiveperl.com
Eryq wrote:
>
> Devin P. Anderson wrote:
> >
> > How can you read from STDIN and not display what is being typed on the
> > screen? Like a password. Is this possible though a socket?
>
> I think you want the Curses module from the CPAN.
> Try http://www.perl.com/CPAN , and get a copy of the Perl5
> Module List.
------------------------------
Date: 1 Jan 98 04:48:29 GMT
From: Doug Jacobs <djacobs@tsoft.com>
Subject: Require weirdness...
Message-Id: <34ab201d.0@news.tsoft.net>
I'm currentally developing a small application, and am
having problems with "require 'foo.pl';"
Here's the situation:
I have a file called header.pl, which contains a number
of constants, 'use' statments and such. Stuff I don't
want to cut & paste into every function, so I tried
require-ing the file into each function. Problem is,
the values don't come through sometimes... :(
It works in the script I execute...but if that script
calls a subroutine in another module, the subroutine
doesn't see get the stuff from the file.
Here's some code:
-----header_test.pl-----
#!/usr/local/bin/perl5
# header_test.pl
# "main" procedure
require 'header.pl'; # contains variable $filepath
use test_mod; # test module - below
print "header_test says filepath is: " . $filepath ."\n";
&test_mod::test_sub();
-----header_test.pl-----
-----test_mod.pm-----
#!/usr/local/bin/perl5
# test module
package test_mod;
sub test_sub{
require 'header.pl';
print "test_sub says filepath is: " . $filepath . "\n";
}
1;
-----test_mod.pm-----
When I run this on my system, I get:
header_test says filepath is: /my/file/path
test_sub says filepath is:
I can't figure out what's going wrong....
I've spent the better of the day trying various things
and I'm no nearer an answer I fear :(
Any ideas, solutions, clue-by-fours would be appreciated :)
Thanks in advance, and happy new year.
------------------------------
Date: Wed, 31 Dec 1997 22:46:12 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Require weirdness...
Message-Id: <34AB2D92.A14EA12A@5sigma.com>
You're a little bit confused.
If you want to write a file whose contents you are going to
incorporate AT RUN TIME into another file, use "require." This
will probably work for your application:
-- tryme --
#!/usr/local/bin/perl
require 'myconfig.pl';
print "The answer is: $answer\n";
-- end tryme --
-- myconfig.pl --
$answer = 42;
1;
-- end myconfig.pl --
{joseph}:210% tryme
The answer is: 42
Ok, that's the end of that.
If you want to WRITE A MODULE, then you will want to use the
program h2xs. Not only will you want to use the program h2xs, but
everyone else also wants you to use h2xs. Please don't use "use"
for anything other than a module (which you write with h2xs, of
course) until you know how it differs from require.
There is a pretty good walkthrough of how to write a module using
h2xs in my book, which should be on the shelves about now. You
can also look at the perlmod man page, or maybe man h2xs, or ....
-joseph
http://www.effectiveperl.com
> }
> 1;
> -----test_mod.pm-----
>
> When I run this on my system, I get:
>
> header_test says filepath is: /my/file/path
> test_sub says filepath is:
>
> I can't figure out what's going wrong....
>
> I've spent the better of the day trying various things
> and I'm no nearer an answer I fear :(
>
> Any ideas, solutions, clue-by-fours would be appreciated :)
>
> Thanks in advance, and happy new year.
------------------------------
Date: Thu, 01 Jan 1998 01:08:43 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Script calls embedded in web pages
Message-Id: <68fbge$md1@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <34AAE14C.461@merck.com>, scott_clark@merck.com posted:
> Or how about Server Side Includes (SSI) that will execute
> /cgi-bin/scriptname.pl with the following HTML tag. Note: Server Side
> Includes must be configured on your webserver...
>
> <!-- #exec cgi"/cgi-bin/scriptname.pl" -->
does that really work? i think you meant
<!--#exec cgi="/cgi-bin/scriptname.pl" -->
--
brian d foy <http://computerdog.com>
CGI_MetaFAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Thu, 01 Jan 1998 01:32:21 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Search and replace questions
Message-Id: <68fcso$3g8@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <68e9kc$g3o@tecoma.mccc.edu>, pjh@mccc.edu (Pete Holsberg) posted:
> <FONT SIZE=+1><a
> href="/cgi-bin/htgrep.cgi/isindex=AC106&file=/SCHED/spr/msched.html&style=pre">AC106</a>
oy! such an ugly PATH_INFO. it looks like a query string without
the ? at the beginning. perhaps you can post the bits of code which
produce that and we can turn that / into a ?.
--
brian d foy <http://computerdog.com>
------------------------------
Date: Wed, 31 Dec 1997 22:47:55 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Simple(!) regular expression problem
Message-Id: <34AB2DF9.A5D3DA40@5sigma.com>
Others may offer conjecture, but I for one have absolutely no
idea what you are hoping to do. Can you tell us what "make the
following two variables match" means?
-joseph
Laurel Shimer wrote:
>
> I am very embarassed that I just don't get how to do regular expressions yet...
> Have been staring at the Camel, the Llama book and the Perl Reference
> Guidetrying to figure out how to make the following two variables match
>
> $reqinput ="360-WG-002 ";
> $reqmatch =" 360-WG-002";
------------------------------
Date: Thu, 01 Jan 1998 01:19:11 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Simple(!) regular expression problem
Message-Id: <68fc43$3g8@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <autopen-3112971530050001@dynamic2.pm02.mv.best.com>, autopen@autopen.com (Laurel Shimer) posted:
> I am very embarassed that I just don't get how to do regular expressions yet...
> Have been staring at the Camel, the Llama book and the Perl Reference
> Guidetrying to figure out how to make the following two variables match
>
> $reqinput ="360-WG-002 ";
> $reqmatch =" 360-WG-002";
>
> I have tried both
> if ($reqinput=~ /\b$reqmatch\b/) {print "matched\n";}
if you want to see if $reqinput is the same as $reqmatch, you
could use a comparison test rather than a match:
if( $reqinput eq $reqmatch )
if you want to do matching with the value of a variable, you may
want to quote the metacharacters in that variable so that the
matching thingy uses it as a literal string rather than a regular
expression:
if( $reqinput=~ /\Q$reqmatch\E/ )
where metacharacters between \Q and \E are disabled.
that said, if you look at $reqmatch, you'll see that it can't
be a pattern for $reqinput since it has the leading whitespace, which
isn't present in $reqinput. although we don't know what your data
requirements are, you might want to strip leading and trailing
whitespace before you compare the values:
$foo =~ s/^\s+//; #strip leading whitespace
$foo =~ s/\s+$//; #strip trailing whitespace
good luck :)
--
brian d foy <http://computerdog.com>
------------------------------
Date: Thu, 01 Jan 1998 01:23:41 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Simple(!) regular expression problem
Message-Id: <68fccg$3g8@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <ebohlmanEM2w1t.BAG@netcom.com>, Eric Bohlman <ebohlman@netcom.com> posted:
> Dashes have a special meaning inside regular expressions. That's what's
> causing your problem.
hmmm...
> Your Perl distribution came with an enormous amount of free, high-quality
> documentation. In particular, it came with a file called "perlre" (which
> may be a Unix man page or an HTML document, depending on your platform)
> which tells you everything you need to know, and more, about regular
> expressions. Your assignment, should you choose to accept it, is to read
> it at least twice;
your assignment, should you choose to accept it.... ;)
--
brian d foy <http://computerdog.com>
avoiding the gunfire on the streets
------------------------------
Date: Thu, 01 Jan 1998 00:58:54 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Stripping non-alphanum's from within string?
Message-Id: <68fau1$md1@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <68eaad$q9d$1@neocad.com>, stampes@xilinx.com (Jeff Stampes) posted:
> hagani@worldnet.att.net wrote:
> : Let's say I have: $string = "P#E!$R- L"
>
> : I'd like to remove all non-alphanumerics, the result being:
> : $string = "PERL"
>
> : I've tried $sting =~ s/\W//g; but this doesn't seem to work
> : properly (it strips some of the letters too!)
>
> Actually it does work...not the way you're defining your string
> though:
it works on that example because it doesn't include an underscore,
which is not part of the non-word class. a little more work is
needed:
s/[\W_]//g;
--
brian d foy <http://computerdog.com>
------------------------------
Date: Thu, 01 Jan 1998 01:51:21 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: system command
Message-Id: <68fe0c$3g8@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <34AAC9E7.3D5983DE@bigfoot.ch>, Bigfoot Schweiz <info@bigfoot.ch> posted:
> I actually have serious problems with Perl at the moment. Does anybody
> have an idea how I can fetch the output of a system command?
such wisdom is found in section 8 of the perlfaq (the perlfaq8 man page
is included with perl but also available elsewhere)
> Or does anybody know how I can look( certainly with Perl) how big a file
> is?
the -s filetest operator is one way of doing it. the perlfunc man page
has the details of this operator and others.
good luck :)
--
brian d foy <http://computerdog.com>
------------------------------
Date: Wed, 31 Dec 1997 23:03:24 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: timing subroutines
Message-Id: <34AB3199.2A259282@5sigma.com>
Usually I don't beat up on newbies, but did you happen to look up
alarm() before you followed up to Brian's posting? It doesn't
look like it ....
Now, if you actually want to use alarm(), you will also need to
install a signal handler. I was just about to write a little
example for you, but when I looked up alarm() in the perlfunc
man page, what did I see but a near duplicate of the example
(using eval and die) I was about to write from scratch.
-joseph
http://www.effectiveperl.com
Devin P. Anderson wrote:
>
> brian d foy wrote:
> >
> > In article <34AA6353.5D52@sgi.net>, "Devin P. Anderson" <dev@sgi.net> posted:
> >
> > > Is there a way to time a subroutine so that if it doesn't complete in a
> > > certain time period it returns an error?
> >
> > does alarm() do what you want?
> >
>
> Well, I'm not sure. [...]
------------------------------
Date: Thu, 01 Jan 1998 01:57:06 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: timing subroutines
Message-Id: <68feb5$cgf@bgtnsc02.worldnet.att.net>
Keywords: just another new york perl hacker
In article <34AB3199.2A259282@5sigma.com>, joseph@5sigma.com posted:
> Usually I don't beat up on newbies, but did you happen to look up
> alarm() before you followed up to Brian's posting? It doesn't
> look like it ....
that's it. i'm going to start putting the entire pod in my sig.
--
brian d foy <http://computerdog.com>
loathes mixed case.
------------------------------
Date: Wed, 31 Dec 1997 22:50:36 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: undefined value
Message-Id: <34AB2E99.6C3900B9@5sigma.com>
Works for me. Maybe $common_dir or $this_htm are undefined?
-joseph
snailgem@aol.com wrote:
>
> This is driving me crazy:
>
> #!/usr/local/bin/perl -w
> use diagnostics;
> use File::Copy;
>
> ##stuff initialized here
>
> $from_file = "$common_dir/$this_htm";
> $to_file = "$common_dir/copy_$this_htm";
>
> copy ("$from_file", "$to_file");
>
> The only new file here is $to_file.[..]
------------------------------
Date: Wed, 31 Dec 1997 20:50:19 -0500
From: Eddie Brown <eddie@NOSPAMMING.cs.odu.edu>
Subject: Win95 Perl
Message-Id: <34AAF65B.D28129BC@NOSPAMMING.cs.odu.edu>
I have a html file on my Windows 95 box that calls a perl program:
<form action="test.cgi" method="get">
When I use Netscape locally on my win95 box, netscape displays
the source instead of executing it. I made it so that .cgi files open
with
perl but then an externaal dos shell spawns from netscape and executes
it.
????
I know that the top line of the program has to be changed from the unix
path to a win95 path :
#!/usr/bin/perl
but #!C:/bin/perl
doesn't seem at all right.
HELP!! :^)
Thanks,
Eddie
------------------------------
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 1561
**************************************
