[12895] in Perl-Users-Digest
Perl-Users Digest, Issue: 305 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 30 01:07:32 1999
Date: Thu, 29 Jul 1999 22:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 29 Jul 1999 Volume: 9 Number: 305
Today's topics:
Re: Best Perl book? <xrxoxtxhxdx@xrxoxtxhx.xnxextx>
Re: Comparing Scalars (Abigail)
Re: Comparing Scalars (Abigail)
Re: Comparing Scalars (Tad McClellan)
Re: Getting Height and Width of GIF/JPEG in PERL? (Abigail)
Re: Getting Height and Width of GIF/JPEG in PERL? <uri@sysarch.com>
Re: How to determine a date in the past (Abigail)
Re: How to determine a date in the past (Abigail)
Re: How to make a backup file ? (Tim Morley)
Re: How to read the submit button as a name or value (Abigail)
Re: How to trim a String (Abigail)
Re: How to trim a String <uri@sysarch.com>
Re: How to: run a DOS batch in perl/cgi? (Abigail)
Re: is process still running? (Abigail)
Re: Modules for Dummies (Abigail)
Re: NEWSFLASH: Supremes rule anti-advert-ware illegal (Roger Stenning)
Re: OOP question. <uri@sysarch.com>
Re: OOP question. (Abigail)
Re: OOP question. (Abigail)
Re: paging text (Tad McClellan)
perldoc -q : not giving expected results (Mike G.)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 29 Jul 1999 21:30:14 -0700
From: "Dave Roth" <xrxoxtxhxdx@xrxoxtxhx.xnxextx>
Subject: Re: Best Perl book?
Message-Id: <AR9o3.60573$AU3.1564482@news2.giganews.com>
Unigni wrote in message ...
>I have a little programming experience, and want to start learning Perl,
>probably for CGI use on the Web... Can anybody suggest what would be the
>best book(s) to get?
Even though it is not a book for the early beginner "Win32 Perl
Programming: The Standard Extensions" is a pretty damned good resource
for Win32 Perl programming.
http://www.roth.net/books/extensions/
Granted my opinion is probably biased. ;)
Cheers,
dave
--
=================================================================
Dave Roth ...glittering prizes and
Roth Consulting endless compromises, shatter
<rothd at roth dot net> the illusion of integrity
http://www.roth.net
Win32, Perl, C++, ODBC, Training
Our latest Perl book is now available:
"Win32 Perl Programming: The Standard Extensions"
http://www.roth.net/books/extensions/
------------------------------
Date: 29 Jul 1999 22:48:00 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Comparing Scalars
Message-Id: <slrn7q282a.fmt.abigail@alexandra.delanet.com>
jverk@mediaone.net (jverk@mediaone.net) wrote on MMCLVIII September
MCMXCIII in <URL:news:7npup0$q72$1@nnrp1.deja.com>:
`` I'm having a problem comparing 3 scalars. In english, here's what I'm
`` trying to do:
``
`` if $scalar1 and $scalar2 and $scalar3 eq ""
`` then do this
`` else do this
``
`` My problem is I don't know the correct way to write the comparison
`` between the variables. If all three variables are null, then do this.
`` If at least one of the variables has a value (any value) then do this.
`` But how do I write this?
Well, one way of writing that in English is:
if the first variable equals the empty string, and the second variable
equals the empty string, and the third variable equals the empty string,
then do this, else do that.
Can you take it from there?
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 29 Jul 1999 22:54:31 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Comparing Scalars
Message-Id: <slrn7q28ef.fmt.abigail@alexandra.delanet.com>
Tom Christiansen (tchrist@mox.perl.com) wrote on MMCLVIII September
MCMXCIII in <URL:news:37a0c85f@cs.colorado.edu>:
:: [courtesy cc of this posting mailed to cited author]
::
::
:: That's a bit magical though, because if you add $scalar4, you might
:: forget to cahnge the leading 3 to 4. It's slightly better in the
:: case of a generic array.
::
:: if (@array == grep { $_ == 37 } @array) {
:: # do case when all members of the array are 37
:: } else {
:: # do case when at least one isn't 37
:: }
All these variations, but you left out the less magical:
if (!grep {$_ != 37} @array) {
# do case when all members of the array are 37.
# (or when none of the members isn't 37.)
} else {
# do case when at least one isn't 37.
}
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Thu, 29 Jul 1999 19:00:18 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Comparing Scalars
Message-Id: <2emqn7.hfr.ln@magna.metronet.com>
jverk@mediaone.net wrote:
: My problem is I don't know the correct way to write the comparison
: between the variables. If all three variables are null, then do this.
^^^^^^^^
s/null/empty string/; # I guess...
: If at least one of the variables has a value (any value) then do this.
: But how do I write this?
if ( "$scalar1$scalar2$scalar3" eq "")
{ print "all three variables are null\n" }
else
{ print "at least one of the variables has a value\n" }
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 29 Jul 1999 22:40:44 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Getting Height and Width of GIF/JPEG in PERL?
Message-Id: <slrn7q27kt.fmt.abigail@alexandra.delanet.com>
Uri Guttman (uri@sysarch.com) wrote on MMCLVIII September MCMXCIII in
<URL:news:x7u2qnplk8.fsf@home.sysarch.com>:
$$ >>>>> "A" == Abigail <abigail@delanet.com> writes:
$$
$$ A> Bill Gates has tried invading or ruining my environment. Billware runs
$$ A> on other peoples computers. Not mine. Not *my* problem. Bill leaves me
$$ A> alone.
$$
$$ <the corrected NOT tried is assumed>
$$
$$ but he has infected your world. think about all those pob newbies you
$$ flame so lovingly. and all the bad perl code out there created by
$$ them. and all the bad html created by redmondware. unfortunately the
$$ redmond disease has infected all computer systems in some way (some much
$$ more than others).
Bullocks. Windows doesn't create stupid coders, and another OS certainly
doesn't prevent stupidity either. Redmondware doesn't have the monopoly
at bad html either.
$$ A> The web however, was supposed to be a common source of information.
$$ A> For all of us. And *that*'s be ruined. And that's something which hurts
$$ A> me. And for which I hold Netscape partially responsible for.
$$
$$ agreed. but the evil empire is much bigger and worse.
For years, one of the items in one of the drop down menus of my copy of
Netscape had the label "The Evil Empire". It was the link to Netscape's
web site.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 30 Jul 1999 00:12:28 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Getting Height and Width of GIF/JPEG in PERL?
Message-Id: <x7wvviojwz.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@delanet.com> writes:
A> Bullocks. Windows doesn't create stupid coders, and another OS certainly
A> doesn't prevent stupidity either. Redmondware doesn't have the monopoly
A> at bad html either.
no, but its epidemic spread has unleashed the hordes of html
'programmers' out there many of which use redmondware to create their
pages which are breaking whatever 'standards' the web has. why do you
think there is a script called the demoronizer (updated by our larry
rosler)?
do you like to read pages on your unix browser which has chars showing
up as '?' ? i get very pissed off at that, more than blink or other
tags. i can ignore blink but i can't read ? (even though it is usually a
' or `).
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 29 Jul 1999 22:57:23 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to determine a date in the past
Message-Id: <slrn7q28k4.fmt.abigail@alexandra.delanet.com>
Steve Walker (Steve.Walker@ing-barings.com) wrote on MMCLVIII September
MCMXCIII in <URL:news:37A07A71.28798CAC@ing-barings.com>:
`` Does anyone know of a way of determining a date in the past, by counting
`` back a specified number of days? Ideally the date would be returned as
`` an integer, i.e. YYYYMMDD.
``
`` Are there any Perl libraries which provide such a function?
Several. The most complete one is Date::Manip. That will let you count
back in English, French, Dutch, Swedish, Polish, German, Spanish, and
Portuguese, using normal days or business days, and in free form as well!
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 29 Jul 1999 23:05:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to determine a date in the past
Message-Id: <slrn7q2946.fmt.abigail@alexandra.delanet.com>
Mesarchm (mesarchm@aol.com) wrote on MMCLVIII September MCMXCIII in
<URL:news:19990729132718.06997.00000334@ng-ch1.aol.com>:
.. This will subtract 1 day from the current date. You can change how far it goes
.. back my adding to the 24,60,60 (Days, Hours, Minutes)
..
.. my ($ss, $mi, $hh, $dd, $mm, $yy) = localtime(time - (*24 * 60 * 60));
my ($ss, $mi, $hh, $dd, $mm, $yy) = localtime(time - (36524 * 24 * 60 * 60));
print "Exactly 100 years ago was: $dd/", $mm + 1, "/", $yy + 1900, ".\n";
prints:
Exactly 100 years ago was: 13/12/1901.
I don't think that's right.
(Not to mention that it might not work around daylight savings time
changeover)
Abigail
--
sub A::TIESCALAR{bless\my$x=>A};package B;@q=qw/Hacker Another
Perl Just/;use overload'""'=>sub{pop @q};sub A::FETCH{bless\my
$y=>B}; tie my $shoe => 'A';print "$shoe $shoe $shoe $shoe\n";
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 30 Jul 1999 03:35:25 GMT
From: flyfishin@iname.com (Tim Morley)
Subject: Re: How to make a backup file ?
Message-Id: <37a11cb3.19321318@news.kcnet.com>
On Thu, 29 Jul 1999 11:49:15 +0900, "Yeong Mo/Director Hana co."
<factory@factory.co.kr> wrote:
>Hi,
>
>There is a file named aaa.txt
>
>Let's think there are directories information in aaa.txt file as following;
>01 | directory-a |.................
>02 | directory-b |.................
>This directory fields are changed when I load other script.
>
>Before aaa.txt file is changed, I want to have a backup file.
>
>Finally, I want to compare two files of new aaa.txt and backup file, and
>delete the old directory from my server which is not still there in new
>aaa.txt file.
>
>If someone has a solution for this, please let me know.
>
>Thanks in advance.
>
>
What are you doing? You have posted "How to make a backup file?",
"How to Copy a file to another name?", and "How to copy a file to
another name in same directory and more?". Are you really trying to
annoy people? You were given a reply. Use File::Copy. It is a
module. If you don't know what a module is go to www.perl.com and see
the FAQ section.
timm
------------------------------
Date: 29 Jul 1999 23:11:29 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to read the submit button as a name or value
Message-Id: <slrn7q29ed.fmt.abigail@alexandra.delanet.com>
Vox (v0xman@yahoo.com) wrote on MMCLIX September MCMXCIII in
<URL:news:Tb6o3.41439$jl.29705745@newscontent-01.sprint.ca>:
%% On my page I have more than one submit button with different names and
%% values ...
%%
%% how can do I get perl to read the input below?
%%
%% <input type=submit name="answer" value="Yes">
%% <input type=submit name="answer" value="No">
%% <input type=submit name="cancel" value="Cancel">
%%
%% I've seen this in other places but don't know how to implement it myself.
Then you lack knowledge of how CGI works. Which means your question
isn't a Perl question, as you wouldn't know how to implement it in C,
Forth or Ada either. You wouldn't even know how to do it in English.
%% To get the users input and configure it I do the code below:
%%
%% read(STDIN, $input, $ENV{'CONTENT_LENGTH'})
Stop! Do not use such code. Why don't you use CGI.pm?
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 29 Jul 1999 23:23:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to trim a String
Message-Id: <slrn7q2a5v.fmt.abigail@alexandra.delanet.com>
Uri Guttman (uri@sysarch.com) wrote on MMCLIX September MCMXCIII in
<URL:news:x76733ouuo.fsf@home.sysarch.com>:
[]
[] BTW tom, you are bouncing me again. please fix this once more. i don't
[] think it is fair that you cc me and i can't mail you just because i use
[] a cable modem. m1rr may have spammers and newbies but i think you know i
[] am not either one. you must have speed envy. :-)
Tom will even bounce your mail if he replies on a reply of a posting
made from AOL, and you Cc: him on a reply you make to his posting.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 30 Jul 1999 00:29:24 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: How to trim a String
Message-Id: <x7pv1aoj4r.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@delanet.com> writes:
A> Uri Guttman (uri@sysarch.com) wrote on MMCLIX September MCMXCIII in
A> <URL:news:x76733ouuo.fsf@home.sysarch.com>:
A> []
A> [] BTW tom, you are bouncing me again. please fix this once more. i don't
A> [] think it is fair that you cc me and i can't mail you just because i use
A> [] a cable modem. m1rr may have spammers and newbies but i think you know i
A> [] am not either one. you must have speed envy. :-)
A> Tom will even bounce your mail if he replies on a reply of a posting
A> made from AOL, and you Cc: him on a reply you make to his posting.
true. i forgot that happened to me recently. it was at first confusing
and then very annoying. i would figure he would filter on the proper
headers rather than any text anywhere. maybe he will see this but i
doubt he will fix his filter. what bugs me the most is he will cc me but
i can't always cc him back.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 29 Jul 1999 22:45:11 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to: run a DOS batch in perl/cgi?
Message-Id: <slrn7q27t7.fmt.abigail@alexandra.delanet.com>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCLVIII
September MCMXCIII in <URL:news:7nprf2$1j8$1@lublin.zrz.tu-berlin.de>:
:: Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
:: >Bart Lateur (bart.lateur@skynet.be) wrote on MMCLVII September MCMXCIII
:: >in <URL:news:37a31487.1973345@news.skynet.be>:
:: >[] Tim Nettleton wrote:
:: >[]
:: >[] >I have need to run a batch file that requests nslookup and ping informat
:: >[] >on several hosts. I would like to have a form on a page that someone ca
:: >[] >just type in the IP or domain and then the .bat file will run in the
:: >[] >CGI-BIN. I have a unix server and a NT server.
:: >[] >
:: >[] >Is this possible?
:: >[]
:: >[] Not on Unix. :-)
:: >
:: >
:: >What part of what he wants to do will not be possible on Unix?
::
:: Running the msdos .bat file?
Where does Tim says he wants to run an *MSDOS* .bat file?
If you read the above quote again, he writes:
... and then the .bat file will run ...
No mentioning of MSDOS.
Now, I know how to execute a file called .bat on Unix. Perhaps you and
Bart don't....
Abigail
--
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 29 Jul 1999 23:31:58 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: is process still running?
Message-Id: <slrn7q2akv.fmt.abigail@alexandra.delanet.com>
Martien Verbruggen (mgjv@comdyn.com.au) wrote on MMCLIX September
MCMXCIII in <URL:news:bx8o3.95$g91.7238@nsw.nnrp.telstra.net>:
[] In article <7nq361$t7n$1@nnrp1.deja.com>,
[] mrduane@my-deja.com writes:
[] > Is there a function call available that can tell me if a UNIX process is
[] > still running, given that I have the pid?
[]
[] Yes, kill will, but it's not a perl question. The perl kill just calls
[] the systems' kill. It's really a question about unix, and a usenet
[] group that talks about unix programming would have been more
[] appropriate.
[]
[] # perldoc -f kill
[] [snip]
[] See L<perlipc/"Signals"> for details.
[]
[] # perldoc perlipc
[] [snip]
[] Another interesting signal to send is signal number zero.
[] This doesn't actually affect another process, but instead
[] checks whether it's alive or has changed its UID.
[] [snip]
That's a confusing line. If the process died, but has changed UID,
will a 'kill 0, $pid' return a true value? ;-)
It could be they meant "but instead checks whether it's alive and
has not changed its UID".
Which means that depending on the two cases above, if the process has
changed UID, a kill 0 might give a false positive, or a false negative.
Am I missing something, or is the documentation wrong?
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 29 Jul 1999 23:36:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Modules for Dummies
Message-Id: <slrn7q2ats.fmt.abigail@alexandra.delanet.com>
Warren Bell (warish@concentric.net) wrote on MMCLVIII September MCMXCIII
in <URL:news:7nqpq2$ata@journal.concentric.net>:
;; I would like to learn how I can use modules in my programs. I am finding it
;; hard to understand. I have read the perlmod pages and I am still lost.
;;
;; Any good books on the subject?
That's kind of a subjective question. If you want to learn more about
usuage of modules, I'd recommend:
- Nigel Chapman: "Perl, The Programmers Compagnion". Wiley, 1997.
- Tom Christiansen and Nathan Torkington: "The Perl Cookbook".
O'Reilly, 1998.
- Larry Wall et al.: "Programming Perl, 2nd Edition", O'Reilly, 1996.
;; I have very limited programing knowledge. I don't want to learn how to write
;; a module, I just would like to take advantage of them.
Using modules is actually pretty simple.... Not to much to write about.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 30 Jul 1999 03:11:33 GMT
From: roger@no-spam.isgwds.enterprise.net (Roger Stenning)
Subject: Re: NEWSFLASH: Supremes rule anti-advert-ware illegal
Message-Id: <379f9048.6514125@news.enterprise.net>
On 28 Jul 1999 14:28:01 -0700, Tom Christiansen <tchrist@mox.perl.com>
wrote:
Had me going, until I read the following...
>Users not applying the patch will be subject to criminal persecution
>and forfeiture of their first-born child.
Whereupon, I re-checked the dateline at the top...
> March 32, 2002
Y'know, that would've been one of the best April Fools for you to have
saved up for next year. Pity.
Still, Nice one. Got me, just about!
Best regards,
Roger Stenning
ISG Web Design Services
http://www.abel.net.uk/~isg/index.html
Hobby pages at http://www.geocities.com/Area51/Station/5037/
------------------------------
Date: 30 Jul 1999 00:06:13 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: OOP question.
Message-Id: <x71zdqpyru.fsf@home.sysarch.com>
bad boy!! you stealth cc'ed me. i am glad i looked for a followup before
i replied to the email. do it again, and i will make sure your objects
will never inherit anything again!
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: 29 Jul 1999 23:42:56 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: OOP question.
Message-Id: <slrn7q2b9h.fmt.abigail@alexandra.delanet.com>
Randal L. Schwartz (merlyn@stonehenge.com) wrote on MMCLVIII September
MCMXCIII in <URL:news:m1zp0f2wb7.fsf@halfdome.holdit.com>:
||
|| So, you're being asked to do an exercise that first deals with
|| multiple inheritance (usually a sign of bad design)
Really? Refering to the class structure of Eiffel: if you were to make
the class "integer", which class shouldn't it inherit, "numeric" or
"comparable"?
Just because the Java development team found it hard to implement MI
doesn't make MI "bad design". ;-)
Abigail
--
You cannot have OO without MI, and be serious about code reuse at the same time.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 29 Jul 1999 23:52:33 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: OOP question.
Message-Id: <slrn7q2bri.fmt.abigail@alexandra.delanet.com>
Eugene van der Pijll (pijll@phys.uu.nl) wrote on MMCLVIII September
MCMXCIII in <URL:news:pijll.933272701@ruunat.phys.uu.nl>:
""
"" According to perlobj,
"" Changing @ISA or defining new subroutines invalidates the
"" cache and causes Perl to do the lookup again.
""
"" So I assume that the behaviour of my program is well-defined. Or has
"" this changed in newer versions of perl?
Yes. ;-) Despite being documented, older versions of Perl *don't*
invalidate the cache when you change @ISA. I reported this sometime
in 1997 after I wrote a program that modified its @ISA and it my
program didn't work.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Thu, 29 Jul 1999 19:08:30 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: paging text
Message-Id: <etmqn7.hfr.ln@magna.metronet.com>
John Pavlakis (johnp@vcimail.com.remove.me) wrote:
: How do I page text read from STDIN or a file so it does not scroll all at
^^ ^^^^^^
: once? I am using NT and Unix. Thank you.
Your question makes no sense.
Input does not go the screen, therefore it cannot scroll.
Surely you mean output?
If so, you get it to page the same way you get the output from
any program to page (by feeding it into a paging program).
my_script arg1 arg2 | more
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 30 Jul 1999 04:34:37 GMT
From: tcsh@holly.colostate.edu (Mike G.)
Subject: perldoc -q : not giving expected results
Message-Id: <slrn7q2b53.s6k.tcsh@localhost.localdomain>
I presume that an example of searching the faq would be :
perldoc -q hash
Yet, no matter what I put in place of hash, I always get the same two answers.
=head2 Why am I getting long decimals (eg, 19.9499999999999) instead of the
numbers I should be getting (eg, 19.95)?
=head2 What is the difference between $array[1] and @array[1]?
Am I missing something about what args perldoc needs?
version 5.004_04
thanks,
--
Mike G.
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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 V9 Issue 305
*************************************
