[9658] in Perl-Users-Digest
Perl-Users Digest, Issue: 3252 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jul 25 05:07:12 1998
Date: Sat, 25 Jul 98 02:00:38 -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, 25 Jul 1998 Volume: 8 Number: 3252
Today's topics:
Re: *** FAQ: ANSWERS TO YOUR QUESTIONS! READ FIRST! Pos <davidc@selectst.com>
Re: -e glob $filename returns true and false in identic <rootbeer@teleport.com>
Re: Changing to home directory <rootbeer@teleport.com>
Re: chomp or other command to eliminate LF and or CR fr (Craig Berry)
Re: confused with list of hashes. (Mark-Jason Dominus)
Re: Date Question... <file@job.to>
Re: Detecting Countries (Danny Aldham)
Re: Detecting Countries (Abigail)
Re: forking processes in proxy script schnibitz@my-dejanews.com
Re: Free CGI Hosting? (Abigail)
Re: How many times... <rootbeer@teleport.com>
Re: is there a isNumber($aString) function? <ljz@asfast.com>
Re: passing arguments to external prgm failing on NTSer <jwb79@mail.idt.net>
Re: pattern matching snafus <gmcnutt@cyberhighway.net>
Re: Perl Beautifier Home Page (William R. Ward)
Re: Perl CGI image and text problem <rootbeer@teleport.com>
Re: perl losing required subroutines <rootbeer@teleport.com>
Re: Perl SETUID <rootbeer@teleport.com>
perl/mysql connect problem (HeliSpot)
Perl4 to Perl5 <sean@mail.nnet.ne.jp>
Re: permissions? <rootbeer@teleport.com>
Recent Secret Government Experiments Killing People!!! blowclinton@my-dejanews.com
Re: reference passing seems odd <"postmaster"@[127.0.0.1]>
Re: Rounding (Ollie Cook)
Re: Rounding (Craig Berry)
Re: Server Side Includes <file@job.to>
Simple (I hope) Apache/NT/Perl question <Mark.Hickey@veritas.com>
Simple (I hope) Apache/NT/Perl question <Mark.Hickey@veritas.com>
Simple (I hope) Apache/NT/Perl question <Mark.Hickey@veritas.com>
Simple (I hope) Apache/NT/Perl question <Mark.Hickey@veritas.com>
Simple (I hope) Apache/NT/Perl question <Mark.Hickey@veritas.com>
Simple (I hope) Question on Apache/NT/Perl <Mark.Hickey@veritas.com>
Sybperl CTLib ct_callback causes coredump <tegelert@gol.com>
Re: symbolic links for windows <rootbeer@teleport.com>
Re: UID, passwd <rootbeer@teleport.com>
Re: What is Value of <HANDLE> ? <rootbeer@teleport.com>
Re: Y2K problem in PERL with localtime() (Craig Berry)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 25 Jul 1998 18:35:31 +1000
From: David Coldrick <davidc@selectst.com>
Subject: Re: *** FAQ: ANSWERS TO YOUR QUESTIONS! READ FIRST! Posted Twice Weekly ***
Message-Id: <35B998D3.5C1356A8@selectst.com>
Frustrating stuff, this. I often give a direct Amazon ref when I'm
recommending a book, simply because it's an easy way to give someone the
details, and possibly a review. I *do* agree that referencing thru one's
own site in order to collect a commission is a bit tacky, and that
descending into offering discounts etc. is definitely over the top, at
least for me.
All a matter of taste, tho. Given the amount of flame crap that goes on
in this newsgroup, I'd prefer a commercial reference to a good book any
day.
Regards,
David
birgitt@my-dejanews.com wrote:
>
> In article <6p9u3d$3ha@bgtnsc03.worldnet.att.net>,
> "Terry Cora" <TerryLCora@worldnet.att.net> wrote:
> > >Am I the only one who thinks that this post is not appropriate ?
> > >
> > >Birgitt Funk
> >
> > I doubt it.
> >
> > But I was supprised that the mini-FAQ only contained 1 book reccomendation
> > with a link to their commercial website - O'Reilly press. There are many
> > other books that may be of interest to those who visit this newsgroup and
> > not all are by O'Reilly. I checked a little further and found out that
> > Nathan Torkington, Perl mini-FAQ maintainer is an author who's book, "The
> > Perl Cookbook" is being published by O'Reilly, available August, '98 $39.95.
> >
> > Terry Cora
> >
>
> I think you got me wrong and I made a mistake in referencing my post.
>
> I was not questioning the MiniFAQ post of Mathan Torkington
> because perl books from O'Reilly are mentioned, not at all.
>
> I don't see how mentioning a publisher of a highly recommendable
> Perl book can be in any way considered as SPAM. The Llama, Camel
> and Panther books belong into a Perl programmer's library, it
> is IMHO normal and expectable that these books are mentioned in clpm.
>
> I was referring to your post ( Terry Cory), and was questioning
> the way you used clpm to announce a cheaper deal of the book
> at your own site, which is again linked to AMAZON for ordering purposes.
>
> You are earning commission for selling the book in question if they are
> ordered through the link on your site.
>
> That is in my opinion a usage of clpm which is not acceptable,
> even if the money is used to support a mailing list concerned
> with Perl.
>
> I just would like to make clear that any website owner who
> is an associate of AMAZON (or an associate of any other online
> bookseller) and who advertises *his* website to order a book
> from, is spamming, actually in this case it is SPAMMING FOR TWO,
> for himself and for the online bookseller he is an associate with.
>
> If I am the only one who thinks that way, I will not post
> any more complaints in that regard in the future.
>
> It is not that important to me, but from another thread and a post by
> Ted McClellan a couple of days ago, I got the impression
> that the distinction of who spams, Amazon or associates
> of Amazon is not realized. That is the reason I posted in reference
> to this subject.
>
> Birgitt Funk
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Sat, 25 Jul 1998 05:34:51 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: -e glob $filename returns true and false in identical cases
Message-Id: <Pine.GSO.4.02.9807242233480.25503-100000@user2.teleport.com>
On Thu, 23 Jul 1998, John Adams wrote:
> chdir("/home/data/archives/.inventory/");
Check the return value from this call; it may be failing.
> open(LOOKAME,">/tmp/lookame");
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 25 Jul 1998 06:08:04 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Changing to home directory
Message-Id: <Pine.GSO.4.02.9807242306320.25503-100000@user2.teleport.com>
On Fri, 24 Jul 1998, Kevin Slanicky wrote:
> I'm needing to change to the home directory of wherever the script is
> running and am having some serious problems.
What would those problems be?
And have you seen what the perlfunc manpage says about changing the
working directory? There's an easy way to get to the current user's home
directory. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 25 Jul 1998 07:49:14 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: chomp or other command to eliminate LF and or CR from lines
Message-Id: <6pc2lq$hut$3@marina.cinenet.net>
Abigail (abigail@fnx.com) wrote:
: Mark Thompson (mark-lists@webstylists.com) wrote on MDCCLXXXVIII
: September MCMXCIII in <URL: news:35b91eba.4916101@news.supernews.com>:
: ++
: ++ I know chomp will only get rid of the EOL character that's in $/ which varies
: ++ from time to time. Is there an easy way to get rid of all LF and CR (and
: ++ regular spaces for that matter)? It can't get rid of tabs though (the last
: ++ field might be blank but I need to differentiate that condition from the
: ++ condition of not having the right number of fields.)
:
: s/[\r\n ]+//;
That only gets rid of the first string of such chars found (though /g
would fix that), and it's more work than is needed. The tr solution
suggested by several other folks on this thread is the way to go.
---------------------------------------------------------------------
| 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: 24 Jul 1998 22:00:42 -0400
From: mjd@Op.Net (Mark-Jason Dominus)
Subject: Re: confused with list of hashes.
Message-Id: <6pbe8a$34u$1@monet.op.net>
In article <6paj4c$ln$1@rand.dimensional.com>,
Daniel Grisinger <dgris@rand.dimensional.com> wrote:
>(if you aren't comfortable with references I'd
>strongly suggest sitting down with a cup of coffee and
>reading perlref, it'll save you a lot of headaches later :-).
People sometimes have trouble with perlref because it's so complete,
and it includes a lot of obscure details that aren't important at
first. I wrote a very short introduction to using references that is
supposed to prepare people to use them and to read perlref afterwards.
Some people have written to me that they liked it a lot.
If you want to see this, it's at
http://www.plover.com/~mjd/perl/FAQs/
------------------------------
Date: Sat, 25 Jul 1998 10:33:25 +0200
From: "file" <file@job.to>
Subject: Re: Date Question...
Message-Id: <6pc6al$9ck$1@usenet48.supernews.com>
Well if you want it in that format you will have to do the following:
use Time::CTime;
$year = strftime(%y - ",localtime(time));
if (strftime(%j - ",localtime(time)) == 1) {$year = $year--;}
# for a 24 hour clock
$time = strftime("%H:%M:%S - ",localtime(time));
#for a 12 hour clock
#$time = strftime("%I:%M:%S - ",localtime(time));
$weekday_num = strftime("%w",localtime(time));
$weekday_num--;
if ($weekday_num == -1) {$weekday_num = 6;}
@weekdays = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
$lastweekday = $weekdays[$weekday_num];
if (strftime("%d",localtime(time)) == 1) {
$month_num = strftime("%m",localtime(time));
$month_num--; $month_num--;
if ($month_num == -1) {$month_num = 11;}
@months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep",
"Oct", "Nov", "Dec");
$lastmonth = $months[$month_num];
}
$done = 0;
# done is to check if one of the ifs already went through
$day_of_month = ("%d",localtime(time));
$day_of_month--;
if ($day_of_month == 0 && $month_num== 1) { $day_of_month = 28; $done = 1;}
#leep year is not in here i didn't have time
if ($day_of_month == 0 && $month_num == 8 || $month_num == 3 || $month_num
== 5 || $month_num ==10) {$day_of_month = 30; $done =1;}
if ($day_of_month == 0 && $done == 0) {$day_of_month = 30;}
$yesterdays_date = $last_weekday . " " . $last_month . " " . $day_of_month .
" " . $time . " " . $year;
this should work.. i havent tested it though
good luck
Richard Kim schrieb in Nachricht ...
>Hello all,
> My problem may be easy for some, but I am having difficulty finding the
>answer. I am interested in getting yesterday's date using the localtime
>function. Any other method would be nice, but I am not interested in
>writing a long drawn out program just to extract yesterday's date.
>
>
>When I use :
>
>print scalar localtime,
>"\n";
>
>I get this response:
>
>Fri Jul 24 10:52:24 1998
>
>
>I am interested in getting something like this:
>Thu Jul 23 10:52:24 1998
>
>Thanks for your help.
>Rich
>
>[5;1m rkim@temple.edu [0m
>
------------------------------
Date: 25 Jul 1998 04:12:28 GMT
From: danny@lennon.postino.com (Danny Aldham)
Subject: Re: Detecting Countries
Message-Id: <6pblvc$iou$1@lennon.postino.com>
X-Newsreader: TIN [version 1.2 PL2]
Chris (nexes@epix.net) wrote:
: I have an encryption program that may not be exported except to Canada. It
: may only be sold in the US and Canada.
: I want the perl script to check if the user is the US or Canada, and if they
: are not - tell them that they must be from the US or Canada.
I know some of the gambling & lottery sites do this sort of thing.
I think they do some sort of reverse on the IP and map it to a
network provider.
--
Danny Aldham SCO Ace, MCSE, JAPH, DAD
Field Service Manager BCTel Systems Support
7000 Lougheed Hwy, Burnaby BC (604) 444-8949
------------------------------
Date: 25 Jul 1998 06:30:45 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Detecting Countries
Message-Id: <6pbu2l$h7$1@client3.news.psi.net>
Chris (nexes@epix.net) wrote on MDCCLXXXIX September MCMXCIII in
<URL: news:6pbj6n$has$1@news1.epix.net>:
++
++ I have seen a CGI script that has done this before however. It was done on
++ Bruce Schneier's website for twofish. Perhaps IP addresses were used. Are IP
++ addresses assigned acording to location? Perhaps I could get a hold of a
No.
++ list of US and Canadian IPs - prefix directory of sorts. Any other ideas?
Really? The huge ISPs, those with millions of customers are worldwide.
++ Not sell over the web? *Pffff* That would hurt my back pocket too much. =)
Whatever. The fact it influences your wallet is completely irrelevant
to whether something is possible or not.
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")\n-> define ("foldoc", "perl")) [0] -> print'
------------------------------
Date: Sat, 25 Jul 1998 08:33:32 GMT
From: schnibitz@my-dejanews.com
Subject: Re: forking processes in proxy script
Message-Id: <6pc58t$3h7$1@nnrp1.dejanews.com>
Mr. Schwartz, BTW, I learned perl from your book "Learning Perl." Use it
every day! Kinda cool to get a message from its author too. Anyhow, I have
tried your client before, and had problems, but I gave it a second shot. I
would much rather use your code BTW, but this one pesky little error keeps
cropping up.
________error________
Can't locate auto/LWP/UserAgent/env_proxy.al in @INC (@INC contains:
/data1/hypermart.net/schnibitz/libwww-perl-5.33/lib
/data1/hypermart.net/schnibitz/libwww-perl-5.33/lib
/usr/local/lib/perl5/i386-bsdos/5.00404 /usr/local/lib/perl5
/usr/local/lib/perl5/site_perl/i386-bsdos /usr/local/lib/perl5/site_perl) at
/data1/hypermart.net/schnibitz/cgi-bin/proxyschwartz.pl line 35
BEGIN failed--compilation aborted at
/data1/hypermart.net/schnibitz/cgi-bin/proxyschwartz.pl line 36.
[Sat Jul 25 04:24:47 1998] access to
/data1/hypermart.net/schnibitz/cgi-bin/proxyschwartz.pl failed for
206.43.242.99, reason: Premature end of script headers
__________end error___________
In the first place I have no idea what an "auto/LWP/UserAgent/env_proxy.al"
is. I looked for it all through my www module, but I could not find it.
This seemed to be the main problem. Another problem I am working under, is
that the www module I am using, was not installed on the my webspace. I have
to reference it with the line:
"use lib '/data1/hypermart.net/schnibitz/libwww-perl-5.33/lib';"
There is no way for me to install the www module on that server, so I had to
use this hack. I don't know what types of ramification this could have for
your code. Anyhow, any input you or others might have for this little
problem would be greatly appreciated. Like I say, I prefer to use your
script, if I can get it to work with the modules.
~Prime
P.S.
What you did with the forking was what I was looking for too.
In article <8c90limz92.fsf@gadget.cscaper.com>,
Randal Schwartz <merlyn@stonehenge.com> wrote:
> >>>>> "schnibitz" == schnibitz <schnibitz@my-dejanews.com> writes:
>
> schnibitz> First I have to appologize if this is a copy of a previous
> schnibitz> message. Dejanews is wierd.
>
> In many ways. One is that you aren't using it effectively. :)
>
> schnibitz> below is a link to a page where I have a proxy perl script.
> schnibitz> You are all welcome to use it if you want.
>
> Why are you reinventing everything from the ground up? Check out my
> WebTechniques column, where I give away a free script that does what
> yours does and a lot more (handling ftp and gopher proxies as well).
>
> Oh, yes, it's at http://www.stonehenge.com/merlyn/WebTechniques/,
> and look for column # 11. Yes, that's from Feb 97... a while ago.
>
> print "Just another Perl hacker,"
>
> --
> 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@teleport.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
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 25 Jul 1998 06:34:38 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Free CGI Hosting?
Message-Id: <6pbu9u$h7$4@client3.news.psi.net>
Mark (mark@leaf.ee.ufl.edu) wrote on MDCCLXXXIV September MCMXCIII in
<URL: news:6pavpb$jna@no-names.nerdc.ufl.edu>:
++ Does anyone know of any free web page hosting services that allow custom
++ CGI?
Oh, tons of people do. But they ask in a more appropriate group.
rec.arts.ice.fishing, for instance.
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: Sat, 25 Jul 1998 05:10:36 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: How many times...
Message-Id: <Pine.GSO.4.02.9807242209580.25503-100000@user2.teleport.com>
On Thu, 23 Jul 1998, David Lyons wrote:
> Subject: How many times...
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
> So, where can I find a script to "beautify" this text,
If you're wishing merely to _find_ (as opposed to write) programs,
this newsgroup may not be the best resource for you. There are many
freeware and shareware archives which you can find by searching Yahoo
or a similar service. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 25 Jul 1998 01:31:27 -0400
From: Lloyd Zusman <ljz@asfast.com>
Subject: Re: is there a isNumber($aString) function?
Message-Id: <ltzpdy5weo.fsf@asfast.com>
> dwiesel@my-dejanews.com (dwiesel@my-dejanews.com) wrote on MDCCLXXXVII
> September MCMXCIII in <URL: news:6p6tv5$3np$1@nnrp1.dejanews.com>:
> ++ Hi,
> ++
> ++ How can I tell if a string (e.g. "7945797945") is a number or not?
>
>
> [ ... ]
>
> [ ... ] I'll give you a much simpler
> solution. [ ... ]
>
>
> sub is_a_number {
> {map {$_ => 1} 0 .. 0x7FFFFFFF} -> {+shift};
> }
However, 0x7fffffff is less than the number given in the original
example ("7945797945").
--
Lloyd Zusman ljz@asfast.com
perl -e '$n=170;for($d=2;($d*$d)<=$n;$d+=(1+($d%2))){for($t=0;($n%$d)==0;
$t++){$n=int($n/$d);}while($t-->0){push(@r,$d);}}if($n>1){push(@r,$n);}
$x=0;map{$x+=(($_>0)?(1<<log($_-0.5)/log(2.0)+1):1)}@r;print"$x\n"'
------------------------------
Date: 25 Jul 1998 07:27:21 GMT
From: "Jim Babbington" <jwb79@mail.idt.net>
Subject: Re: passing arguments to external prgm failing on NTServer
Message-Id: <01bdb79c$99a6f980$6488fdc7@dixon>
mashton@my-dejanews.com wrote in article <6pbbv4$a4u$1@nnrp1.dejanews.com>...
<....>
: SAMPLE CODE
: ===========
: $prgm1 = "mycprg1.exe";
: $prgm2 = "mycprg2.exe";
: $tmpfile = "xx.$$.jpg";
: $cmd = "$prgm1 -param1 $param1 | $prgm2 -param2 $param2 -outfile $tmpfile";
:
: system($cmd);
: open( FROM, "< $tmpfile" );
: binmode FROM;
: binmode STDOUT;
: print <FROM>;
: close FROM;
If the only difference between the working run and the non-working-run of this program is the machine, then I would guess it might
be a permisions problem. (your writing to xx.$$.jpg in the working dir). Identify your working dir and permissions.
My second guess is that someone (wisely) left "."(pwd) out of your path.
My third (and silliest) guess is that this is part MicroSoft's plan at dominating the world in the year 2001, and you luckily
stumbled upon it, thereby exposing them for what they are. But since you didn't post any output from your programs, we have no
proof, leaving us powerless to defend ourselves :~)
Good luck,
--
jim
------------------------------
Date: 25 Jul 1998 06:40:25 GMT
From: "Gordon" <gmcnutt@cyberhighway.net>
Subject: Re: pattern matching snafus
Message-Id: <01bdb798$04547dc0$7e09a1d1@default>
# Mash it all onto one line and the split:
foreach $line(@line){
chomp $line;
$mybigline.=$line;
}
@fields=split(/script.*script/, $mybigline);
# Now nothing has an endline, of course
foreach $f(@fields){ print "$f\n"; }
------------------------------
Date: 24 Jul 1998 21:23:40 -0700
From: hermit@cats.ucsc.edu (William R. Ward)
Subject: Re: Perl Beautifier Home Page
Message-Id: <waaoguepnhv.fsf@ese.UCSC.EDU>
Russ Allbery <rra@stanford.edu> writes:
> Abigail <abigail@fnx.com> writes:
>
> > Am I missing something?
>
> > ($VERSION) = '$Revision: 1.9 $' =~ /([\d.]+)/; print $VERSION, "\n";
> > ($VERSION) = '$Revision: 1.10 $' =~ /([\d.]+)/; print $VERSION, "\n";
> > ($VERSION) = '$Revision: 1.1.1.1 $' =~ /([\d.]+)/; print $VERSION, "\n";
>
> > prints
>
> > 1.9
> > 1.10
> > 1.1.1.1
>
> > Or are you suggesting Exporter can't deal with such numbers correctly?
>
> Exporter treats numbers as numbers, and sorts them in numerical order. It
> will quite correctly decide that 1.10 < 1.9, because it is. I suppose one
> could argue that Exporter really *should* use RCS version sort order
> rather than numerical sort order, but the latter is honestly simpler.
> Therefore most of us who use RCS versions have tricks to convert them into
> something that sorts correctly mathematically.
Here's something I came up with that should satisfy everyone but is
kinda messy:
$VERSION=('$Revision: 1.1.1.1 $' =~ /(\d+)(\.(\S+))?/,"$1.".join"_",map{sprintf"%03d",$_}split/\./,$3);
Here is some sample output. The RCS revision is on the left, and the
resulting $VERSION on the right:
1.1 => 1.001
1.10 => 1.010
1.20 => 1.020
1.15.1.1 => 1.015_001_001
1.15.2.1 => 1.015_002_001
--Bill.
--
William R Ward Bay View Consulting http://www.bayview.com/~hermit/
hermit@bayview.com 1803 Mission St. #339 voicemail +1 408/479-4072
hermit@cats.ucsc.edu Santa Cruz CA 95060 USA pager +1 408/458-8862
PGP Key 0x2BD331E5; Public key at http://www.bayview.com/~hermit/pubkey.txt
-----------------------------------------------------------------------------
"Language is a virus from outer space." --William S. Burroughs
------------------------------
Date: Sat, 25 Jul 1998 05:26:12 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Perl CGI image and text problem
Message-Id: <Pine.GSO.4.02.9807242222210.25503-100000@user2.teleport.com>
On Thu, 23 Jul 1998, ferguson wrote:
> binmode IMAGE;
> open(IMAGE, "<$giffile") || die "Can't open $file: $!";
You don't want to use binmode before you open the file.
> while (<IMAGE>)
You don't want to read a binary file a line at a time. (Binary files don't
have lines! :-) You probably could get away with this, but it would be
better to read() instead.
> print header, start_html("MRCM Warps Page"), h1("What's Going On?");
It looks as if you're trying to make output which a web browser can
understand. Are you sure that the output is in the right format?
If you're following the proper protocol but some browser or server doesn't
cooperate, then it's the other program's fault. If you're not following
the protocol, then it's your fault. If you aren't sure about the protocol,
you should read the protocol specification. If you've read it and you're
still not sure, you should ask in a newsgroup about the protocol.
Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 25 Jul 1998 05:02:37 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: perl losing required subroutines
Message-Id: <Pine.GSO.4.02.9807242158270.25503-100000@user2.teleport.com>
On Wed, 22 Jul 1998 sxidh@ts.sois.alaska.edu wrote:
> I've got a program that has a bunch of require's in it. One of the
> require'd modules is BIND.pl which is essentialy a subroutine called
> BIND. About 90% of the other required modules are also simply
> subroutines which are common to one or two programs. Some of these
> subroutines call the &BIND routine. On some occasions, I've never
> satisfactorily figured out why, the calls to &BIND have resulted in
> the error message "Undefined subroutine &main::BIND called at
> /some/other/module line 68." This is well after the require of
> BIND.pl (it's one of the first requires that we do because it is so
> heavily used) and after &BIND has been called numerous times.
Well, it's a bug. Whether it's in Perl or in your code is the question.
:-)
Could something somewhere be undefining the sub? You could put periodic
watchpoints into your code, checking that it's (still) defined. If not,
your watchpoint code could perhaps issue a helpful diagnostic. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 25 Jul 1998 05:55:55 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Perl SETUID
Message-Id: <Pine.GSO.4.02.9807242251430.25503-100000@user2.teleport.com>
On Fri, 24 Jul 1998, Damien Lachuer wrote:
> I'd like to known what is exactely perl-suid, where I can find it and
> how to use it. (I know I must look at the documentation, but I don't
> have found a good one)
To make your Perl scripts run set-id on many systems, the Perl binary
needs to be compiled to allow that. (Details are in the instructions which
accompany the Perl source code.)
If your binary and system allow your programs to run set-id, the perlsec
manpage will tell you more. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 25 Jul 1998 06:51:41 GMT
From: alex-nospam@helispot.com (HeliSpot)
Subject: perl/mysql connect problem
Message-Id: <35b97f00.255802905@news.newsguy.com>
HELP!!!
Hi folks. I joined a new virtual hosting company last week that
offers mysql. They verified that my mysql database had been setup,
then I used their "control panel" web page to create a table and put
some data in it. (I knew how to do this using SQL commands, but the
control panel site was easier. Plus, this was just to test out mysql
anyway.)
So, I wrote this quick script to try to connect to the database, just
to test it out. I think I have the syntax wrong in the connect->
line, because any commands after that are non-responsive.
Any thoughts?
------------------
#!/usr/bin/perl
print "Content-type: text/html\n\n" ;
print "<html>";
print "<head>";
print "<title>test page</title>";
print "<body>";
use Mysql ;
print "use mysql line succeeded.<br>\n" ;
# the following four items were provided by the host ;
# I changed them here for privacy reasons ;
$host = "sqlserver.net" ;
$database = "mydatabasename" ;
$user = "myuserid" ;
$password = "mypassword" ;
$dbh = Mysql->Connect($host,$database,$password,$user);
print "mysql connect line succeeded.<br>\n" ;
# nothing happens after this point when I run the script ;
# on the server ;
# also, I tried removing the next two lines because ;
# I technically connected above, but it still doesn't ;
# work even then... ;
$dbh->SelectDB($database);
print "selectdb line succeeded.<br>\n" ;
$sth = $dbh->ListTables ;
while (@row = $sth->fetchrow) {
print "@row<br>\n" ;
}
print "</body></html>\n\n" ;
---------------------
Thoughts?
Alex
alex at helispot dot com
NO SPAM!!
------------------------------
Date: Sat, 25 Jul 1998 14:40:38 +0900
From: Sean Bennett <sean@mail.nnet.ne.jp>
Subject: Perl4 to Perl5
Message-Id: <35B96FD5.94BF2D31@mail.nnet.ne.jp>
Good day all on a Sat. morning...
I'm on a FreeBSD2.2.6 system...
'Perl -v' says that I have Perl 4 installed, even though I did a Perl5
pkg_add last week...
so...
1. first I tried installing the package (perl-5.00404) again - it said
it was
already installed.
2. tried installing the port. It compiled fine until the end, when it
said that a
previous version should be uninstalled with 'make deinstall', and then
'make
reinstall' the newer one. Fine.
3. did a 'make reinstall'; everything went fine; took about 3-5 min to
install, then
told me that it 'registered' the software, and finished - no problems.
4. BUT... "perl -v" still tells me that I'm still running Perl 4, yet
"pkg_info -a
| grep perl" returns info for perl-5.00404... *what gives* ?!?
Sean.
sean@mail.nnet.ne.jp
------------------------------
Date: Sat, 25 Jul 1998 04:23:46 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: permissions?
Message-Id: <Pine.GSO.4.02.9807242109150.25503-100000@user2.teleport.com>
On 21 Jul 1998, Marjorie MacDonald wrote:
> We have a provider that hosts our web site. They have created a CGI
> directory for my files, on a UNIX server which supposedly runs PERL. I
> haven't been able to get much help or info from them, which doesn't
> help matters...
[ Some description of script snipped ]
> I tried calling it directly, making a link to it on a web page, etc. Same
> thing. Is this something on THEIR end?
Yes, that would be the system administrator. :-) Really, you can't run
webserver scripts (Perl or otherwise) without the cooperation of a system
administrator. Until and unless the sysadmin is going to work with you,
you don't really have a site which lets you run scripts. Sorry!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 25 Jul 1998 08:19:43 GMT
From: blowclinton@my-dejanews.com
Subject: Recent Secret Government Experiments Killing People!!!
Message-Id: <6pc4eu$32r$1@nnrp1.dejanews.com>
Okay...
A friend of mine, whose identity must remain anonymous has agreed for me to
let everyone know what she has seen.
---------
Remember the SR-71, created and operational in the 1950's and de-classified
in the 1990's??? In 1950, conventional science and technology could never
have designed the SR-71, yet a SUPER SECRET facility out in the Nevada desert
was it's birthplace. This technology in 1950, quote "did not exist" unquote.
Any sighting of the SR-71 was excused as fantasy and the product of
hallucinations.
The computer is highly classified and is being used by researchers involved
with the study of "NON LETHAL WEAPONRY". Please do not let the term "non-
lethal" fool you. This technology is highly lethal.
It is funded by the I.R.S. and funneled through to the United Nations.
Russian, British and American Scientists have worked years to bring this
project to fruition. Churches have been heavily involved with the
development of this weaponry since they feel they could become a target as
well. The computer made it's debut in 1991, right after the Gulf War when
tension was high and during the alignment of the planets where there would be
greater stress on the Earth's own electromagnetic field and solar flares
that would interfere with the detection of the experiment by playing havoc on
communications. As Dr. Charles Tart said through angrily gritted teeth,
"that equipment cost millions of dollars". In 1991 they had a small
problem...sabotage. I was never invited to this experiment but I was there.
I will never forget the theoretical physicist nor the biologist who sat in
the front seats in the front row next to the stairs nor will I forget the
orange upholstered seating, the coldness of the room, the cement stairs
leading down to the computer. Nor will I forget the green, matrixed
holographic image of one of the people trapped by the field standing on a
holographic plate. Nor will I forget the conversations that I heard.
I honestly cannot tell you all the technicalities involved since I do not
have a high tech background other than what I heard seemed to make sense and
the scientists were very enthused despite the fact they would be killing 6
innocent civilians, all American citizens, accused of no crimes for the
experiment. Killing innocent women, children, men, handicapped and the aged
must have really brought them a thrill. Cowards are weak, without character
and hide behind tremendous power like the egotistical sluts that they are.
There is no honor in cowardice. These scientists and congressmen would spread
their legs for 10 cents if it meant receiving grant money. It's a sick world
with sick researchers out there.
It is not allot harder to remote view the heavily surveyed facility even
though it is underground. The facility emits allot of microwave because it
keeps in communication with various satellites. It is SETI and HAARP
technology combined. Use the microwave carrier as a carrier wave for your
brain and ride the wave into the facility. It is better than hanging outside
of a facility, being watched by surveillance cameras and infrared sensing and
getting your big toe blown off if you step onto Government Property.
The computer happens to be quite deadly when used in conjunction with
satellites and aircraft that ionize the atmosphere within an artificially
produced electromagnetic field. The computer basically maps out your brain,
catalogs symbolic speech you use to interpret symbols, and traps your
electromagnetic field in a field. Your every thought becomes like spoken
word for researchers to "hear" thought as it forms. Dreams are no longer
produced by your own bioelectric firings of neurons in your brain, but by a
grad student at a computer terminal watching and adding input to the
dream...making every dream a lucid dream.
No, I don't have tangible proof. No tape recording, video recordings,
witnesses willing to come forth. All I care about are the people and their
families that were effected by this experiment and who knows how many more
that were conducted like this one. I would challenge anyone to walk away
from that project feeling good about the direction of Mankind and Technology.
May they choke on their Nobel prizes.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Sat, 25 Jul 1998 02:07:21 -0500
From: Bobn <"postmaster"@[127.0.0.1]>
Subject: Re: reference passing seems odd
Message-Id: <6pbvsh$3ag$1@supernews.com>
It isn't the 'my' that makes the difference, it's the parentheses you
used with the 'my'. Without them, the assignment happens in a scalar
cntext, causing $pointer to be eqal to 1 (the number of elements in
@_). With the parentheses, $pointer is set equal to the array
reference, as desired. THis can be seen by adding a line to print
ref($pointer) to your sub.
- Bob N. (if emaling use "bobn at interaccess dot com)
Sabre Taylor wrote:
>
> Got some odd results (at least to me). Can anybody explain
> why the "my" is needed?
>
> % quick <- running my script without the "my"
>
> % quick <- after "my" added
> jan feb mar
> %
>
> Sabre
>
> -------------here's the script-------------
>
> #!/usr/local/bin/perl5
>
> @barney= qw (
> jan
> feb
> mar
> );
>
> &foo (\@barney);
>
> sub foo {
> my($pointer)=@_; # first run, this line was $pointer=@_;
> print "@$pointer\n";
> }
------------------------------
Date: Sat, 25 Jul 1998 07:25:12 GMT
From: oliver.cook@bigfoot.com (Ollie Cook)
Subject: Re: Rounding
Message-Id: <35b9880c.2084432@news.ukonline.co.uk>
On 24 Jul 1998 21:31:29 GMT, cberry@cinenet.net (Craig Berry) wrote:
>Ollie Cook (oliver.cook@bigfoot.com) wrote:
>: I've just written a Web Cart perl script for a client and I'm now
>: stuck at what seems the simplest part of the script. How can I round
>: the amount to pay to 2 dp? Current the value in the scalar is, say,
>: 1839.12864 , due to complex VAT arithmetic. I'd like it to round to
>: 1839.13. How can I achieve this?
The code I was looking for was sprintf("%.2f",$incvat)
Thanks for pointing me towards the posting and I'm sorry,l didn't
realise you had your head so firmly up your arse, when I posted.
Regards, Ollie Cook
------------------------------
Date: 25 Jul 1998 07:46:07 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Rounding
Message-Id: <6pc2fv$hut$2@marina.cinenet.net>
Ollie Cook (oliver.cook@bigfoot.com) wrote:
: The code I was looking for was sprintf("%.2f",$incvat)
: Thanks for pointing me towards the posting and I'm sorry,l didn't
: realise you had your head so firmly up your arse, when I posted.
Well, congrats, you've made the coveted top position in my "bizarre
thanks" list.
---------------------------------------------------------------------
| 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, 25 Jul 1998 10:00:54 +0200
From: "file" <file@job.to>
Subject: Re: Server Side Includes
Message-Id: <6pc3hq$464$1@usenet42.supernews.com>
I think it might have to do with the fact that it is an exec command,
because I was never able to execute a cgi-file with shtml.... It always gave
me errors...
Richard Kim schrieb in Nachricht ...
>I think what your administrator meant was that the file extension on the
>HTML page should be .shtml.
>
>hope this helps,
>Rich
>
>[5;1m rkim@temple.edu [0m
>
>On Fri, 24 Jul 1998, Hector Catre wrote:
>
>> I'm having trouble activating a server side include
>>
>> My server administrator said that only file extensions with .shtml will
be
>> parsed, which lead to the following line:
>>
>> <!--#exec cgi="/cgi-bin/test.shtml"-->
>>
>> instead of :
>>
>> <!--#exec cgi="/cgi-bin/test.cgi"-->
>>
>> but this doesn't work.
>>
>> What the hech if the differance when they say that only .shtml files
will be
>> parsed?
>>
>> Hector Catre
>> hector@followme.com
>>
>>
------------------------------
Date: Fri, 24 Jul 1998 14:39:58 -0400
From: Mark Hickey <Mark.Hickey@veritas.com>
Subject: Simple (I hope) Apache/NT/Perl question
Message-Id: <35B8D4FE.CD2748D@veritas.com>
Folks,
Hate to bother with with this one, but I am atumped. I installed
apache 1.3.1 on mt NT 4.0 box, and put some scripts in the cgi-bin
directory. I editted srm.conf to contain ScriptAlias /cgi-bin/
d:/programs/apache/cgi-bin/.
Yet when I try to invoke a script, I get the message
[error] (2)No such file or directory: couldn't spawn child process:
d:/programs/apache/cgi-bin/comments.cgi
I did poke around the apache web site, and this group, but couldn't find
anything. Any help will be greatly appreciated.
Thanks
---
Mark Hickey
Product Marketing Engineer
Management Tools
VERITAS Software
Mark.Hickey@veritas.com
(617)374-2262
Alpha or numeric page: 888-220-8634
"The past is the prophet of the future."
------------------------------
Date: Fri, 24 Jul 1998 14:42:53 -0400
From: Mark Hickey <Mark.Hickey@veritas.com>
Subject: Simple (I hope) Apache/NT/Perl question
Message-Id: <35B8D5AD.513EA953@veritas.com>
Folks,
Hate to bother with with this one, but I am atumped. I installed
apache 1.3.1 on mt NT 4.0 box, and put some scripts in the cgi-bin
directory. I editted srm.conf to contain ScriptAlias /cgi-bin/
d:/programs/apache/cgi-bin/.
Yet when I try to invoke a script, I get the message
[error] (2)No such file or directory: couldn't spawn child process:
d:/programs/apache/cgi-bin/comments.cgi
I did poke around the apache web site, and this group, but couldn't find
anything. Any help will be greatly appreciated.
Thanks
---
Mark Hickey
Product Marketing Engineer
Management Tools
VERITAS Software
Mark.Hickey@veritas.com
(617)374-2262
Alpha or numeric page: 888-220-8634
"The past is the prophet of the future."
------------------------------
Date: Fri, 24 Jul 1998 14:38:18 -0400
From: Mark Hickey <Mark.Hickey@veritas.com>
Subject: Simple (I hope) Apache/NT/Perl question
Message-Id: <35B8D49A.7E8608A@veritas.com>
Folks,
Hate to bother with with this one, but I am atumped. I installed
apache 1.3.1 on mt NT 4.0 box, and put some scripts in the cgi-bin
directory. I editted srm.conf to contain ScriptAlias /cgi-bin/
d:/programs/apache/cgi-bin/.
Yet when I try to invoke a script, I get the message
[error] (2)No such file or directory: couldn't spawn child process:
d:/programs/apache/cgi-bin/comments.cgi
I did poke around the apache web site, and this group, but couldn't find
anything. Any help will be greatly appreciated.
Thanks
---
Mark Hickey
Product Marketing Engineer
Management Tools
VERITAS Software
Mark.Hickey@veritas.com
(617)374-2262
Alpha or numeric page: 888-220-8634
"The past is the prophet of the future."
------------------------------
Date: Fri, 24 Jul 1998 14:41:07 -0400
From: Mark Hickey <Mark.Hickey@veritas.com>
Subject: Simple (I hope) Apache/NT/Perl question
Message-Id: <35B8D543.ED93086C@veritas.com>
Folks,
Hate to bother with with this one, but I am atumped. I installed
apache 1.3.1 on mt NT 4.0 box, and put some scripts in the cgi-bin
directory. I editted srm.conf to contain ScriptAlias /cgi-bin/
d:/programs/apache/cgi-bin/.
Yet when I try to invoke a script, I get the message
[error] (2)No such file or directory: couldn't spawn child process:
d:/programs/apache/cgi-bin/comments.cgi
I did poke around the apache web site, and this group, but couldn't find
anything. Any help will be greatly appreciated.
Thanks
---
Mark Hickey
Product Marketing Engineer
Management Tools
VERITAS Software
Mark.Hickey@veritas.com
(617)374-2262
Alpha or numeric page: 888-220-8634
"The past is the prophet of the future."
------------------------------
Date: Fri, 24 Jul 1998 14:42:38 -0400
From: Mark Hickey <Mark.Hickey@veritas.com>
Subject: Simple (I hope) Apache/NT/Perl question
Message-Id: <35B8D59E.844B0113@veritas.com>
Folks,
Hate to bother with with this one, but I am atumped. I installed
apache 1.3.1 on mt NT 4.0 box, and put some scripts in the cgi-bin
directory. I editted srm.conf to contain ScriptAlias /cgi-bin/
d:/programs/apache/cgi-bin/.
Yet when I try to invoke a script, I get the message
[error] (2)No such file or directory: couldn't spawn child process:
d:/programs/apache/cgi-bin/comments.cgi
I did poke around the apache web site, and this group, but couldn't find
anything. Any help will be greatly appreciated.
Thanks
---
Mark Hickey
Product Marketing Engineer
Management Tools
VERITAS Software
Mark.Hickey@veritas.com
(617)374-2262
Alpha or numeric page: 888-220-8634
"The past is the prophet of the future."
------------------------------
Date: Fri, 24 Jul 1998 15:16:44 -0400
From: Mark Hickey <Mark.Hickey@veritas.com>
Subject: Simple (I hope) Question on Apache/NT/Perl
Message-Id: <35B8DD9C.28CD8E81@veritas.com>
Folks,
Sorry to bother you with this simple question, but I am stumped. I
have Apache 1.3.1 on my NT 4.0 box, and have put some PERL CGI scripts
in the cgi-bin directory. I have the line
ScriptAlias /cgi-bin/ "d:/programs/apache/cgi-bin" in srm.conf.
Yet I get the following if I try to run a CGI.
[Fri Jul 24 13:44:15 1998] [error] (2)No such file or directory:
couldn't spawn child process: d:/programs/apache/cgi-bin/comments.cgi
I have scanned the messages in this folder and the Apache web site
without finding any info. Any help would be greatly appreciated.
Thanks
Mark
--
Mark Hickey
Product Marketing Engineer
Management Tools
VERITAS Software
Mark.Hickey@veritas.com
(617)374-2262
Alpha or numeric page: 888-220-8634
"The past is the prophet of the future."
------------------------------
Date: Sat, 25 Jul 1998 04:31:11 GMT
From: Tom Tegeler <tegelert@gol.com>
Subject: Sybperl CTLib ct_callback causes coredump
Message-Id: <35B95B97.A90E226E@gol.com>
I'm using V5 perl with V2 sybperl on solaris. I'm registering two
callbacks for servicing the client messages and server messages. This
is being done in the same way as the example code which comes with
sybperl:
ct_callback(CS_CLIENTMSG_CB, \&msg_cb);
ct_callback(CS_SERVERMSG_CB, "srv_cb");
sub msg_cb {
my($layer, $origin, $severity, $number, $msg, $osmsg) = @_;
.
.
.
CS_SUCCEED;
}
sub srv_cb {
my($cmd, $number, $severity, $state, $line, $server, $proc,
$msg) = @_;
}
The callbacks work sometimes, but in one case they always cause my
program to coredump. This is a case where I'm inserting a row which
has a duplicate primary key with an existing row in the table. Of
course the row is not inserted (because the key is not unique), and an
error message is normally issued by sybase. The insertion is done using
a call to ct_sql.
Anybody having similar problems or knows of a solution?
Thanks,
Tom Tegeler tegelert@gol.com
------------------------------
Date: Sat, 25 Jul 1998 04:53:53 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: symbolic links for windows
Message-Id: <Pine.GSO.4.02.9807242152320.25503-100000@user2.teleport.com>
On Wed, 22 Jul 1998, Anandan Balaji wrote:
> I am writing some scripts, which has to run on both unix and windows
> platforms.
> Any idea about how to take care symbolic links? Any work arounds?
Install Linux. :-) Seriously, if you need symbolic links, you need a
system which supports them. If you don't, why are you asking? (Okay, so I
have trouble being serious sometimes. :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 25 Jul 1998 05:17:54 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: UID, passwd
Message-Id: <Pine.GSO.4.02.9807242214270.25503-100000@user2.teleport.com>
On Thu, 23 Jul 1998, Damien Lachuer wrote:
> I'd like to make a web utility to create unix user.
I'd like a program that could create a woman. If she understood Unix,
so much the better. :-)
> How can I modify passwd files, crypt passwd (what is SALT in
> 'crypt PLAINTEXT,SALT'), create user, with root permissions ?
There are some utilities on CPAN which may help you. Good luck!
http://www.cpan.org/scripts/
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 25 Jul 1998 04:32:39 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: What is Value of <HANDLE> ?
Message-Id: <Pine.GSO.4.02.9807242130100.25503-100000@user2.teleport.com>
On 21 Jul 1998, Lavoie Philippe wrote:
> In my program I get a lot (4) of this message
>
> Value of <HANDLE> construct can be "0"; test with defined() at
> cppdoc.pl line 65535.
The message itself is explained in perldiag. But you're probably getting
"line 65535" because of a bug in some (sub)versions of 5.004. It's usually
not too big a problem, but you can nag your sysadmin to fix it. :-) Hope
this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 25 Jul 1998 07:43:07 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Y2K problem in PERL with localtime()
Message-Id: <6pc2ab$hut$1@marina.cinenet.net>
Abigail (abigail@fnx.com) wrote:
: Ronald J Kimball (rjk@coos.dartmouth.edu) wrote on MDCCLXXXIX September
: MCMXCIII in <URL: news:1dcotlk.or14k61rsd44bN@bay2-88.quincy.ziplink.net>:
: ++
: ++ > # date +"%m-%d-%y"
: ++ > 02-29-00
: ++
: ++ Hmm... And perl is the one with the Y2K problem??? (Is that 2000 or
: ++ 1900?)
:
: Are you suggesting date has a Y2K problem? Or, are for some reason
: unknown to me, the last 2 digits of '2000' not '00'?
That was a facetious comment, I'll wager. date with no args uses a
4-digit date in the output. The %y explicit format value uses a 2-digit
modulo 100 value instead. In other words, utterly y2k-safe by default,
but you're free to buy a y2k problem if you really want one. :)
---------------------------------------------------------------------
| 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: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3252
**************************************
