[8583] in Perl-Users-Digest
Perl-Users Digest, Issue: 2200 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 28 13:23:05 1998
Date: Sat, 28 Mar 98 10:00:27 -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 Sat, 28 Mar 1998 Volume: 8 Number: 2200
Today's topics:
Re: Can you get directory info?? felicity+spam@kluge.net
CGI - Multiple values in an associative array <dieter@minn.net>
Re: CGI - Multiple values in an associative array <rjk@coos.dartmouth.edu>
Re: Ending test of perl script <rootbeer@teleport.com>
Re: gethostbyaddr (Jason Gloudon)
Re: Help anybody???password protected self-extracting f <rootbeer@teleport.com>
Re: HTML::Parse Won't pull data out of tables <jerryp.usenet@connected.demon.co.uk>
Re: Null Strings vs. 0 Integer Values (Mike Stok)
Re: Null Strings vs. 0 Integer Values (James Watson)
Re: Null Strings vs. 0 Integer Values (James Watson)
Re: Null Strings vs. 0 Integer Values <rjk@coos.dartmouth.edu>
Re: Odd-Numbered Array to Hash <jefpin@bergen.org>
Re: Odd-Numbered Array to Hash <rjk@coos.dartmouth.edu>
Re: Redirect URL <rootbeer@teleport.com>
Re: SAVING form result instead of display???? <webmaster@fccjmail.fccj.cc.fl.us>
Serial IO <tml@ece2.engr.ucf.edu>
Re: Still looking for a way to uninstall??? <rootbeer@teleport.com>
Re: Suppressing "used only once" <rootbeer@teleport.com>
Re: trivial example reveals a taint problem? <rootbeer@teleport.com>
Re: upgrade breakage? <rootbeer@teleport.com>
Re: use Time::Local; timelocal(, , , , , 1969) #year < <rootbeer@teleport.com>
Re: Wanted: email address gleaner (John Moreno)
Re: What does "UNIX" stand for.. <gberigan@cse.unl.edu>
Re: What does -f do? <webmaster@fccjmail.fccj.cc.fl.us>
Re: What does -f do? <rjk@coos.dartmouth.edu>
Re: What does this one liner do? <rjk@coos.dartmouth.edu>
Re: what is wrong with being a novice ?? (John Moreno)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Mar 1998 16:08:39 GMT
From: felicity+spam@kluge.net
Subject: Re: Can you get directory info??
Message-Id: <6fj7a7$76u$2@bigboote.WPI.EDU>
Mark Polakow <mark@imp.net> once typed out:
> I haven't found any perl statements that would list information about a
> directory? I am writing a file management scrip and would like to return
Look into opendir(), readdir(), and closedir().
--
To reply via mail, remove the obvious from the email address.
------------------------------
Date: Sat, 28 Mar 1998 10:25:35 -0600
From: Pete & Kitty <dieter@minn.net>
Subject: CGI - Multiple values in an associative array
Message-Id: <351D247E.68605EA8@minn.net>
I am trying to build an event calendar for the city of Saint Paul, and
I want the user to be able to choose between three drop-down menus -
DATE | VENUE | STYLE, and then pick a value from one of those menus.
upon 'POST', a detailed list of events within that selection are
presented - well, at least that's the plan.
First off, here's what I was thinking for a data file to read from:
DATE:VENUE:STYLE=EVENT - blah,blah, blah, goodtime guarrenteed for all,
etc, etc, etc
%%
DATE:VENUE:STYLE=ANOTHER_EVENT- more blah,blah,blah . . .
%%
(The '%%' should be a well-recognized delimiter)
One idea was to split it into a hash table (ie: %item) - but would you
be able to use wildcards as in :
$display_it=$item( "*:Ordway:*" );
- or would that fail since there would be multiple matches (which is
exactly what I'm looking for)?
If I were to make an array, splitting the data file at each '%%'
delimiter, is it possible in perl to have 'an array within an array' -
splitting each element between the ' : ' (and changing '
...STYLE=EVENT... ' to '...STYLE:EVENT...' ).
Yet another possibility is to make 3 hash tables for each of the options
- but what kind of strain does that put on the server?
I know that somewhere across the internet, someone has built something
similar. Any pointers or suggestions you may have, I'd love to hear
them.
Thank you!
------------------------------
Date: Sat, 28 Mar 1998 12:46:54 -0500
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
To: Pete & Kitty <dieter@minn.net>
Subject: Re: CGI - Multiple values in an associative array
Message-Id: <351D3790.CD41737C@coos.dartmouth.edu>
Pete & Kitty wrote:
>
> is it possible in perl to have 'an array within an array'
Yes. Read the documentation for perlref, perldsc, and perllol.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 28 Mar 1998 08:40:28 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: "Frank J. Cauley" <cauleyfj@ix.netcom.com>
Subject: Re: Ending test of perl script
Message-Id: <Pine.GSO.3.96.980328083832.22321I-100000@user2.teleport.com>
On Thu, 26 Mar 1998, Frank J. Cauley wrote:
> When testing a perl script using the DOS prompt, how does one pass
> parameters to the program ?
This question should be answered in the release notes for your Perl
distribution.
> How does one get the perl script to continue when it goes offline?
I'm not sure what you mean by going offline, but this is probably in the
release notes as well. If not, you may need to contact the author of that
distribution. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 28 Mar 1998 16:22:32 GMT
From: jgloudon@manitoba.bbn.com (Jason Gloudon)
Subject: Re: gethostbyaddr
Message-Id: <slrn6hq8rl.7nh.jgloudon@manitoba.bbn.com>
Mark Miller <mdmiller@onramp.net> wrote:
.
.
>a entry in the hosts file. I want to be able to use ip/domain name but
>I can't figgure out exactly what I need to be doing. I've tried using
>gethostbyaddr but I don't know what to put in for the addrtype. Any help
>From man perlipc,
use Socket;
my $name = gethostbyaddr($iaddr,AF_INET);
--
Jason Gloudon
------------------------------
Date: Sat, 28 Mar 1998 08:54:36 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Lalit Jairath <ljairath@wright.aps.uoguelph.ca>
Subject: Re: Help anybody???password protected self-extracting files in UNIX?
Message-Id: <Pine.GSO.3.96.980328085334.22321L-100000@user2.teleport.com>
On 27 Mar 1998, Lalit Jairath wrote:
> i want to create password protected self-extracting files in UNIX(HP)-
> that could be later picked up from anonymous ftp site! how can i do
> that?
If it can be done at all, it doesn't have anything to do with Perl. You
may wish to ask this in a newsgroup about general Unix issues. Hope this
helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 28 Mar 1998 16:02:12 +0000
From: Jerry Pank <jerryp.usenet@connected.demon.co.uk>
Subject: Re: HTML::Parse Won't pull data out of tables
Message-Id: <OIv0FDAE8RH1EwEZ@connected.demon.co.uk>
In <comp.lang.perl.misc>
Keith G. Murphy <keithmur@mindspring.com>, writes:
>Are you sure? Care to post some code? Seems to be working for me. Are
>you using TreeBuilder and traversing the whole document?
>
>>
>> I'm Using HTML::Parse to strip tags out so I can build plain text
>> versions of web pages to ``feed'' search engines but it ignores text
>> within tables.
<snip>
#!/usr/bin/perl -w
use HTML::Parse;
undef $/;
$data=(<DATA>);
$h = parse_html($data);
print $h->format;
$h->delete;
# produces:
# Hello World
# ===========
#
# [TABLE NOT SHOWN]
#
# Fine Thanks!
#
__DATA__
<HTML>
<HEAD>
<TITLE>Hello World</TITLE>
</HEAD>
<BODY>
<H1>Hello World</H1>
<TABLE BORDER="BORDER">
<TR><TD>how</TD><TD>are</TD></TR><TR><TD>you</TD><TD>today?</TD></TR>
</TABLE>
<P>Fine Thanks!</P>
</BODY>
</HTML>
I guess I'm using the wrong routine from HTML. I am having problems
getting to grips with the OO side of things. Slowly but Slowly :-(
--
Jerry Pank mailto:jerryp.usenet@connected.demon.co.uk
I don't think people who can't even program matrix multiply should
be attempting multiply inherited operator-overloaded peristent distributed
object modules.
-- Tom Christiansen <comp.lang.perl.misc>
------------------------------
Date: 28 Mar 1998 15:58:09 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Null Strings vs. 0 Integer Values
Message-Id: <6fj6mh$8p7@news-central.tiac.net>
In article <351c7276.100386937@news.erols.com>,
James Watson <james_vs_watson@yahoo.com> wrote:
>Is there a way to examine a variable to figure out if it is a null
>string?
>I have some string variables and also some number variables and I want
>to make sure that the string variables have some sort of value other
>than null. But I do not want my program to think that a value is the
>null string when it is actually the number zero.
defined can tell you if a scalar has any defined value
length can tell you the length in characters of a string in a
scalar
eq can compare one scalar to another as strings (e.g. $x eq '')
== can compare one scalar to another as numbers
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Sat, 28 Mar 1998 12:25:54 GMT
From: james_vs_watson@yahoo.com (James Watson)
Subject: Re: Null Strings vs. 0 Integer Values
Message-Id: <351dec31.4624121@news.erols.com>
On Sat, 28 Mar 1998 15:47:00 GMT, Webmaster
<webmaster@fccjmail.fccj.cc.fl.us> wrote:
>James Watson wrote:
>
>> Is there a way to examine a variable to figure out if it is a null
>> string?
>> Thank you in advance.
>
> I believe you want to do
>$value == 0 or
>$vlue eq '0' versus
>if ($value eq null) ???
>
>Curious,
>Sneex :-)
Thanks. I always think of using "==" and not "eq". Thanks for the
quick reply.
------------------------------
Date: Sat, 28 Mar 1998 12:25:17 GMT
From: james_vs_watson@yahoo.com (James Watson)
Subject: Re: Null Strings vs. 0 Integer Values
Message-Id: <351cec17.4597289@news.erols.com>
On 28 Mar 1998 15:58:09 GMT, mike@stok.co.uk (Mike Stok) wrote:
>In article <351c7276.100386937@news.erols.com>,
>James Watson <james_vs_watson@yahoo.com> wrote:
>>Is there a way to examine a variable to figure out if it is a null
>>string?
>>I have some string variables and also some number variables and I want
>>to make sure that the string variables have some sort of value other
>>than null. But I do not want my program to think that a value is the
>>null string when it is actually the number zero.
>
> defined can tell you if a scalar has any defined value
> length can tell you the length in characters of a string in a
> scalar
> eq can compare one scalar to another as strings (e.g. $x eq '')
> == can compare one scalar to another as numbers
>
>Hope this helps,
>
>Mike
Thanks. I forgot about using eq. Oops!
------------------------------
Date: Sat, 28 Mar 1998 12:39:46 -0500
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: Null Strings vs. 0 Integer Values
Message-Id: <351D35E3.7482748C@coos.dartmouth.edu>
Webmaster wrote:
>
> James Watson wrote:
>
> > Is there a way to examine a variable to figure out if it is a null
> > string?
> > Thank you in advance.
>
> I believe you want to do
> $value == 0 or
> $vlue eq '0' versus
> if ($value eq null) ???
^^^^
What is that? The null string in Perl is written as '' (or similarly with
another quoting mechanism).
print "Null string" if $value eq '';
print "Not null string" if $value ne '';
Note that this will also print "Null string" for an undefined value.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 27 Mar 1998 08:04:28 -0500
From: "I have a life, and I can prove it!" <jefpin@bergen.org>
Subject: Re: Odd-Numbered Array to Hash
Message-Id: <Pine.SGI.3.95.980327080333.13373A-100000@vangogh.bergen.org>
>if ($phone eq "") {$phone = "Not Available";}
$phone ||= "Not Available" would probably (usually) work too.
--
I haven't done too much dangerous stuff to the system lately!
- Lars Holzman
Jeff Pinyan | http://users.bergen.org/~jefpin | jefpin@bergen.org
techmaster@bergen.org | techmaster@mindless.com
qw[jeff] on #perl,#javascript,#cgi on IRC
&jp('"($``','','$)EDF8```','$*52J4```','$+E1G4```','#J``@','#2__`');sub
jp{for$w(@_){$c=unpack('B48',unpack('u',$w));$c=~tr/10/# /;print "$c\n"}}
------------------------------
Date: Sat, 28 Mar 1998 12:30:23 -0500
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: Odd-Numbered Array to Hash
Message-Id: <351D33B0.92FD3DC9@coos.dartmouth.edu>
Bart Lateur wrote:
>
> But anyway, that was not the question. Here's a quote from the original
> poster:
>
> > (The reason for this is that the user left the phone number blank and it
> > got written out to a data file as "name\tArt\tphone\t". When I later
> > split on tab characters I got the above array).
>
> In this specific case, it would work perfectly. I can also imagine other
> approaches, by making "split" work more appropriately:
>
> ($\,$,) = ("\n","/");
> $_ = "name\tArt\tphone\t";
> @data = split(/\t/,$_,-1);
> %data = @data;
> print %data;
>
> It prints
>
> name/Art/phone/
>
> Apparently, this works too.
Thank you, that's my point. Your original suggestion, pushing a null string
onto @data if it has an odd number of elements, is a very poor solution. It
treats the symptoms instead of the disease, as it were. Making sure that
@data is populated correctly to begin with, as you did in the above code, is
an infinitely better idea.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 28 Mar 1998 08:47:40 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Richard <yellow*@cix.co.uk>
Subject: Re: Redirect URL
Message-Id: <Pine.GSO.3.96.980328084605.22321J-100000@user2.teleport.com>
On Fri, 27 Mar 1998, Richard wrote:
> Exiting the perl script I wish to display a 'thank you' but from
> an html page on another server. Any suggestions on how I could do this
> please?
Yes; you have your Perl script output the same thing as an Excel macro
would output to redirect the remote browser. If you're not sure what that
is, you should check the docs, faqs, and newsgroups about HTTP and CGI
scripting, since it's not a Perl-specific question. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 28 Mar 1998 16:01:25 GMT
From: Webmaster <webmaster@fccjmail.fccj.cc.fl.us>
Subject: Re: SAVING form result instead of display????
Message-Id: <351D1D6F.BE388CDE@fccjmail.fccj.cc.fl.us>
jfk@servteh.com wrote:
> How would I get the results of a form to save instead of displaying as
> HTML?? i.e. How would I direct the results of a search engine to a file
> instead of displaying in a browser????
>
> - JFK
May I suggest www.perl.com and looking at webmirror???
Hth,
Sneex ;-)
------------------------------
Date: Wed, 25 Mar 1998 12:28:22 -0500
From: Terry Laurenzo <tml@ece2.engr.ucf.edu>
Subject: Serial IO
Message-Id: <35193EB6.44491241@ece2.engr.ucf.edu>
I have just started using Perl and for my first real project I decided
to write a repeat dialing script to establish a PPP connection for my
Linux machine. This was needed because the university I attend has two
dial in numbers for their terminal servers and they are busy a lot.
Anyway, I ran into some serious problems with the serial IO. The most
bizarre problem was from the code snippet below(which, to make matters
worse worked once, but quit when I rebooted):
open(MODOUT, ">/dev/cua0");
open(MODIN, "/dev/cua0");
dial.pl
print MODOUT "ATDT513-4200\n";
while (10 <= 10) { }
Obviously, this is not part of my program, and the while loop is just
infinite, however this is the basic structure of one section of the
script, which just repeatedly sends the "ATDT..." string over and over
again to the modem causing it to go Off-hook quickly and then just reort
to a barage of OK's. Am I missing something with this deceptively
simple looking code, because for no apparent reason to me, it(most of
the time) sends that string forever. I get the feeling that I'm using
the wrong tool for the job. Is there any package out there for serial
IO. That would make life easier because I wouldn't have to work around
the line buffering that UNIX does on input. I am including a copy of my
script. If anyone sees a problem with it, could you please let me know.
Thanks. Keep in mind that this script did work for about a dozen times
and then just mysteriously stopped.
Terry Laurenzo
tml@ece2.engr.ucf.edu
#####################################################################################
#!/usr/bin/perl
use Fcntl;
# autodial.pl - Intended to replace the CHAT scripts used to create a
# PPP connection.
open(MODOUT, ">/dev/cua0");
open(MODIN, "/dev/cua0");
# Dialing data
$init = "ATZ";
@dial_list = ("513-4200", "275-4200");
$user_name = "";
$password = "";
$verbose = 0;
$dial_to = 45;
@dial_codes = ("CONNECT", "NO DIALTONE", "BUSY", "NO CARRIER", "ERROR",
"OK");
sub just_wait {
my $end_time = shift(@_) + time;
while ($end_time >= time) { }
}
# Subroutine waitfor:
# Expects: A timeout and a list of stuff to wait for.
# If timeout is 0. It will wait forever.
# Returns: The string found or an empty string if timed out.
# if necessary.
sub waitfor {
my $line_in = '';
my $onechar = '';
my $start = time;
my $timeout = shift(@_);
my $end = $start + $timeout;
my $tomatch;
my $current = time;
while ( not $timeout or ( $current < $end ) )
{
if (not eof MODIN) {
$line_in = <MODIN>;
print "Modem response: $line_in" if (not ($line_in eq "\n")
and $verbose);
}
foreach $tomatch (@_) {
if ( $line_in =~ m/.*($tomatch).*/ ) {
return $1;
}
}
$current = time;
}
return "";
}
sub login_to_server {
print "Waiting for login prompt...\n" if $verbose;
( (waitfor 25, "Verification") eq "Verification" ) or return 0;
print MODOUT "$user_name\n";
print "Waiting for password prompt...\n" if $verbose;
( (waitfor 15, "Username") eq "Username" ) or return 0;
print MODOUT "$password\n\n";
print "Waiting for command prompt...\n" if $verbose;
( (waitfor 15, '>') eq '>' ) or return 0;
print MODOUT "ppp\n";
print "Login successful!\n" if $verbose;
return 1;
}
#Continues dialing the number list until a CONNECT is received
#Will die if a "NO DIALTONE" is recieved
sub repeat_dial {
my $number;
my $result;
while (1) {
foreach $number (@dial_list) {
# Initialize the modem.
print MODOUT "\n$init\n";
((waitfor 10, "OK", "ERROR") eq "OK") or die "Unable to
initialize modem!\n";
print "Modem initialized.\n" if $verbose;
# Dial the number
print MODOUT "\nATDT$number\n";
$result = waitfor $dial_to, "CONNECT", "NO CARRIER", "BUSY",
"NO DIALTONE", "ERROR";
# We only have to deal with a couple of problematic results:
if ($result eq "CONNECT") {
# We need to try the login. If it doesn't work, then
keep going
print "\nConnected to $number.\n" if $verbose;
return 1 if login_to_server;
# Here, we need to send +++ and hang up the modem
print MODOUT "+++";
waitfor 5, "OK";
print MODOUT "ATH\r";
( (waitfor 5, "OK") eq "OK" ) or die "Cannot hang up
modem!\n";
}
elsif ($result eq "ERROR" or $result eq "NO DIALTONE") {
die "There was no dialtone or the modem didn't respond
as expected.\n";
}
# For all other cases(BUSY,NO CARRIER) just let it go
}
}
}
# This sets input to unbuffered. Allows measuring of a timeout value
fcntl MODIN, &F_SETFL, &O_NONBLOCK;
#fcntl MODOUT, &F_SETFL, &O_NONBLOCK;
repeat_dial;
close MODIN;
close MODOUT;
if ($ARGV[0]) {
exec @ARGV;
}
------------------------------
Date: Sat, 28 Mar 1998 08:31:40 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Doug Evans <doug@ccinet.com>
Subject: Re: Still looking for a way to uninstall???
Message-Id: <Pine.GSO.3.96.980328083020.22321G-100000@user2.teleport.com>
On Thu, 26 Mar 1998, Doug Evans wrote:
> I have the Standard version installed, and would like to change to,
> activestate, but am ignorant of how to uninstall the standard version.
I've never wanted to uninstall Perl (!) but you should be able to simply
install the new version. If, afterwards, there are some leftover files
from the old one which you no longer want, those should be easy to remove.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 28 Mar 1998 09:08:55 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Hal Snyder <hal@vailsys.com>
Subject: Re: Suppressing "used only once"
Message-Id: <Pine.GSO.3.96.980328090704.22321N-100000@user2.teleport.com>
On 27 Mar 1998, Hal Snyder wrote:
> Subject: Suppressing "used only once"
> The [ugly] workaround we're using now is to insert after the require,
>
> (($oldFoo, ... other unused variables in oldstuff ...)) if (0);
>
> Is there a better way to do this?
Yes:
use vars qw/ $oldFoo $and @other $one_time %variables /;
You can even make your code work with 'use strict' this way. (Hint! :-)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 28 Mar 1998 08:37:40 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Howard Cohen <hoco@shell5.ba.best.com>
Subject: Re: trivial example reveals a taint problem?
Message-Id: <Pine.GSO.3.96.980328083707.22321H-100000@user2.teleport.com>
On 27 Mar 1998, Howard Cohen wrote:
> This is certainly a powerful attempt at security and my hat is off to
> whoever decided to implement this special protection for $ENV{ENV}.
>
> I think this qualifies for addition in the next revision of perlsec and
> Programming Perl, but that's just my opinion.
Patches welcome! Please submit them with the perlbug program. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 28 Mar 1998 09:01:52 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Jay Allen <jallen10@wvu.edu>
Subject: Re: upgrade breakage?
Message-Id: <Pine.GSO.3.96.980328085603.22321M-100000@user2.teleport.com>
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! :-)
Exceptions:
1. A script does something OS-specific which isn't supported under
the new OS, such as syscall.
2. A script relies upon a bug in your installation or configuration
(misconfiguration? :-) of Perl or your system.
3. Something I haven't thought of. :-)
None of these seems especially likely to me. If you discover any breakage
that wasn't anticipated, though, please let me know. Here's hoping your
upgrade goes smoothly!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 28 Mar 1998 08:52:30 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: "Alexander Petrosyan (PAF)" <paf@design.ru>
Subject: Re: use Time::Local; timelocal(, , , , , 1969) #year < EPOCH (1970) HANGS UP
Message-Id: <Pine.GSO.3.96.980328085158.22321K-100000@user2.teleport.com>
On Fri, 27 Mar 1998, Alexander Petrosyan (PAF) wrote:
> I inserted proper check but think someone might want to know about this
> + fix that up in later releases...
Patches are always welcome; please submit them via the perlbug program,
included with Perl. Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 28 Mar 1998 15:58:44 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: Wanted: email address gleaner
Message-Id: <1d6kuay.67u5yy73fw74N@roxboro0-058.dyn.interpath.net>
Webmaster <webmaster@fccjmail.fccj.cc.fl.us> wrote:
> John Moreno wrote:
>
> > Well, I've already written one that works well enough for what I needed
> > it for - I'll volunteer to provide it for a measly 3k (I need a G3, but
> > not the Ultrasparc).
> >
>
> G3 - Ultrasparc :-)
>
> OK, You get a G3, I get an Ultrasparc :-)
>
> Deal?
Sure, I can live with that.
--
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: 28 Mar 1998 17:32:57 GMT
From: Greg Berigan <gberigan@cse.unl.edu>
Subject: Re: What does "UNIX" stand for..
Message-Id: <6fjc89$1hl$2@unlnews.unl.edu>
In comp.infosystems.www.advocacy, sorry@no.spam.wanted (Jeff Stewart) wrote:
> 4) It's gone into powersave mode and it just takes an unusual amount of
> time for your fan to start up again. My Compaq at work sucks like that.
>
> Screen saver's on after lunch... I move the mouse...
>
> wwwwwwwwwwwhhhhhhhhhhhhhhhIIIIIIIIIRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
> RRRRRRRRRRRRRRRRRRR.
>
> and then I have control of the system.
That's not the fan, that's the hard drive spinning up.
Followups set. Please honor them. You are detracting from the Bill
Schlake vs. The World thread here.
--
,=<#)-=# <http://incolor.inetnebr.com/wotw/> (The War of the Worlds)
,_--//--_,
_-~_-(####)-_~-_ "Did you see that Parkins boy's body in the tunnels?" "Just
(#>_--'~--~`--_<#) the photos. Worst thing I've ever seen; kid had no face."
------------------------------
Date: Sat, 28 Mar 1998 15:59:04 GMT
From: Webmaster <webmaster@fccjmail.fccj.cc.fl.us>
Subject: Re: What does -f do?
Message-Id: <351D1CE1.FBAB9A7E@fccjmail.fccj.cc.fl.us>
Mike wrote:
> What does -f do?
specifies a regex to split as if -a was in effect...
single float in native format...
file is a plain file...
Please expand upon your question... Many possible answers exist...
HTH,
Sneex :-)
------------------------------
Date: Sat, 28 Mar 1998 12:44:37 -0500
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: What does -f do?
Message-Id: <351D3707.AEBCFAEA@coos.dartmouth.edu>
Mike wrote:
>
> What does -f do?
What does reading the documentation do?
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 28 Mar 1998 12:43:14 -0500
From: Ronald J Kimball <rjk@coos.dartmouth.edu>
Subject: Re: What does this one liner do?
Message-Id: <351D36B3.F3E71C2F@coos.dartmouth.edu>
Mike wrote:
>
> What does this do? select(undef,undef,undef,0.1);
Exactly what the documentation for four-argument select() says it does.
Try the perlfunc documentation or the Programming Perl book.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J. Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Sat, 28 Mar 1998 17:07:09 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: what is wrong with being a novice ??
Message-Id: <1d6lnww.42wble1qtooqpN@roxboro0-058.dyn.interpath.net>
Keith G. Murphy <keithmur@mindspring.com> wrote:
> Georg Bauer wrote:
> >
> > DRS <simpsond@tig.com.au> wrote:
> >
> > > What is wrong with it is that the vast majority of people - especially
> > > newbies - are not using UNIX.
> >
> > Ok. What's wrong with perldoc perlfaq?
> >
> > And don't talk about UNIX now. This works with all Perl versions I
> > worked with, except the Mac - there you have to use Shuck. And yes, it
> > works with win32, too. I am very seldom in the happy situation to use
> > Perl on a UNIX box.
> >
> This is the 2nd assertion I've seen on this NG in the last few days that
> all Perl distributions except on Macs have perldoc and/or pod2*
> converters.
The mac does come with pod2* (pod2text, pod2html, pod2latex, pod2man).
It doesn't have perldoc, but Shuck works for viewing and navigating
around the various faqs.
> I have the ActiveState distribution on Win95, and *damned*
> if I can find perldoc, pod2*, or any such thing.
>
> Not that *I'm* unhappy. The HTML man pages and sources are all I really
> need.
I believe that it's part of the distribution agreement that it must have
the FAQ as well as the manual.
--
John Moreno
------------------------------
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 2200
**************************************
