[8595] in Perl-Users-Digest
Perl-Users Digest, Issue: 2212 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 30 21:07:44 1998
Date: Mon, 30 Mar 98 18:00:26 -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 Mon, 30 Mar 1998 Volume: 8 Number: 2212
Today's topics:
Re: "Unsupported function alarm function..."??? (Jeffrey Drumm)
Re: Anon Scalar Expression (was: Evaluate expression in <rootbeer@teleport.com>
Re: Anon Scalar Expression (was: Evaluate expression in (Stuart McDow)
Date manipulations? (Burt Lewis)
Re: file trees <rootbeer@teleport.com>
File::Find vs. File::Recurse (was Re: file trees) <jdf@pobox.com>
Re: HELP - Perl 5 on NT Server 4.0 and IIS (Earl Hood)
Increment [++] ne Assignment-add [+=] <lr@hpl.hp.com>
Re: index of string (Earl Hood)
Re: large numbers cause large frustration <mjr@ranney.com>
Re: Macperl (Paul J. Schinder)
Re: need regexp help <smitty77@pacbell.net>
Re: Need sorting routine in Perl (TomH)
Re: Question about Perl script and form submit buttons <mike@unival.com>
small letters into capital letter <Andre.Vieth@schwerin.netsurf.de>
small letters into capital letter <Andre.Vieth@schwerin.netsurf.de>
Re: small letters into capital letter (Craig Berry)
Re: small letters into capital letter (Craig Berry)
Something to POST some data ... <amit@nospam.qualcomm.com>
status of Threads in PERL? otis@POPULUS.net
Re: upgrade breakage? (Earl Hood)
Re: verifying email address -- how? (John Moreno)
Re: What is a JAPH (Joergen W. Lang)
Re: Win32:: available or not? (Andrew M. Langmead)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 31 Mar 1998 00:51:05 GMT
From: drummj@mail.mmc.org (Jeffrey Drumm)
Subject: Re: "Unsupported function alarm function..."???
Message-Id: <35203988.179285416@news.mmc.org>
On Mon, 30 Mar 1998 11:42:20 -0500, Chris Brown <cbrown@erols.com> wrote:
>I am getting the following message when using the 'pingecho' command
>from the Net::Ping module:
>"The Unsupported function alarm function is unimplemented at
>C:\Perl\lib/Net/Ping.pm line 51, <CONFFILE> chunk 64."
>
(deletia)
>Any ideas?
>
>Chris Brown (cbrown@erols.com)
alarm() requires fork support, which NT lacks. Rather than use echo pings,
use ICMP . . . and if for some reason you can't work with ICMP, you can
always install Linux ;-)
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center Information Services
420 Cumberland Ave, Portland, ME 04101
drummj@mail.mmc.org
"Broken? Hell no! Uniquely implemented." -me
------------------------------
Date: Mon, 30 Mar 1998 15:00:04 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: John Porter <jdporter@min.net>
Subject: Re: Anon Scalar Expression (was: Evaluate expression inside print "")
Message-Id: <Pine.GSO.3.96.980330143032.23328B-100000@user2.teleport.com>
On Mon, 30 Mar 1998, John Porter wrote:
> So my question is, Why doesn't perl have an operator to
> generate ref-to-anon-scalar the way it does for arrays
> and hashes?
'cause you hardly ever need one. Anon scalars are used very, very rarely
compared to anon hashes or anon arrays. But, if you truly need one,
they're not hard to make. Here's one way; you may have a better one.
$scalar_ref = \eval { my $temp = 'default value' };
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 31 Mar 1998 00:58:31 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: Anon Scalar Expression (was: Evaluate expression inside print "")
Message-Id: <6fpf3n$ip1$1@ns1.arlut.utexas.edu>
Tom Phoenix <rootbeer@teleport.com> writes:
> $scalar_ref = \eval { my $temp = 'default value' };
Tom, I believe that
$scalar_ref = \'default value';
will work. Or did I misunderstand the question?
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"It is obvious that about 750,000 people ago, Austin was a wonderful City."
------------------------------
Date: 30 Mar 1998 23:39:40 GMT
From: burt@ici.net (Burt Lewis)
Subject: Date manipulations?
Message-Id: <6fpafs$h7s$1@bashir.ici.net>
Hi,
If this is in the docs or faq's strike me down and please point me in the right direction.
I need to determine 2 dates based on today's date.
The first date I need to know is the prior Saturday and the second date I need is the subsequent
Saturday.
My feeble attempt:
if ($today eq "Monday")
{
$sata = ($mday -2);
$satb = ($mday + 5);
}
if ($today eq "Tuesday")
{
$sata = ($mday -3);
$satb = ($mday + 4);
}
if ($today eq "Wednesday")
{
$sata = ($mday -4);
$satb = ($mday + 3);
}
if ($today eq "Thursday")
{
$sata = ($mday -5);
$satb = ($mday + 2);
}
if ($today eq "Friday")
{
$sata = ($mday -6);
$satb = ($mday + 1);
}
if ($today eq "Saturday")
{
$sata = ($mday);
$satb = ($mday + 7);
}
if ($today eq "Sunday")
{
$sata = ($mday -1);
$satb = ($mday + 6);
}
This returns dates like 3/35/98 which doesn't cut it too well.
Appreciate and help or suggestions.
Burt Lewis
burt@ici.net
------------------------------
Date: Mon, 30 Mar 1998 15:03:05 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Robs hols <robshols@aol.com>
Subject: Re: file trees
Message-Id: <Pine.GSO.3.96.980330150229.23328C-100000@user2.teleport.com>
On 30 Mar 1998, Robs hols wrote:
> Can anyone suggest some perl code that would allow me to, given a
> particular directory, list all files in that directory AND in all
> directories below it
Sounds like a job for File::Find. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 30 Mar 1998 20:36:03 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: File::Find vs. File::Recurse (was Re: file trees)
Message-Id: <emzjprp8.fsf_-_@mailhost.panix.com>
aml@world.std.com (Andrew M. Langmead) writes:
> robshols@aol.com (Robs hols) writes:
> >Can anyone suggest some perl code that would allow me to, given a particular
> >directory, list all files in that directory AND in all directories below it
>
> use File::Find;
>
> find(sub {push @found, $File::Find::name if -f $_;}, @ARGV);
> print map {"$_\n"} @found;
Does anyone care to pontificate on why you'd choose one of File::Find
and File::Recurse over the other?
use File::Recurse;
recurse { /foo/ && print "$_\n" } '/tmp';
use File::Find;
find(sub { /foo/ && print "$File::Find::name\n" }, '/tmp');
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: 30 Mar 1998 20:49:15 GMT
From: ehood@medusa.acs.uci.edu (Earl Hood)
Subject: Re: HELP - Perl 5 on NT Server 4.0 and IIS
Message-Id: <6fp0gb$h7k@news.service.uci.edu>
In article <351CA202.C17DFB16@sk.sympatico.ca>,
Rick Edwards <ricke@qlo.com> wrote:
>Man, give me UNIX anyday. I have PERL installed in c:\perl, I have
>".pl" associated with c:\perl\bin\perl.exe, I made the change in my
>Registry, I have an Application mapping in my Web Site properties, my
>cgi-bin directory has "Script" permissions, and my tongue is in the
>proper position, out the left side of my mouth.
>
>My scripts work *fine* from the command line, but when I try to access
>them with the browser, NADA. They eventually just time out - no
>errors, just timeout.
>
>I'm sure that it's *just* a configuration gotcha, but danged if I can
>find it.
MicroShaft changed things with IIS 4.0 from previous versions.
A person posted a message on how to get Perl programs work with
IIS 4.0. Here's a copy of the post:
From: Steve West <stevew@metafuse.com>
Newsgroups: comp.lang.perl.misc
Subject: How to Configure Perl with IIS 4.0
Date: Wed, 07 Jan 1998 11:41:43 -0800
Lines: 82
For all you who are trying to run IIS 4.0 and perl here is what you have
to do to configure it to run properly on IIS 4.0.
I have outlined a two step process to get it to work...here goes
****** STEP 1. CONFIGURE PERL TO WORK WITH IIS 4.0*****
Microsoft changed from having the script mappings in the registry to the
a
configuration in the service manager. Now script mappings are changed
in the
default website properties.
Go to the default website, right mouse click on the properties for that
site....
then click on "Home Directory" tab
Go to the "Applications Settings" toward the bottom of the window...find
the "Configuration" button...the click on it. A new window called
script
mappings exists..you need to either create a new script mappings or edit
the old
one.
It should look like this
.cgi c:\perl\bin\perl.exe %s %s
.pl c:\perl\bin\perl.exe %s %s
I had those set before in the registry...as you may have too...and MS
IIS 4.0
pulled the values out and capitalized the %S %S...that wont work..it
looked like
this
*** MICROSOFT PUT THIS THERE...IT WILL NOT WORK ***
.pl C:\PERL\BIN\PERL.EXE %S %S
*** YOU MUST CHANGE MAPPING TO LOOK LIKE THIS***
.cgi c:\perl\bin\perl.exe %s %s
.pl c:\perl\bin\perl.exe %s %s
***** STEP 2. CONFIGURE PERL TO WORK WITH STANDARD I/O *****
By default you cannot use standard I/O redirection with perl and IIS
4.0.
You have to configure this into the metabase. Here is how you do it:
You need to run a command line from the:
"\winnt\system32\inetsrv\adminsamples" directory
When you get there type this on the command prompt
adsutil set w3svc/CreateCGIWithNewConsole TRUE
You may get an error becuase the .vbs is not set, just click on yes, and
retype the command if you get that error.
You will have to stop the default website, and restart it from the
internet service manager to make the changes.
NOTE: If for some reason you cannot get the adsutil at the command
prompt, or you get unrecognized command, you may want to search for it
using the start menu, find. Look on your system for "adsutil.vbs". If
you still cannot find it, you perhaps did not install all the
samples...you may go to the Windows NT 4.0 Option pack setup from the
start menu and check to see if you can install the administration
samples. I am not sure if the adsutil.vbs shipped in all cases, but
most of you will have it in your
"winnt\system32\inetsrv\adminsamples" directory.
I hope this note helps you guys and keeps you from having same trouble I
had.
Steve West
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: Mon, 30 Mar 1998 15:21:03 -0800
From: Larry Rosler <lr@hpl.hp.com>
Subject: Increment [++] ne Assignment-add [+=]
Message-Id: <352028DF.E86D1B55@hpl.hp.com>
With the -w flag set, the ++ operation on an undefined variable is
accepted quietly, but the += operation draws a diagnostic. So in
order to add 1 to a hash element (after creating it if it doesn't
exist), I can simply write:
++$hash{foo};
But to add an arbitrary value (say 2, or $n), I must write explicitly:
$hash{bar} = ($hash{bar} || 0) + 2;
Obviously, for readability and for interpreter efficiency in a tight
loop, I would rather write:
$hash{bar} += 2;
I would appreciate it if someone who is familiar with the design of the
language can clarify this behavior. I cannot find any discussion of
this distinction in the Blue Camel.
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: 30 Mar 1998 21:20:15 GMT
From: ehood@medusa.acs.uci.edu (Earl Hood)
Subject: Re: index of string
Message-Id: <6fp2af$ig6@news.service.uci.edu>
In article <6fosgs$40j$1@dalen.get2net.dk>,
N. Nielsen <fez@post6.tele.dk> wrote:
>I'm new to perl and i'm looking for a function to return the position of a
>searchstring in another string...
>I know that in javascript the syntax is:
>string.indexOf(searchstring)
>but i don't know how to translate it into perl...
See the "index" function in the Perl documentation.
--ewh
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: 30 Mar 1998 15:54:02 -0800
From: Matt Ranney <mjr@ranney.com>
Subject: Re: large numbers cause large frustration
Message-Id: <m2u38f20rp.fsf@wacky.ranney.com>
Eric Bohlman <ebohlman@netcom.com> writes:
[...]
> That number is too big to represent as a 32-bit integer. perl is actually
> storing it as a float (which is why the "unquoted" and "string" versions
> correctly reflect the arithmetic). When you try to coerce it to an
> integer, it overflows.
OK, if perl doesn't do internal doubles, that makes sense.
Why should printf destroy my float when I try to print it as an int?
--
Matt Ranney - mjr@ranney.com
Let's not let the students run the High School.
------------------------------
Date: Mon, 30 Mar 1998 19:20:11 -0500
From: schinder@leprss.gsfc.nasa.gov (Paul J. Schinder)
Subject: Re: Macperl
Message-Id: <schinder-3003981920120001@schinder.clark.net>
In article <6fo7vi$bek$1@nnrp1.dejanews.com>, tchurch@gmu.edu wrote:
[snip]
} Now all I have to do is figure out why the DoAppleScript does not function on
} a different machine with a standalone Application. Could it be related to
} Applscript extensions (as related to Perl, AppleScript is on that
machine) not
} being on the machine. I have the Inside book on order from Apple, I need to
} find out more about Macs.
Quite possibly. Look on the other machine for the telltale signs of
AppleScript. Look for a Scripting Additions folder in the Extension
folder (or in the System Folder itself in System 8.x), and use FindFile to
see if there's an AppleScriptLib on the disk. If not, then AppleScript
either never existed or has been removed.
I don't remember if you said why you're using AppleScript, but you might
look into using Apple Events directly. Take a look at the draft chapters
of Vicki Brown and Chris Nandor's MacPerl book, which you can find by
starting at <http://www.ptf.com/macperl/>
}
} -----== Posted via Deja News, The Leader in Internet Discussion ==-----
} http://www.dejanews.com/ Now offering spam-free web-based newsreading
--
Paul J. Schinder
NASA Goddard Space Flight Center
Code 693, Greenbelt, MD 20771
schinder@leprss.gsfc.nasa.gov
------------------------------
Date: Mon, 30 Mar 1998 15:16:49 -0800
From: david smith <smitty77@pacbell.net>
Subject: Re: need regexp help
Message-Id: <352027DF.97A9FC65@pacbell.net>
Benjamin,
In response to your first question, if you're looking at @id_info[0], that's the
incorrect syntax. Look at $id_info[0] and you should see your original $value if
no delimeters were found to match your pattern. Remember that in order to look at
an element of an array in scalar context, you have to use '$' in place of '@'.
I don't have time to answer your regexp question, and even if I did, I don't
understand exactly what you're asking for, but I did want to point you to another
O'Reilly book called 'Mastering Regular Expressions' by Jeffrey Freidl. It really
made regular expressions make sense to me, and I was just as confused as you were
at one time. If you can'f find this book anywhere local, you can order it through
an outstanding computer related bookstore called 'Computer Literacy'
(www.clbooks.com).
Good luck...
Dave
benjamin j snyder wrote:
> I am having trouble with a few things, mainly regexps.
>
> I have the following line:
> @id_info = split (/./,$value);
>
> I *KNOW* $value has something in it, but @id_info has *NOTHING*. Shouldn't
> @id_info[0] have *SOMETHING*, even if there were no '.' in the string? I have
> tried using '.' instead of /./ in the split statement too...no change. lease
> help.
>
> Now for the regexp. The value of $value *SHOULD* be of the format aaa.nnnn I
> need to make sure there is only one '.' and 4 n's (number of a's doesn't
> matter). I thought about using the size of @id_info to determine if the number
> of '.'s is more than 1, but since I can't seem to get any value for @id_info
> that got sh*t-canned right away. I also need to make sure that all of the
> characters (other than the one allowable '.') are alphanumeric.
>
> I am a fledgling with regexps, and REALLY want to learn them, but can't seem to
> pick it up out of a book (I have Learning PERL and Programming PERL by
> O'Reilly). Could someone please let me know of a regexp I could use to do
> this? Also, how about a WWW page that explains regexps fairly well? Either
> post or mail (prefer mail, but post is fine too) please.
>
> Thanks in advance for any help.
> --
> Ben Snyder
> Student Programmer
> Ohio Supercomputer Center
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dave Smith Hewlett-Packard Corp.
(650) 691-3394 100 Mayfield Ave.
MS 37MA
dhsmith@hprcl190.mayfield.hp.com Mountain View, CA 94043
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Tue, 31 Mar 1998 01:34:51 GMT
From: beans@bedford.net (TomH)
Subject: Re: Need sorting routine in Perl
Message-Id: <352046fa.15838919@news.bedford.net>
Am I reading it wrong, or is this a really silly implementation of
Bubble Sort? Dig out a copy if Knuth's classic book "Sorting And
Searching" and you'll see why fast_sort should be called
really_slow_sort.
...
>gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
>> smcdow@arlut.utexas.edu (Stuart McDow) writes:
...
>sub fast_sort {
> my(@list)=@_;
> my($left,$right);
> while(!is_sorted(@list)) {
> # print "list: ",join(" ",@list),"\n";
> $left=rand($#list+1);
> $right=rand($#list+1);
> if($right>$left){ #XXX
> if($list[$left]>$list[$right]) { #XXX
> ($list[$right],$list[$left])=($list[$left],$list[$right]);
> }
> }
> }
> return @list;
>}
...
------------------------------
Date: Mon, 30 Mar 1998 15:51:38 -0800
From: Mike Hitchcock <mike@unival.com>
Subject: Re: Question about Perl script and form submit buttons !!!!
Message-Id: <3520300A.93A57920@unival.com>
Mick Knutson wrote:
> If a user clicks a submit button once, a process is started for that
> script.
> If they click again before the script returns, is that going to be
> another process or the same one.
>
> And does the first click get fully processed before the second?
This belongs in a cgi NG...
I have the same problem, and it raises difficulties. The browsers
I've investigated seem to be waiting for response on the second query
(i.e., the second click of the double-click).
At the server, a request comes in, the cgi starts, and is interrupted by
the second click (or worse, the request goes to a different httpd...).
At first I thought of using a "registry" and timestamping requests.
Using
IPC, each cgi could check the registry, and decide to process the
request
or not. However, the requests can come in asynchronously (request #2
comes in first, request #1 comes in second) and it is request #2 that
the
user's browser is waiting for. So far I have failed to solve this.
Anyone else have any luck/suggestions?
--
Mike Hitchcock
mike@unival.com
hitchcock@earthling.net
------------------------------
Date: Mon, 30 Mar 1998 22:47:43 +0200
From: Andre Vieth <Andre.Vieth@schwerin.netsurf.de>
Subject: small letters into capital letter
Message-Id: <352004EF.62542CF7@schwerin.netsurf.de>
perl problem:
I4d like to transform small letters (saved in a variable) into capital
letters.
Do I have to replace each and every single letter (26) by the following
command: $Text =~ s/a/A/;/g; or is there an easier command to solve
this problem.
(I4m not a professional programmer, I just try to write a small script
for my webpage..)
Thanking in advance
Andre Vieth
------------------------------
Date: Mon, 30 Mar 1998 22:51:08 +0200
From: Andre Vieth <Andre.Vieth@schwerin.netsurf.de>
Subject: small letters into capital letter
Message-Id: <352005BC.B39FCA99@schwerin.netsurf.de>
perl problem:
I4d like to transform small letters (saved in a variable) into capital
letters.
Do I have to replace each and every single letter (26) by the following
command: $Text =~ s/a/A/;/g; or is there an easier command to solve
this problem.
(I4m not a professional programmer, I just try to write a small script
for my webpage..)
Thanking in advance
Andre Vieth
------------------------------
Date: 31 Mar 1998 00:46:41 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: small letters into capital letter
Message-Id: <6fpedi$hoc$1@marina.cinenet.net>
Andre Vieth (Andre.Vieth@schwerin.netsurf.de) wrote:
: I4d like to transform small letters (saved in a variable) into capital
: letters.
perldoc -f uc
(That is, see the function 'uc' in the docs.)
: Do I have to replace each and every single letter (26) by the following
: command: $Text =~ s/a/A/;/g; or is there an easier command to solve
: this problem.
First off, your syntax is messed up there, the expression would be
$Text =~ s/a/A/g;
If you wanted to handle general capitalization using uc (for whatever
strange reason), the best alternative would look like this:
$Text =~ tr/a-z/A-Z/;
: (I4m not a professional programmer, I just try to write a small script
: for my webpage..)
A quick look through the online perlfunc doc, the FAQ, the Llama book, or
the Camel book would have found uc in minutes. Part of becoming a
programmer, professional or otherwise, is learning to use the available
doc. Perl is distinguished by having some of the best-written and most
useable doc of any programming language. Take advantage of it!
---------------------------------------------------------------------
| 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: 31 Mar 1998 00:49:16 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: small letters into capital letter
Message-Id: <6fpeic$hoc$2@marina.cinenet.net>
Craig Berry (cberry@cinenet.net) wrote:
: If you wanted to handle general capitalization using uc (for whatever
^without
Sorry, that's what I get for posting too quickly...
---------------------------------------------------------------------
| 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: Mon, 30 Mar 1998 16:17:18 -0800
From: Amit Chakradeo <amit@nospam.qualcomm.com>
Subject: Something to POST some data ...
Message-Id: <3520360E.28EFEBFD@nospam.qualcomm.com>
Hi,
Has anyone written a perl module, which will help me POST some data
to a form and get back results ?
Thanks in advance
AMit
------------------------------
Date: Mon, 30 Mar 1998 17:25:15 -0600
From: otis@POPULUS.net
Subject: status of Threads in PERL?
Message-Id: <6fp9fo$a7s$1@nnrp1.dejanews.com>
Hello,
I am just wondering what is the status of Threads in PERL?
current public version of PERL does not support threads yet, but are there any
estimates on when it will support threads?
I saw in one of the perl porters group that there is some support for threads
already, but I assume that's for developers only.
Thanks!
Otis
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 30 Mar 1998 20:26:21 GMT
From: ehood@medusa.acs.uci.edu (Earl Hood)
Subject: Re: upgrade breakage?
Message-Id: <6fov5d$g78@news.service.uci.edu>
In article <Pine.GSO.3.96.980328085603.22321M-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@teleport.com> wrote:
>On Fri, 27 Mar 1998, Jay Allen wrote:
>
>> We are getting ready to upgrade our machines
>
>> Would anyone happen to know if upgrading the OS will break my
>> installations of PERL,
>
>Any scripts that are running under 5.004 on one OS _should_ still work
>under 5.004 under the new OS. (OTOH, if you're still running 5.001m, you
>may not even be able to compile that on the new OS - if you can find the
>source! :-)
I think the question has to do with perl (notice the small "p") itself
breaking, and not Perl programs.
I'd be surprised if perl breaks moving from Solaris 2.5.1 to 2.6.
You'll just have to try it and see what happens. Since the source
is available, you can always recompile under 2.6.
--ewh
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: Mon, 30 Mar 1998 23:16:01 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: verifying email address -- how?
Message-Id: <1d6ptsm.1216p6lc33ozkN@roxboro0-043.dyn.interpath.net>
I R A Aggie <fl_aggie@thepentagon.com> wrote:
> But let us drop down to the bottom line, here: what is the cost/benefit
> ratio to checking an email address? IMHO, not terribly high. In fact,
> its so low as to become a worthless endeavor.
That depends upon what your doing and what tools your doing it with -
once you've got your sytax checker it's easy enough to call, and won't
take a excessive amount of time to return it's results.
> About the only people who would truely benefit from such a thing are
> spammers. Except they don't care if their throwaway acount generates
> 100,000 bounces and turns some poor ISP's server into a smoking crater.
>
> A valid use would be setting up a mailing list. But I suspect the running
> and maintenance of such a thing is better served by setting up a proper
> list server -- like majordomo.
Anonther valid use is mail and news programs - some of the incorrect
addresses can be lethal to programs which hasn't anticipated them, and
sending mail (evil) or news (bad) with munged addresses isn't good to
start with, causing the other persons machine to crash and burn to boot
is downright uncivilized.
(bad@bad.edu
--
John Moreno
I am trying to convince the author of YA-NewsWatcher that the latest
version should be released to the public. He doesn't think there's much
interest in a new version. Help me prove him wrong. To do so, send me
mail <mailto:phenix@interpath.com> with a Subject of New YA. Comments
on what you like/dislike in the current version will be appreciated.
------------------------------
Date: Tue, 31 Mar 1998 03:12:57 +0200
From: joergen.lang@schwaben.de (Joergen W. Lang)
Subject: Re: What is a JAPH
Message-Id: <1d6qjbe.1ub1cv8sixbz0N@host049-206.seicom.net>
Birgitt Funk <birgitt@order.booktraders.com> wrote:
> Randal Schwartz wrote:
> >
> > >>>>> "Steven" == Steven John Cook <csscook@mailbox.uq.edu.au> writes:
> >
> > Steven> I am trying to move from a User to Expert in the 'Seven Levels
> > Steven> of Perl Mastery' and one of the only things left for me to do
> > Steven> is write a JAPH. The only problem is I don't even know what
> > Steven> JAPH stands for, so I can't write one. Can a current Perl
> > Steven> expert or higher enlighten me.
> >
> > Those who know, don't tell.
> >
> > Those who tell, don't know.
> >
> > :-)
> >
>
> How about the FAQs ? The first time I hear that they don't know what
> they
> are telling... 8-).
>
> Birgitt Funk
this all sounds to me like "Perl and the Art of Zenning" ;-))
Joergen
--
-------------------------------------------------------------------
"Everything is possible - even sometimes the impossible"
HOELDERLIN EXPRESS - "Touch the void"
-------------------------------------------------------------------
------------------------------
Date: Mon, 30 Mar 1998 23:01:26 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Win32:: available or not?
Message-Id: <EqnMME.E3r@world.std.com>
klillevo@technologist.com (Karl O. Lillevold) writes:
>I am writing a script that is to run on both UNIX and Win32 systems, and
>on the Win32 systems I want to use the Win32 module for certain functions
>(detect whether it's a Win95 or WinNT system).
Have you seen the predefined $^O variable or the entry $Config{osname}
in the Config module? After you know whether you are in Unix or
Windows, then use the Win32::IsWin95() function mentioned to find out
which Win32 system.
--
Andrew Langmead
------------------------------
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 2212
**************************************
