[7467] in Perl-Users-Digest
Perl-Users Digest, Issue: 1092 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Sep 28 10:17:12 1997
Date: Sun, 28 Sep 97 07:00:32 -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, 28 Sep 1997 Volume: 8 Number: 1092
Today's topics:
! ACTORS,MODELS,TALENT NEEDED!! (bob caruso)
Re: array assignment problem. <doug@3dlabs.com.remove>
Re: CD width CPAN ? (Ben Reser)
Re: Exec Unix command inPerl (Ben Reser)
Re: Exec Unix command inPerl (Tad McClellan)
Help: Regular Expression Substitution <kai@webexpert.net>
I have an error with my script <jbuckley@webvermont.com>
Re: Is Perl Year2000 compliant? <rogerco@ozemail.com.au>
launch Windows 3.1 app from within Perl? (Mark Willey)
Re: Learning Perl for CGI on the WWW <rogerco@ozemail.com.au>
Re: Linking HTML forms with PERL scripts in Win 95 <rogerco@ozemail.com.au>
Re: newbie - source for Perl 5 w/WWW libs for Win 95 (Clay Irving)
Re: newbie: convert string to number (Tad McClellan)
Re: Perl and Databases (Ben Reser)
Re: Perl script is not executed by Web browser <rogerco@ozemail.com.au>
Re: Perl to Java Compiler? (Ben Reser)
Perl4 is *not* Y2K (was Re: Y2K) <merlyn@stonehenge.com>
Re: Repeated Execution of a Script (Ben Reser)
Re: socket to http (Ben Reser)
Re: Web Helpdesk <rogerco@ozemail.com.au>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 28 Sep 97 13:36:54 GMT
From: bob.caruso@cpimodel.com (bob caruso)
Subject: ! ACTORS,MODELS,TALENT NEEDED!!
Message-Id: <60lmbm$che$18@news.gate.net>
TALENT SEARCH
CPI Talent Casting will be hosting a talent search for Actors,
Models, Singers, Singing Groups, Musicians, Comedians and
Celebrity Impersonators. To have this fantastic opportunity
of auditioning before producers, casting directors, agencies,
advertising firms, recording labels and commercial
photographers National and International. This is your
opportunity to be marketed to the best in the business, the
decision makers, worldwide. Your career options will never be
the same.
FOR MORE INFO GO TO: http://www.cpimodel.com/submit
------------------------------
Date: 28 Sep 1997 11:12:50 GMT
From: "Doug" <doug@3dlabs.com.remove>
Subject: Re: array assignment problem.
Message-Id: <01bcc034$3c031a80$d9d880c1@doug-laptop.3dlabs.com>
Hmmm...Whilst writing this I have just tried the script again and it
worked. Now I am completely confused. I basically just re-typed the
@areas= line. Now, I know this wasn't a case of finger trouble. It
seems to happen too often though, I can add a print "got here" line and it
will completely screw things up, however if I re-type it then sometimes it
works. I'm using the 'edit' text editor in Win95. Surely I would see
any mis-typed chars? I think I'll switch editors...
Thanks for the replies, and sorry for time wasting :(
Doug
PS. below is my answer to Douglas' question, seems kind of irrelevant now
though.
I have the following code (first line will be altered per Tom's suggestion
:) And when the @areas only contains two items (e.g. @areas =
('database','news') ) then the scripts runs ok and produces the correct
results. It searchs a list (@areas) of directory names for subdirs (which
are pushed onto @DIRS) and files (pushed onto @FILES). However when
@areas contains 3 or more items then the script won't run. It's called
from a browser and the browser tries to download the file if 3 o more items
are in @areas.
$FORM{'area'} =~ /all/i ? @DIRS = @areas : push(@DIRS, $FORM{'area'});
while ($searchdir = pop(@DIRS)) {
foreach $file (@files) {
$ls = `ls -Fq1 $searchdir\\$file`; # options for ls on NT
@ls = split(/\s+/,$ls);
foreach $temp_file (@ls) {
if ( $temp_file =~ s/[\[\]]//g ) {
push (@DIRS, $temp_file);
}
else {
push (@FILES, $temp_file);
}
}
}
}
------------------------------
Date: Sun, 28 Sep 1997 06:58:26 GMT
From: ben@reser.org (Ben Reser)
Subject: Re: CD width CPAN ?
Message-Id: <342dff80.5053987@192.168.0.1>
Juan,
CPAN is updated on such a regular basis that CPAN on CD probably will
not be terribly useful to you. However, I can understand how you
might want to avoid possible line charges.
You might want to note that there are a number of mirrors and probably
one close to you that would save on download times.
On Sat, 27 Sep 1997 01:10:24 GMT, juan@tres.com (Juan) wrote:
>Please, where can I purchase a CD width the CPAN?
>
>Thanks.
>Juan Palacio
>juan@tres.com
>
************************* IMPORTANT *************************
Why the new email address you ask?
Simple, I'm attempting to simplify the way I filter my mail.
Please direct all personal mail to ben@reser.org
Not directing personal mail to this address may cause
delays in me reading your mail or may even get it deleted.
************************ IMPORTANT *************************
---
Ben Reser <ben@reser.org>
http://ben.reser.org
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS d-(+)@ s:- a-- C++++$ UBVC++++(++)$ P+++$>++++ L- !E---- W@ N(+)>++ o? K--? w++$@>+++ !O---- !M V PS+(++)@>+++ PE++(+++)@ Y+(++)@ PGP+(++)>+++ t+()@ 5 X !R tv-(+)@>-- b+(++)>+++ DI++ D G e h++ r-()>+++ y?
------END GEEK CODE BLOCK------
------------------------------
Date: Sun, 28 Sep 1997 07:00:12 GMT
From: ben@reser.org (Ben Reser)
Subject: Re: Exec Unix command inPerl
Message-Id: <342e002b.5224662@192.168.0.1>
On Sat, 27 Sep 1997 02:22:50 -0400, "Ian OH" <ianoh@welleslian.com>
wrote:
> Can anybody help me this two problem?
>
>1. How to execute a unix command like:
>
>$mv file1.txt file2.txt
>in perl?
`mv file1.txt file2.txt`;
>2. Transfer a posted "form" data to an other server -->a user fill out some
>data
>to a perl program that will transfer the data again to an other server.
>
>Get http://server/cgi-bin/transfer.pl?field1=data1&field2=data2
>- transfer.pl will contain a command that will transfer
>"field1=data&field2=data2"
>to POST http://otherserver/cgi-bin/other.pl?field1=data1&field2=data2
Consider using the LWP Module from CPAN. It should allow you to do
this fairly easily.
************************* IMPORTANT *************************
Why the new email address you ask?
Simple, I'm attempting to simplify the way I filter my mail.
Please direct all personal mail to ben@reser.org
Not directing personal mail to this address may cause
delays in me reading your mail or may even get it deleted.
************************ IMPORTANT *************************
---
Ben Reser <ben@reser.org>
http://ben.reser.org
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS d-(+)@ s:- a-- C++++$ UBVC++++(++)$ P+++$>++++ L- !E---- W@ N(+)>++ o? K--? w++$@>+++ !O---- !M V PS+(++)@>+++ PE++(+++)@ Y+(++)@ PGP+(++)>+++ t+()@ 5 X !R tv-(+)@>-- b+(++)>+++ DI++ D G e h++ r-()>+++ y?
------END GEEK CODE BLOCK------
------------------------------
Date: Sun, 28 Sep 1997 07:04:21 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Exec Unix command inPerl
Message-Id: <54hl06.0j.ln@localhost>
Ben Reser (ben@reser.org) wrote:
: On Sat, 27 Sep 1997 02:22:50 -0400, "Ian OH" <ianoh@welleslian.com>
: wrote:
: > Can anybody help me this two problem?
: >
: >1. How to execute a unix command like:
: >
: >$mv file1.txt file2.txt
: >in perl?
: `mv file1.txt file2.txt`;
^ ^
^ ^ don't do that...
Perl FAQ, part 8:
------------------------
=head2 What's wrong with using backticks in a void context?
Strictly speaking, nothing. Stylistically speaking, it's not a good
way to write maintainable code because backticks have a (potentially
humungous) return value, and you're ignoring it. It's may also not be very
efficient, because you have to read in all the lines of output, allocate
memory for them, and then throw it away. Too often people are lulled
to writing:
`cp file file.bak`;
And now they think "Hey, I'll just always use backticks to run programs."
Bad idea: backticks are for capturing a program's output; the system()
function is for running programs.
Consider this line:
`cat /etc/termcap`;
You haven't assigned the output anywhere, so it just wastes memory
(for a little while). Plus you forgot to check C<$?> to see whether
the program even ran correctly. Even if you wrote
print `cat /etc/termcap`;
In most cases, this could and probably should be written as
system("cat /etc/termcap") == 0
or die "cat program failed!";
Which will get the output quickly (as its generated, instead of only
at the end ) and also check the return value.
system() also provides direct control over whether shell wildcard
processing may take place, whereas backticks do not.
------------------------
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 27 Sep 1997 13:46:16 -0400
From: Kai Chang <kai@webexpert.net>
Subject: Help: Regular Expression Substitution
Message-Id: <342D4668.A21D662B@webexpert.net>
I am trying to parse comments comments out of C code, and I ran
across an
oddity. I've made a work around, but I still don't understand why my
first idea
didn't work. Please help, and cc a copy to my e-mail at
kai@webexpert.net.
Thank you.
I've already worked out "//" and if "/*" is on one line and "*/" is
on another.
What I'm trying to work out here is:
1) /*comment*/ print "Hello World!\n";
2) print "Hello World!\n"; /*comment*/
3) /*comment1*/ print "Hello World!\n"; /*comment2*/
4) /*comment1*/ print "Hello World!\n"; /*comment2*/ print "Hello
Again!\n";
and the code I intended to use was:
$Curline =~ s/^([^"\n]*(".*")*[^"\n]*)\/\*[^(\*\/)\n]*\*\//$1/g;
As you can see, I'm trying to search for /* when it's not in quotes
(everything within
what $1 references) and stripping off everthing within "/* */".
When tried it out, it stripped of the before (1) and after (2)
comments nicely, but
it choked on (3) and (4). I have a (g) at the end of the substitution
expression, so I
expected it to strip off as many instances as it could find... but it
didn't. Finally, I just
put a while loop around it:
While ($CurLine =~ /^([^"\n]*(".*")*[^"\n]*)\/\*[^(\*\/)\n]*\*\/) {
$Curline =~ s/^([^"\n]*(".*")*[^"\n]*)\/\*[^(\*\/)\n]*\*\//$1/;
}
What I don't understand is why I have to put a while loop around
it. Shouldn't
the (g) modifier have worked?
Thanks.
------------------------------
Date: 28 Sep 97 13:22:25 GMT
From: "Jason Buckley" <jbuckley@webvermont.com>
Subject: I have an error with my script
Message-Id: <01bc2256$4eecb9c0$ec3729cf@main>
I think that my perl script is fine, but I may not have it configured
correctly. For some reason I keep getting a 500 error from my server? It
also gives me the information that I have a "permature end of script? The
script is small and I`ll post it at the bottom of this post. The purpose
of the script is to ad a persons link to my link page by filling out a
form. Here to is
#!/bin/perl
$freelocation = "http://www.webvermont.com/linksub.htm";
$freepath = "linksub.htm";
$cgilocation = "http://www.webvermont.com/cgi-bin/free.cgi";
# Receive Info From Free Link
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Process Info From Free Link
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
$INPUT{$name} = $value;
}
# Give Error Messages
&no_url unless $INPUT{'url'};
&no_title unless $INPUT{'title'};
&no_category unless $INPUT{'category'};
# Set Up Free Link Page
open (FILE, "$freepath");
@lines = <FILE>;
close(FILE);
# Write To Free Link Page
open (FREE,">$freepath");
foreach $line (@lines) {
if ($line =~ /<!--$INPUT{'category'}-->/) {
print FREE "<!--$INPUT{'category'}-->\n";
print FREE "<a href=\"$INPUT{'url'}\">$INPUT{'title'}</a><br>\n";
} else {
print FREE ("$line");
}
}
close (FREE);
&follow;
# Error Pages
sub no_url {
print "Content-type: text/html\n\n";
print "<html><head><title>No URL</title></head>\n";
print "<body><h1>URL appears to be blank</h1>\n";
print "You didn't add your URL so your entry to the Free Link Page was not
added.\n";
print "Please add your url below.<br>\n";
print "<form method=POST action=\"$cgilocation\">\n";
print "Page URL: <INPUT TYPE=\"text\" NAME=\"url\" VALUE=\"http://\"
SIZE=\"40\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"title\"
VALUE=\"$INPUT{'title'}\"><br><br>\n";
print "<INPUT TYPE=\"hidden\" NAME=\"category\"\n";
print "VALUE=\"$INPUT{'category'}\"><br><br>\n";
print "<input type=submit VALUE=\"Submit Link\"><hr>\n";
print "</body></html>\n";
exit;
}
sub no_title {
print "Content-type: text/html\n\n";
print "<html><head><title>No Title</title></head>\n";
print "<body><h1>Title appears to be blank</h1>\n";
print "You didn't add your Title so your entry to the Free Link Page was
not added.\n";
print "Please add your url below.<br>\n";
print "<form method=POST action=\"$cgilocation\">\n";
print "Page Title: <INPUT TYPE=\"text\" NAME=\"title\" SIZE=\"40\">\n";
print "<INPUT TYPE=\"hidden\" NAME=\"url\"
VALUE=\"$INPUT{'url'}\"><br><br>\n";
print "<INPUT TYPE=\"hidden\" NAME=\"category\"\n";
print "VALUE=\"$INPUT{'category'}\"><br><br>\n";
print "<input type=submit VALUE=\"Submit Link\"><hr>\n";
print "</body></html>\n";
exit;
}
sub no_category {
print "Content-type: text/html\n\n";
print "<html><head><title>No Category</title></head>\n";
print "<body><h1>Category appears to be blank</h1>\n";
print "You didn't add your Category so your entry to the Free Link Page was
not added.\n";
print "Please hit \"BACK\" on your Browser and fix this\n";
print "</body></html>\n";
exit;
}
sub follow {
print "Content-type: text/html\n\n";
print "<html><head><title>Thank You</title></head>\n";
print "<body><h1>Thank You For Adding a Link</h1>\n";
print "Here's what you added:<br><br>\n";
print "<b>Page URL:</b> $INPUT{'url'}<br>\n";
print "<b>Page Title:</b> $INPUT{'title'}<br><hr>\n";
print "Back to <a href=\"$freelocation\">The Free Links Page</a>. ";
print "<b>If you do not see your entry, hit RELOAD<br>\n";
print "</body></html>\n";
exit;
}
------------------------------
Date: 28 Sep 1997 04:47:30 GMT
From: "Roger Cooper" <rogerco@ozemail.com.au>
Subject: Re: Is Perl Year2000 compliant?
Message-Id: <01bccbc9$b7c46de0$6ca06ccb@rogerco>
Perl and the year 2000
> >
> > which searches all the docs installed to find references to year 2000
> > for instance?
>
seeing perl doesn't have a date data type there is no problem. If you
write your own date routines its up to you to make sure they are ok. If
you link to a database then its a matter of whether the database system is
2000 safe or not.
Roger
------------------------------
Date: 28 Sep 1997 04:14:44 GMT
From: willey@purdue.edu (Mark Willey)
Subject: launch Windows 3.1 app from within Perl?
Message-Id: <60kljk$bsk$1@nntp.Stanford.EDU>
Hi, All.
Can't find this in any FAQ:
Is there a way to launch a Windows 3.1 app from within a Perl script?
Something like minesweep.pl that would launch minesweeper, for example. Or
is there any general utility program that would do that which I could
invoke from said perl script?
Mark
------------------------------
Date: 28 Sep 1997 05:05:45 GMT
From: "Roger Cooper" <rogerco@ozemail.com.au>
Subject: Re: Learning Perl for CGI on the WWW
Message-Id: <01bccbcc$44ed4aa0$6ca06ccb@rogerco>
idiot <copright_infringement@jerk.com> wrote in article
<3428301F.1AE@jerk.com>...
>I
>Can anyone recommend some ultra basic resources: books, websites or
>classes (I9m in Berkeley California)?
I don't think there are any, they all seem to assume you have a background
in writing unix scripts or "C". You don't say what operating system you
are based in, assuming it Windows 95 or NT you might try;
Perl 5 for Windows NT in 21 days .......published by SAMS
it covers win95 and while the 21 days may be dougtfull it is quite a good
book, but first check out all the online web resources there are some good
tutorials out there.
------------------------------
Date: 28 Sep 1997 04:43:17 GMT
From: "Roger Cooper" <rogerco@ozemail.com.au>
Subject: Re: Linking HTML forms with PERL scripts in Win 95
Message-Id: <01bccbc9$213c5b80$6ca06ccb@rogerco>
Bill Whitehead <wcw@onramp.net> wrote in article
<342B37E2.5C83695E@onramp.net>...
> I am a PERL newbie. I loaded PERL on my Windows 95 machine, and am
> attempting to use the local PERL interpreter to check out HTML and PERL
> code before uploading to the CGI-BIN on my server. But, I can find no
> documentation on how to make PERL respond properly on my local computer
Have you also installed a local web server to process the cgi side of the
system?
For perl to work as a script from a html page you need a server to process
the request to run the perl as a cgi script and then send the output of the
script back to your browser.
Regards Roger :-) rogerco@ozemail.com.au
------------------------------
Date: 28 Sep 1997 06:58:03 -0400
From: clay@panix.com (Clay Irving)
Subject: Re: newbie - source for Perl 5 w/WWW libs for Win 95
Message-Id: <60ld7r$htp@panix.com>
In <342ec236.15486575@news2.cais.com> web-babe@mailcity.com (sandra) writes:
>My manager has heard good things about the "new" Web libraries for
>Perl. I have been pulled from a couple of C projects to locate and
>install this software on his machine. Friends say that the binaries
>are a bummer to setup. Where can a rookine Perl person such as mysekf
>start looking for the current good scoop on how to get the Perl 5.x
>with the WWW libraries running on a Win95 machine? Thank you so much
>for your guidance and assistance.
This might be a good starting point for you:
http://reference.perl.com/query.cgi?windows
If you need a binary distribution of Perl, I'd suggest Gurusamy Sarathy's
distribution of Perl, which comes with Win32 support and includes binaries
for several useful Perl Modules:
http://www.perl.com/CPAN-local/ports/nt/Gurusamy_Sarathy/
[ posted and mailed ]
--
Clay Irving <clay@panix.com> http://www.panix.com/~clay/
------------------------------
Date: Sat, 27 Sep 1997 23:23:01 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: newbie: convert string to number
Message-Id: <53mk06.qe1.ln@localhost>
Cathy Huang (cathyh@cs.berkeley.edu) wrote:
: I'm using sort @array to sort an array of strings. How would I convert
: those strings into numbers so the array gets sorted numerically?
You don't need to convert them to numbers. You get perl to do it for you.
Perl FAQ, part 4:
"How do I sort an array by (anything)?"
shows how to sort numerically in the very first paragraph.
: Please email cathyh@cs.berkeley.edu if possible.
Nope.
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 28 Sep 1997 06:53:58 GMT
From: ben@reser.org (Ben Reser)
Subject: Re: Perl and Databases
Message-Id: <342dfe43.4736340@192.168.0.1>
Julian,
Might I suggest mSQL. It's not free but I believe for commercial uses
the licensing on it is $250.00.
You can find it and pointers to the Perl Interface at:
http://www.Hughes.com.au
If you look in the mSQL FAQ located on the same site you'll find some
VB code for creating the SQL CREATE and INSERT statements to move your
database over to mSQL. Note, I did find a couple of bugs in this
code, if you'd like I could send you a fixed up version.
On Fri, 26 Sep 1997 15:22:25 -0700, Julian W H Osborne
><juliano@apptive.co.uk> wrote:
>
>>Hi,
>>
>>I have a small problem which I'm _praying_ I might resolve with all your
>>help.
>>
>>Here goes. I have an MS-Access DB which I need firstly to convert to
>>something that will sit on a unix box (any one know of a utility to do
>>this?) . Once I've got the DB over to unix I need to play around with
>>it using perl. If anyone can be me any pointer I'd be greatful.
>>
>>Thanks in advance.
>>
>>
>>Julian.
>
************************* IMPORTANT *************************
Why the new email address you ask?
Simple, I'm attempting to simplify the way I filter my mail.
Please direct all personal mail to ben@reser.org
Not directing personal mail to this address may cause
delays in me reading your mail or may even get it deleted.
************************ IMPORTANT *************************
---
Ben Reser <ben@reser.org>
http://ben.reser.org
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS d-(+)@ s:- a-- C++++$ UBVC++++(++)$ P+++$>++++ L- !E---- W@ N(+)>++ o? K--? w++$@>+++ !O---- !M V PS+(++)@>+++ PE++(+++)@ Y+(++)@ PGP+(++)>+++ t+()@ 5 X !R tv-(+)@>-- b+(++)>+++ DI++ D G e h++ r-()>+++ y?
------END GEEK CODE BLOCK------
------------------------------
Date: 28 Sep 1997 04:38:38 GMT
From: "Roger Cooper" <rogerco@ozemail.com.au>
Subject: Re: Perl script is not executed by Web browser
Message-Id: <01bccbc8$7a7f6bc0$6ca06ccb@rogerco>
well firstly its not the browser that executes your script its the perl
interpreter via the cgi section of the web server. The virtual directory
refered to it in the setup of the web server. Go into the server
administration and check there that the web server has been set up so that
the cgi-bin directory has both read and execute permission.
Regards Roger :-)rogerco@ozemail.com.au
Larry Nguyen <Larry_P_Nguyen@qmail2.sp.trw.com> wrote in article
<342B0F33.5D13@qmail2.sp.trw.com>...
> I got the following error when running a Perl script from a web browser
> (ie. http://oassis.xyz.com/cgi-bin/howdy.pl)
>
> "HTTP/1.0 403 Access Forbdden (Read Access denied. This virtual
> directory does not allow objects to be read."
>
------------------------------
Date: Sun, 28 Sep 1997 06:00:07 GMT
From: ben@reser.org (Ben Reser)
Subject: Re: Perl to Java Compiler?
Message-Id: <342df196.1491554@192.168.0.1>
On 26 Sep 1997 12:58:18 -0400, jstone@america.net (Jeff R. Stone)
wrote:
>Forgetting all the discourse about the language itself, the thing that
>Java has going for it is that Sun is really a hardware company. They
>have the will and the means to see that Java virtual machines make
>their way into silicon. That is something that the Perl community
>will have a much harder time accomplishing. For that reason, I am
>very interested in seeing what Larry cooks up in O'Reilly's skunk
>works.
Jeff,
Yeah but this works against them some too. Their marketing people
obviously have no clue when it comes to programming languages. This
is clear when you look at their ads they've been running in every
major industry magazine in the last few months. They are comparing
languages that don't exist (or at least know one knows) and claiming
features no one can figure out.
The thing that amazes me is that everyone seems to think that Java is
the greatest thing since sliced bread (no partial pun intended with
your toaster comments). It's not that great of a language and the
"unique" things about it have nothing to do with it's design, but
rather it's implementation.
Ohh well enough ranting.
************************* IMPORTANT *************************
Why the new email address you ask?
Simple, I'm attempting to simplify the way I filter my mail.
Please direct all personal mail to ben@reser.org
Not directing personal mail to this address may cause
delays in me reading your mail or may even get it deleted.
************************ IMPORTANT *************************
---
Ben Reser <ben@reser.org>
http://ben.reser.org
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS d-(+)@ s:- a-- C++++$ UBVC++++(++)$ P+++$>++++ L- !E---- W@ N(+)>++ o? K--? w++$@>+++ !O---- !M V PS+(++)@>+++ PE++(+++)@ Y+(++)@ PGP+(++)>+++ t+()@ 5 X !R tv-(+)@>-- b+(++)>+++ DI++ D G e h++ r-()>+++ y?
------END GEEK CODE BLOCK------
------------------------------
Date: 28 Sep 1997 06:33:21 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: tadmc@flash.net (Tad McClellan)
Subject: Perl4 is *not* Y2K (was Re: Y2K)
Message-Id: <8c3emp8swu.fsf_-_@gadget.cscaper.com>
>>>>> "Tad" == Tad McClellan <tadmc@flash.net> writes:
Tad> [ emailed, posted ]
Tad> Mark Keisler (keisler@cig.mot.com) wrote:
Tad> : Is anyone aware of any Y2K related bugs with perl? We are currently
Tad> : using perl4.036 as well as perl5.002. Could I get some kind of
Tad> : assurance from LArry or Randall as to perl's soundness in the face of
Tad> : year 2000?
Tad> You could try searching for '2000' in the documentation that is
Tad> included with every proper perl distribution.
Tad> It is a Frequently Asked Question. The Perl FAQ is included with
Tad> distributions as of 5.004.
Tad> Using an old distribution does not excuse you from checking the FAQ
Tad> before posting a FAQ yet one more time...
But that could be a new leverage to get people off the old flea-bitten
4.036.
Let's start a rumor that 4.036 is *not* Y2K-compliant! Yes!
Only 5.004 and later is guaranteed to be Y2K-safe. All older versions
*may* contain problems. :-) :-)
Just remember, friends don't let friends use Perl4.
Perl4 is dead dead DEAD!
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 338 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Sun, 28 Sep 1997 07:01:17 GMT
From: ben@reser.org (Ben Reser)
Subject: Re: Repeated Execution of a Script
Message-Id: <342e008a.5319489@192.168.0.1>
This really isn't a Perl problem.
I believe you can do it with META tags in HTML but that's not my area
of expertise so I won't even attempt to answer your question
Note that you'll get better answers if you post to a more appropriate
group.
On 27 Sep 1997 11:05:30 GMT, burt@ici.net (Burt Lewis) wrote:
>Hi,
>
>I'm using SSI to run a script which dispaly a random - that works fine!
>
>Problem:
>
>After the banner is displayed 10 seconds, I want to re-run the script to grab
>another banner and replace it with what's on display.
>
>Any ideas on this would be appreciated.
>
>Also, I want to do this without refreshing the whole browser window.
>
>
>Thanks!
>
>Burt Lewis
>www.eastonmass.com
>
************************* IMPORTANT *************************
Why the new email address you ask?
Simple, I'm attempting to simplify the way I filter my mail.
Please direct all personal mail to ben@reser.org
Not directing personal mail to this address may cause
delays in me reading your mail or may even get it deleted.
************************ IMPORTANT *************************
---
Ben Reser <ben@reser.org>
http://ben.reser.org
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS d-(+)@ s:- a-- C++++$ UBVC++++(++)$ P+++$>++++ L- !E---- W@ N(+)>++ o? K--? w++$@>+++ !O---- !M V PS+(++)@>+++ PE++(+++)@ Y+(++)@ PGP+(++)>+++ t+()@ 5 X !R tv-(+)@>-- b+(++)>+++ DI++ D G e h++ r-()>+++ y?
------END GEEK CODE BLOCK------
------------------------------
Date: Sun, 28 Sep 1997 06:25:22 GMT
From: ben@reser.org (Ben Reser)
Subject: Re: socket to http
Message-Id: <342df822.3167534@192.168.0.1>
On 26 Sep 1997 13:34:56 GMT, gbacon@adtran.com (Greg Bacon) wrote:
>[Posted and mailed]
>
>In article <342b28b8.31513273@192.168.0.1>,
> ben@reser.org (Ben Reser) writes:
>: Save your self some trouble and use LIBWWW-Perl.
>: You can find it on CPAN at:
>: http://language.perl.com/cgi-bin/cpan_mod?module=LWP
>
>Since we're talking about saving trouble, why not
>
> % perl -MLWP::Simple -e 'getprint shift' URL
>
>Hope this helps,
>Greg
>--
>open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
>f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
>d2ac158c84c4ece4d22d1000118a8d5491000000
>EOF
Greg,
He just wanted to get the file. He didn't really specify what he
wanted to do with it. So getprint doesn't really do him much good.
************************* IMPORTANT *************************
Why the new email address you ask?
Simple, I'm attempting to simplify the way I filter my mail.
Please direct all personal mail to ben@reser.org
Not directing personal mail to this address may cause
delays in me reading your mail or may even get it deleted.
************************ IMPORTANT *************************
---
Ben Reser <ben@reser.org>
http://ben.reser.org
-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GCS d-(+)@ s:- a-- C++++$ UBVC++++(++)$ P+++$>++++ L- !E---- W@ N(+)>++ o? K--? w++$@>+++ !O---- !M V PS+(++)@>+++ PE++(+++)@ Y+(++)@ PGP+(++)>+++ t+()@ 5 X !R tv-(+)@>-- b+(++)>+++ DI++ D G e h++ r-()>+++ y?
------END GEEK CODE BLOCK------
------------------------------
Date: 28 Sep 1997 04:57:15 GMT
From: "Roger Cooper" <rogerco@ozemail.com.au>
Subject: Re: Web Helpdesk
Message-Id: <01bccbcb$14c0a3a0$6ca06ccb@rogerco>
Samuel Lam <Slammy@postoffice.worldnet.att.net> wrote in article
> site up I get the following error message:
>
> ERROR: HTTPd: Malformed header from script
>
The perl script is returning a html document via cgi processor in the web
server. The browser is not recognising the first part of the html document
as a valid html header. This is either because the script is not sending a
proper header or because the cgi processor in the server is stripping off
something. If the scripts worked elsewhere then its your server setup. It
could be that the script relies on a library file to build the proper
header, if it cannot find that file the script may not be functioning
correctly.
Roger :-) rogerco@ozemail.com.au
------------------------------
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 1092
**************************************
