[9405] in Perl-Users-Digest
Perl-Users Digest, Issue: 3000 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 27 04:17:15 1998
Date: Sat, 27 Jun 98 01:01:21 -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 Sat, 27 Jun 1998 Volume: 8 Number: 3000
Today's topics:
Re: [Q] split ///, $variable (Ronald J Kimball)
Re: [Q] split ///, $variable (Craig Berry)
Re: Calling perl from NT <rootbeer@teleport.com>
chroot without super user privilage? <bikejog@bellatlantic.net>
Re: creating unique session id w/ perl <rootbeer@teleport.com>
Re: creating unique session id w/ perl (Abigail)
Re: Ctrl+D not working; stuck in STDIN (Xuming Wang)
Re: Ctrl+D not working; stuck in STDIN <rootbeer@teleport.com>
eval (Data::Dumper->dump($cool, ...'limit?')); <ckilburn@nbnet.nb.ca>
Re: eval (Data::Dumper->dump($cool, ...'limit?')); <rootbeer@teleport.com>
Re: Field Sort without modules? <trent@jps.net>
Re: Flames.... (John Moreno)
Re: FTP and socket.ph (Jeremy D. Zawodny)
Re: growing array size: Is this a bug? <rootbeer@teleport.com>
Re: help! : Arrays in Perl <rootbeer@teleport.com>
Re: How to check variables exists in a string <rootbeer@teleport.com>
Re: How to unpack a 64 bit integer <rootbeer@teleport.com>
Re: HTML form and Perl script send data to another Perl <rootbeer@teleport.com>
Re: NEED HELP !!!!!! <rootbeer@teleport.com>
Re: Newbie frustration <rootbeer@teleport.com>
Re: Perl32 <STDIN> problem <rootbeer@teleport.com>
Re: Replacing "stuff" via Regex... HELP! (David A. Black)
Re: What module to download a gif? (John Moreno)
Re: Y2K Problem <ckilburn@nbnet.nb.ca>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 27 Jun 1998 01:00:22 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: [Q] split ///, $variable
Message-Id: <1db9bww.lgw6xtfj9ow0N@bay2-356.quincy.ziplink.net>
Russ Allbery <rra@stanford.edu> wrote:
> (I'm not sure if you can use the m%/+% syntax in the regex
> that split uses, to avoid leaning toothpick syndrome.)
You can.
DB<1> $_ = "this is a test"
DB<2> x split m%\s%
0 'this'
1 'is'
2 'a'
3 'test'
--
_ / ' _ / - 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: 27 Jun 1998 05:16:58 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: [Q] split ///, $variable
Message-Id: <6n1v8a$qsf$1@marina.cinenet.net>
Russ Allbery (rra@stanford.edu) wrote:
: Ryan Snowden <ryan@steelplan.com.au> writes:
:
: > I have a nice filename fully pathed like:
:
: > /u1/s/blah/path/tothe/wonderful/pathname//filename.zip
:
: > So, in order to strip everything down and get the filename
: > (filename.zip), I figured I'd split it up, save it into an array, and
: > then get value number [9].. i think... anyway, /// won't do it
: > obviously. How do I make the / in the middle of the / / be the split
: > character.
:
: @path = split (/\/+/, $filename);
:
: should do it. (I'm not sure if you can use the m%/+% syntax in the regex
: that split uses, to avoid leaning toothpick syndrome.)
And then use $path[-1] to get the last element, which is the part you're
interested in.
Alternatively, you can chop off just the last part using
($filepart) = $filename =~ m!([^/]*)$!;
Or, avoid reinventing the wheel (and possibly making it square) and use
File::Basename.
---------------------------------------------------------------------
| 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: Sat, 27 Jun 1998 05:53:05 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Calling perl from NT
Message-Id: <Pine.GSO.3.96.980626225226.20167G-100000@user2.teleport.com>
On Fri, 26 Jun 1998 magweb@my-dejanews.com wrote:
> So, is there no way of executing a Perl script form inside a static HTML
> page (without the users help, ie forms) from an Windows NT server with
> IIS running on it?
The docs, FAQs, and newsgroups about your server and related issues should
be of help to you in answering this question. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 02:30:10 -0400
From: Andrew Chang <bikejog@bellatlantic.net>
Subject: chroot without super user privilage?
Message-Id: <35949171.581B@bellatlantic.net>
Hi,
I'm writing a simple shall that provides simple file and other
services such as vi, gcc, dir, mv, cp, and rm. I would like to
assign a subdirectory to be the root for those operations in my shell
(same as what chroot does) so that user programs compiled and
executed within the shell cannot have access to anything outside of
the designated root. Is there anyway to do this in perl 5?
Andy
mailto: bikejog@zdial.com
------------------------------
Date: Sat, 27 Jun 1998 06:38:41 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: creating unique session id w/ perl
Message-Id: <Pine.GSO.3.96.980626233245.20167O-100000@user2.teleport.com>
On Fri, 26 Jun 1998, Kyle Poquette wrote:
> Is there a way to create a session id (using perl, of course) which
> cannot easily be guessed, and which will generate a unique string for
> each invocation of the cgi script (which could possibly be running
> multiple times per second)?
Sure. One way would be to use the MD5 checksum of say, the remote IP
address, the current time, your process ID, and the current value from a
counter file. (Use flock when updating the counter file, of course.) If
the MD5 checksum is too long, turn it to hex and use the last N nybbles.
Of course, that's not _guaranteed_ to be unique. If you want a guarantee,
register the ids in a database - but that's going to take longer.
Also, there's nothing Perl-specific about this method; you could implement
it in C, if you wished.
> How do the larger shopping cart sites like amazon.com
> create their session ids?
Maybe you should ask them, not us! :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 27 Jun 1998 06:56:43 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: creating unique session id w/ perl
Message-Id: <6n253b$qfo$1@client3.news.psi.net>
Kyle Poquette (poquk@ils.unc.edu) wrote on MDCCLX September MCMXCIII in
<URL: news:Pine.SOL.3.96.980626174012.2371A-100000@ruby.ils.unc.edu>:
++ Hello. I have run into a problem for which I am having quite a problem
++ finding the solution.
++
++ I am trying to create a unique session id to be assigned to each user of
++ my web site. Now, I realize that I can create a unique identifier using a
++ combination of the time function and the process ID. However, I plan to
++ later user this session id to reference confidential information about the
++ user of the session in a database, and I don't want the session id to be
++ guessed easily.
++
++ Is there a way to create a session id (using perl, of course) which cannot
++ easily be guessed, and which will generate a unique string for each
++ invocation of the cgi script (which could possibly be running multiple
++ times per second)? How do the larger shopping cart sites like amazon.com
++ create their session ids?
Based on the "shared secret" authentication many network
protocols use:
use MD5;
my $phrase = "Some secret line of text noone but this " .
"program knows about";
my $session_id = MD5 -> hexdigest ($phrase . time . $$);
The algorithm is easily guessed, but as long as you keep the source
away from possible intruders, you will be safe. Of course, it's totally
useless for people having access to the shared key.
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: Sat, 27 Jun 1998 05:09:19 GMT
From: xuming@email.unc.edu (Xuming Wang)
Subject: Re: Ctrl+D not working; stuck in STDIN
Message-Id: <35947a86.59737857@152.2.25.74>
I think it's related with how Win95 shell deals with ctrl-z. if you
want to print something at the line of a ctrl-z, it will be lost:
C:\>perl -e "@a = <STDIN>; print 'aaa';"
<<<<<< ctrl-z here
C:\>perl -e "@a = <STDIN>; print qq(\naaa);"
aaa <<<<<< ctrl-z here
C:\>perl -e "<STDIN>; print qq(aaa\n\nbbb);"
<<<<<< ctrl-z
bbb
C:\>
--
Xuming Wang
------------------------------
Date: Sat, 27 Jun 1998 07:09:36 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Ctrl+D not working; stuck in STDIN
Message-Id: <Pine.GSO.3.96.980626235338.20167S-100000@user2.teleport.com>
On 26 Jun 1998, wings wrote:
> while (<@strings>) {
Ack! That's not doing what you want!
That's expanding @strings as if it were in "@strings" (generally, putting
spaces between the items). Then it's doing a fileglob on the produced
string! If the produced string contains a valid glob pattern, it will be
expanded to whatever filenames match that pattern. Then the while will
iterate over this list of files (and other strings) returned from the
glob.
Try this program to see that in action:
@strings = qw# foo * bar /etc/* baz C:/* blurfl #;
while (<@strings>) { # It's a glob!
# foreach (@strings) { # just iterating over the array
print "Got $_\n";
}
> this is the exercise on Learning Perl, (llama book) PP201.
You've got the old Llama there. If you check again, you'll see that there
aren't any angle brackets around @strings on page 201! Unless yours is
even older than mine... :-) Of course, that loop in the book is a little
different than the example above; if you wish to "fix" my code, use a
foreach loop on @strings, instead, as I've done on the commented-out line.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 03:17:45 -0300
From: Colin Kilburn <ckilburn@nbnet.nb.ca>
Subject: eval (Data::Dumper->dump($cool, ...'limit?'));
Message-Id: <35948E89.1A8DA7CC@nbnet.nb.ca>
What is the size of the largest piece of code that can
be evaled?
eval $10MegabyteStringCode;
$@ ?
Colin
------------------------------
Date: Sat, 27 Jun 1998 07:18:08 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: eval (Data::Dumper->dump($cool, ...'limit?'));
Message-Id: <Pine.GSO.3.96.980627001621.20167U-100000@user2.teleport.com>
On Sat, 27 Jun 1998, Colin Kilburn wrote:
> What is the size of the largest piece of code that can
> be evaled?
You're talking about eval of a string, right? Like most things in Perl,
there's no hard limit built into eval. If you can fit it into a string and
have enough memory left to process it, you should be able to eval it.
Of course, that's not likely to be the best way to solve whatever problem
you might be having... :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 26 Jun 1998 19:26:01 -0700
From: Trent Hare <trent@jps.net>
Subject: Re: Field Sort without modules?
Message-Id: <35945839.7374@jps.net>
Abigail wrote:
> ++ Looking for field sorting without modules installed...
> ++ (ie)
> ++ an comma separated ascii file , sorted by field[2] (after the split)
> ++ Clues anyone?
>
> Yes. It's called FAQ
>
> Abigail
> --
> perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
Oh, I'm sorry to have disturbed you Abigail. I've been reluctant to post
a message (question) just for this reason. I have been reading FAQ's and
tutorials for 3 days trying to find an answer to this question.
Several very kind people (David Black, and Dean Inada) have sent
examples to me via e-mail, and thank God for "spider"! Very appreciated!
If you would be so kind to tell me *which Perl FAQ you are referring to
I'd appreciate it. I'm only a little stupid.... maybe I'll be able to
find it with a small clue.
Hoping someday to be as smart as you,
Trent
------------------------------
Date: Sat, 27 Jun 1998 05:08:07 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: Flames....
Message-Id: <1db9b7l.1q7cs1v1656x4mN@roxboro0-022.dyn.interpath.net>
<birgitt@my-dejanews.com> wrote:
> phenix@interpath.com (John Moreno) wrote:
> >
> > Leslie Mikesell <les@MCS.COM> wrote:
> >
-snip-
> > > I'm convinced that the reason that new perl users don't read the newsgroup
> > > to learn about the common problems before posting is that it is just too
> > > painful.
> >
> > This seems absurd - what evidence or even hint do you base this on?
> >
>
> It is at times painful, the way it is painful to go pregnant nine
> month to deliver a baby you wanted to have.
>
> Meaning, someone who is serious about learning to program and learning
> Perl, will read the newsgroup and not quit. One knows it is worth while.
> Too bad one can't much do about that initial 'vomiting' period of the
> first three month. :-)
Hmn, I take the "painful" to mean all of the mean spirited response's
saying "That's in the faq idiot, besides you're stupid and give lousy
head" (not that I think they are like that, but he seems to). And I
can't figure out why that would be painful - it right away points out
that there is something called a "faq" and that it has a whole bunch of
answers. So if somebody starts out lurking they will quickly (very
quickly) run into a reference to the faq. I use a offline newsreader
and have 1,812 articles from the past 5 days - the FAQ is mentioned in
267 of those articles (that's not including RTFM responses).
--
John Moreno
------------------------------
Date: 27 Jun 1998 01:22:56 -0400
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: FTP and socket.ph
Message-Id: <m3g1gr4dvz.fsf@peach.z.org>
kts <kiththesilent@geocities.com> writes:
> Hello Im trying to setit up so that i can use Perl to ftp (calling a
> perlscrip from Powerbuilder transfer some files etc) but i keep getting
> an error telling me it cant find the sys\socket.ph file.
>
> Im using Win NT4 svcpk3...any ideas on what my problem is ??
Which version of Perl are you using?
Have you checked the FAQ?
Jeremy
--
Jeremy D. Zawodny Web Geek, Perl Hacker, etc.
http://www.wcnet.org/~jzawodn/ jzawodn@wcnet.org
LOAD "LINUX",8,1
------------------------------
Date: Sat, 27 Jun 1998 06:22:03 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: growing array size: Is this a bug?
Message-Id: <Pine.GSO.3.96.980626232057.20167L-100000@user2.teleport.com>
On 26 Jun 1998, unknown wrote:
> My perl version is
> This is perl, version 5.001
>
> Unofficial patchlevel 1m.
If you think you have found a bug in a version of Perl which is older than
the Spice Girls, you should probably try upgrading to a newer version. :-)
Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 06:12:18 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: help! : Arrays in Perl
Message-Id: <Pine.GSO.3.96.980626231157.20167J-100000@user2.teleport.com>
On Thu, 25 Jun 1998, Philipp wrote:
> > I am pretty new with Perl an can't seem to find a function that will
> >tell me the length of an array. Is there such a thing [there must be]?
>
> And why dont you all just use $#my_array????
Because that's not the length of the array. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 05:57:33 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: How to check variables exists in a string
Message-Id: <Pine.GSO.3.96.980626225428.20167H-100000@user2.teleport.com>
On Fri, 26 Jun 1998, Tony Edwardson wrote:
> Anyone got any ideas how to check that perl variables embeded in a
> string are defined?
That's what the defined() function tests.
> I want to expand the embeded perl veriables with their values in some
> way such that I can check that each variable is defined
if (grep !defined($_), $group, $book, $yy, $mmm) {
warn "Oops, at least one of them isn't defined.\n";
} else {
$scalar="/home/user/$group/$book/$yy$mmm$yy";
}
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 06:10:23 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: How to unpack a 64 bit integer
Message-Id: <Pine.GSO.3.96.980626230401.20167I-100000@user2.teleport.com>
On Fri, 26 Jun 1998 poccia@yahoo.com wrote:
> Does someone know how to unpack a 64 bit integer (signed or unsigned)?
A future version of Perl may (will?) have a pack format for these, but the
current version doesn't. :-(
In your position, I'd probably make a module to do the unpacking the
old-fashioned way, either by unpacking with some other format and doing
some math, or by resorting to half-a-dozen lines of XS code. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 06:25:24 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: HTML form and Perl script send data to another Perl script
Message-Id: <Pine.GSO.3.96.980626232338.20167M-100000@user2.teleport.com>
On Fri, 26 Jun 1998, p wrote, quoting me:
> >> Remove the 'x' from the email address, if you want to send a
> >> non-commercial email.
> >
> >Remove the 'x' from the email address, if you want to get replies by
> >email. :-)
>
> I sounds you are not so hard hit by spammers as I am.
Do you think that that might be because I post to Usenet less often than
you do, perhaps? :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 06:31:02 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: NEED HELP !!!!!!
Message-Id: <Pine.GSO.3.96.980626232935.20167N-100000@user2.teleport.com>
On Fri, 26 Jun 1998, Mahmoud Ahmed wrote:
> print FIC "$in{'titre1'}\n" if $in{'titre1'};
> print FIC "--------------------------\n" if $in{'titre1'};
>
> These two lines will be printed if $in{'titre1'} variable is set, otherwise
> they won't be printed.
You seem to be mistaken. That variable might be set to '0' or '', couldn't
it? Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 07:27:40 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Newbie frustration
Message-Id: <Pine.GSO.3.96.980627002344.20167W-100000@user2.teleport.com>
On Fri, 26 Jun 1998, Rev. Frank Sullivan wrote:
> Newsgroups: comp.lang.perl.tk
Your message does not seem to be appropriate for c.l.p.tk. Perhaps you
meant c.l.p.misc? Follow-ups set.
> Subject: Newbie frustration
Please check out this helpful information on choosing good subject
lines. It will be a big help to you in making it more likely that your
requests will be answered.
http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post
> I'm using this book Perl by Example and I don't understand why my output
> is in a different order than the array which is being outputted.
Do you mean that your hash is being displayed with the keys in a different
order than the order you originally used? If that's confusing to you, you
should get a better book. :-) I recommend the Llama book.
If it's something else, could you make a short example program to show
what you mean? Half a dozen lines of code should be enough for most
purposes. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 27 Jun 1998 07:15:41 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Perl32 <STDIN> problem
Message-Id: <Pine.GSO.3.96.980627001401.20167T-100000@user2.teleport.com>
On 25 Jun 1998, wings wrote:
> i am testing the codes in "learning perl". as it asks abt reversing some
> lines of input w/o using reverse(), i tried:
>
> @strings = <STDIN>;
> while (@strings) {
> print pop(@strings);
> }
> this works fine on UNIX and WinNT. however, when running on Win95, it
> always 'eats' the last line of input.. i am using activeware's
> Perl5.003, what's the secret behind? is it about Ctrl-Z?
I'd be pretty sure it's part of your I/O system. You might try printing a
blank line between reading the input and printing the output. But you're
doing the exercise properly; the problem you're having isn't your fault.
Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 26 Jun 1998 19:33:43 EDT
From: dblack@saturn.superlink.net (David A. Black)
Subject: Re: Replacing "stuff" via Regex... HELP!
Message-Id: <6n1b4n$ohk$1@earth.superlink.net>
Eli the Bearded <*@qz.to> writes:
>In comp.lang.perl.misc, F.Quednau <quednauf@nortel.co.uk> wrote:
>> > ie. if the input line was
>> > data,data,data,number,text,"string",data, stuff,"nuther",stuff,text,"two
>> > words",text
>> > the output would be
>> > data,data,data,number,text,,data, stuff,,stuff,text,,text
>> What about this?
>What about it? Did you try it before posting? It doesn't work.
>> $_ = 'data,data,data,number,text,"string",data, stuff,"nuther",stuff,text,"two
>> words",text';
>> s/".*",//;
>The .* is greedy and will match <string",data, stuff,"nuther",stuff,text,"two
>words>. (Assuming that \n isn't really there, otherwise it will just match
><string",data, stuff,"nuther>.)
>Grep for "comma-separated" in the perl FAQ. Read the answer. After
>splitting on the commas, clear the quoted fields and join them again.
>Elijah
>------
>doing it with one s/// would not be easy
In this particular case, though, the original author seems to have wanted
to remove all pairs of "" and everything inside them, leaving consecutive
commas.
Therefore (and assuming balanced ""s), this should work:
s/"[^"]*"//g
though I can't help wondering whether those consecutive commas are really
just the fallout from an incomplete solution.
David Black
dblack@saturn.superlink.net
------------------------------
Date: Sat, 27 Jun 1998 05:08:21 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: What module to download a gif?
Message-Id: <1db9c4c.1viowsbthhejqN@roxboro0-022.dyn.interpath.net>
Bob Trieger <sowmaster@juicepigs.com> wrote:
> root.noharvest.\@not_even\here.com wrote:
-snip how checking the return value of open != use die, and Tom P. isn't
a nazi ["root" implied the first and flat out said the second] -
> -> Probably more than 60% of my programs do NOT use die and yet they work
> -> 100% of the time, as intended. Why should I _always_ use die?
>
> Who said you should use die once, let alone always? And nobody's code works as
> intended 100% of the time. That statement has invalidated anything else you
> could say.
I say, I say, this is being a little too general - I wrote some code
where I wanted some shit to happen and by God some shit happened. Maybe
he is writing the same type of programs. :)
--
John Moreno
------------------------------
Date: Sat, 27 Jun 1998 03:06:21 -0300
From: Colin Kilburn <ckilburn@nbnet.nb.ca>
Subject: Re: Y2K Problem
Message-Id: <35948BDD.71C4BBF2@nbnet.nb.ca>
Well you see,
information is everywhere and most of it is not under the direct
control of humans, but the flawed machines they incredibly developed,
computers. One such flaw is the date thing. This is a flaw in the
programs which uses dates in a non year 2000 portable way.
(Silly programmers trying to save a buck.) It doesn't stop there,
this flaw could be burned into the chips of untold numbers of
controller devices. Ya know, those automated kind of things,
everything computerish. So this is truly mind blowing. Even
though TIME says we're going to be OK, who knows who
put the controllers in those Russian Missiles.
More to your point,
There is many much information on Yr2K. Go have a look,
it is all things IT. BTW, Y2K is a trademark now, careful with
your advertising.
Interesting note,
I actually work at a Y2K shop, as a Perl Developer.
Perl doesn't actually do the heavy parsing... but if I had my way..
That's why I'm here, what was your reason again?
I'm not a manager, but I would guess if you are an
IT manager then you should already have a good perspective,
with contacts, as to what's going on with the issues
like critical Systems, Data Back Up, System testing ...
times a wasting. Only a few days left ya know.
This is a biG issue,
and companies that fix this problem usually specialize in parsing
and cleaning one or a few (usually DB) languages (for programming
dates).
My company does NATURAL if your clients are interested.
As for applications ... upgrade if its needed, important systems
should be investigated, version, company tech support.
There has got to be a few Yr2K newsgroup somewhere?
Who let this guy in?
I would write more but who in this group really cares?
Carl Tipton wrote:
> I have noticed a great number of unqualified opinions and
> recommendations on the Y2K issue.
Then you should have noticed good ones too or you are lookingin the
wrong place, I would say.
> As an IT professional, I am aware of
> the effect this issue has on my client.However, there are other issues
>
> which I may not have yet encountered that others such as I have been
> addressing.I am interested in what other professional IT manager's are
>
> saying about this issue. Can someone direct me to resources that
> address
> this issue from an IT professional's perspective?
> With only 554 days
Thanks for the reminder.
> I would like to be tuned in to the various forums and discu....
This ain't the place.
------------------------------
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 3000
**************************************
