[12987] in Perl-Users-Digest
Perl-Users Digest, Issue: 397 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 6 01:07:21 1999
Date: Thu, 5 Aug 1999 22:05:11 -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, 5 Aug 1999 Volume: 9 Number: 397
Today's topics:
Re: "use constant", not much fun <rick.delaney@home.com>
[ANNOUNCE] New modules VcsTools::File <domi@barrayar.grenoble.hp.com>
ANNOUNCE: Net::Whois 1.0 dhudes@hudes.org
ANNOUNCE: New module Pquota dbonner@cs.bu.edu
ANNOUNCE: String::StringLib 1.00 <powers@b2pi.com>
Re: Complex data structure (Abigail)
Congressional Actions threatens programmer pay rates en <limit_h1b_visas@yahoo.com>
Re: DOS "EOF" (CTRL-Z??) <kenhirsch@myself.com>
Efficient way to use ping...? <seongbae@students.uiuc.edu>
Efficient way to use ping...? <seongbae@students.uiuc.edu>
Re: Efficient way to use ping...? (Martien Verbruggen)
Re: FAQ doesn't work in this case! (Martien Verbruggen)
Re: Free Online Training <uri@sysarch.com>
Re: Is there any way to get user name (Abigail)
just days away f7.8ez5.88ox <The@reject.kewlhair.com>
Re: MATCH CASES AND PRINT TO A FILE <rick.delaney@home.com>
Module release - HTML::CalendarMonth <sisk@mojotoad.com>
Module release - HTML::ElementTable <sisk@mojotoad.com>
Re: Nastiness contrary to the spirit of perl? (Abigail)
Re: NE Deprecated? (Abigail)
newbie Q, about getting stuff out of a file (BXTC)
Perl programming standards <diffs@vsnl.com>
Re: Perl/CGI problem: Getting Web Documents from within (Abigail)
Re: Problem reading forms with perl <cassell@mail.cor.epa.gov>
Re: Re(2): Inconsistancy between Perl's @INC and @ISA <uri@sysarch.com>
Re: Use shell for 'ls *.*' & Create new file ?? (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 06 Aug 1999 04:29:52 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: "use constant", not much fun
Message-Id: <37AA64A2.B59BC47B@home.com>
[posted & mailed]
Andrew Torda wrote:
>
> use constant FOO=>'moo';
>
> my $s ="moo_string";
> if ( $s =~ /FOO/) { # Test always fails
> print "found moo from FOO\n"; }
> if ( $s =~ /moo/) { # test succeeds
> print "found moo from simple string\n"; }
>
> Is there some fancy perl quoting mechanism to make the first
> test above succeed ?
Yes, but it won't be any prettier than your alternative.
> Obviously it works if one copies FOO into
> some variable and uses that as the pattern.
Constants are implemented using subroutines which are not interpolated
in strings. But you can't really expect a constant to be interpolated,
regardless of how it's implemented. If it were, how would you ever
print the word, "FOO"?
> Similarly, if I want to open a file whose name is given by a
> constant, it seems I have to use the concatenation operator
> like:
>
> open (FILE2, '<'.FOO) || die "open fail on ", FOO;
> Is there some fancy perl syntax which makes it prettier ?
> Perhaps it is my judgement that it broken and perl hackers
> like the constructions above.
It doesn't look that bad to me. Certainly better than
open FILE, "<${\FOO}" or die "Can't open ${\FOO}: $!";
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 6 Aug 1999 04:14:36 GMT
From: Dominique Dumont <domi@barrayar.grenoble.hp.com>
Subject: [ANNOUNCE] New modules VcsTools::File
Message-Id: <7odnfc$4m8$1@play.inetarena.com>
Hello
I've like to announce the release of the VcsTools::File package.
The VcsTools-File package is a set of object which enable you to
perform a lot of functions to a Vcs file :
- check-in, check-out, lock, unlock files
- edit (by launching a xemacs gnuclient)
- history analysis (through VcsTools::History)
- keep a cache in a MLDBM file so that a history retrieve is not necessary
each time you start the tool.
Suggested DSLI line:
VcsTools::File bdpO VCS file management tools DDUMONT
Note that only HP HMS and RCS are currently implemented. See below to
port VcsTools to another VCS system.
HMS is part of the HP Softbench CM product.
If this address is reachable from your site, you can get more info on
HMS at: http://www.hp.com/esy/go/softbench.html
The classes defined in this package are:
- File: This class contains the History and access all other agent
objects which represent the "real" world (Vcs interface, file system
interface, process interface). Note that the objects representing
the "real world" are passed to the constructor of File. So you can
re-define your own "real world" class, instanciate them in your
application and and use them within File without modifying the File
class.
- FileAgent: Class to perform basic file functions such as remove,
chmod...
- HmsAgent: Class which defined the command needed to perform
operation on the HMS database. (such fci, fco ...). Note that only
this class should be re-written on order to provide an access to
other VCS systems.
- RcsAgent: Class which defined the command needed to perform
operation on the RCS database. (such ci, co ...). You may want to
make a diff between HmsAgent and RcsAgent to know what's involved in
adapting VcsTools to another VCS system.
- Process: Tiny module which runs processes (currently in blocking
mode) and returns 1 or 0 according to the result of the sub-process.
Porting VcsTools to another VCS system
--------------------------------------
When creating a File object, you pass it a class name which will be the
interface to the VCS system you want to use.
Hence if you want to use a FOO VCS system, you must:
- create a FooAgent class (check the difference between HmsAgent and
RcsAgent to know what's involved in adapting VcsTools to your VCS
system) which respect the API defined for HmsAgent or RcsAgent.
- Pass the "VcsTools::FooAgent" name to the VcsTools::File constructor.
Et voilà, that's all you need to do.
I'd like people who actually use this module for their application to
drop me a short note about what they're using this module for.
Share and enjoy
--
Dominique_Dumont@grenoble.hp.com
------------------------------
Date: 6 Aug 1999 04:15:07 GMT
From: dhudes@hudes.org
Subject: ANNOUNCE: Net::Whois 1.0
Message-Id: <7odngb$4ps$1@play.inetarena.com>
I have taken over development of this module. Currently the
Net::Whois::Domain will get information for any domain query in .com,
.edu, .org from the whois.internic.net server. This is what it was
always supposed to do but it hasn't worked in a long time due to
changes in the format of the information returned by the WHOIS server.
New features will be added to support queries for IP address
information from ARIN and also fix .arpa domain support (which
currently goes to ARIN but the result is not properly parsed.
Future work will add support for all TLDs. 1st those that actually
have a whois server (several do not) and NIC handles.
After that, probably queries to the route arbiter (whois.ra.net) and
the RIPE database (whois.ripe.net).
Please e-mail me if you have bugs. Include full platform information.
This module is written in pure Perl, tested under RedHat Linux 5.2
with Perl 5.005_03 (with -w) . It should work on any UNIX perl. I have
seen many odd things with ActiveState Perl build 518 on windows 95/98
and would not be suprised if this did not work too.
------------------------------
Date: 6 Aug 1999 04:14:01 GMT
From: dbonner@cs.bu.edu
Subject: ANNOUNCE: New module Pquota
Message-Id: <7odne9$4m7$1@play.inetarena.com>
I've just posted the first version, 1.0, of Pquota to CPAN. It's
work I did while trying to create a print quota system for Solaris.
I figured most of the work should be reusable, so I rolled the code
up into a module.
Basically, Pquota is just a wrapper around MLDBM, with some file
locking sanity stuff thrown in there. Pretty much all of the
scripts I had to write after I got this done were just single
function calls. In any case, it might not be at all the CPAN
mirrors yet, so if you're looking for a copy, try
http://www.perl.com/CPAN/modules/by-authors/David_Bonner/Pquota-1.tar.gz
Hope somebody can use this. Please email me if you find any bugs
in the code. Thanks.
--
david bonner
dbonner@cs.bu.edu
---------------------------------------------------------------------
"I dare do all that may become a man; Who dares do more is none."
------------------------------
Date: 6 Aug 1999 04:15:20 GMT
From: "Brent B. Powers" <powers@b2pi.com>
Subject: ANNOUNCE: String::StringLib 1.00
Message-Id: <7odngo$4qb$1@play.inetarena.com>
DLSI=Rdcf
String::StringLib available at
http://www.perl.com/CPAN/authors/id/BPOWERS/String-StringLib-1.00.tar.gz
Silly string functions that I use a lot.
String::StringLib::StripSpace Remove all white space from a string
String::StringLib::StripTSpace Remove all trailing white space from a string
String::StringLib::StripLSpace Remove all leading white space from a string
String::StringLib::StripLTSpace Remove all l & t white space from a string
These tend to be about 30% faster than the equivalent regex code.
Normal install (perl Makefile.PL && make && make test && make install)
--
Brent B. Powers
B2Pi
------------------------------
Date: 5 Aug 1999 23:29:24 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Complex data structure
Message-Id: <slrn7qkp3u.uij.abigail@alexandra.delanet.com>
Derek Thomson (derek@dstc.com) wrote on MMCLXVI September MCMXCIII in
<URL:news:37AA3351.E522E2E0@dstc.com>:
`` > In article <FFzL6I.1yH@csc.liv.ac.uk>,
`` > ijg@connect.org.uk (I.J. Garlick) wrote:
`` > >
`` > > map {print "Code = $_\n"} @{$Codes{$Comp}};
``
`` Map in a void context. Why build a list that you're going to throw away?
Don't blame him for a long standing bug in Perl. It can't be that
bad, else the bug would have been fixed long time ago.
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, 6 Aug 1999 00:31:00 -0400
From: "Walker Rowe" <limit_h1b_visas@yahoo.com>
Subject: Congressional Actions threatens programmer pay rates encore
Message-Id: <7odof9$1jt$1@autumn.news.rcn.net>
Do you want to write code for $15 per hour? That might be your future if
you do not lobby Congress regarding yet another expansion of the H1B visa
law. As you know last year Congress increased the number of H1B visas so
that 135,000 foreign computer programmers could come to the United States.
In previous years that program was limited to 65,000 people. But the
135,000 programmer cap was reached in the first five months of this year, so
Silicon Valley is clamoring for more.
The market is good now and you are making lots of money. But what will you
do when we have another recession? And how will you find a job make if your
résumé is buried under and avalanche of Indian, Chinese, Filipino, and
European curriculum vitae.
It stymies the mind why even liberal, pro-labor members of Congress, like
Senator Barbara McCulsky, would embrace this threat to our livelihoods. To
understand these sentiments you have to consider that the next presidential
election looms over the horizon. Democrats and Republicans alike are
clamoring for the attention and campaign contributions of Microsoft,
PriceWaterhouseCoopers, Lucent Technologies and other huge importers of
expatriate talent. Congress will do whatever Silicon Valley wants because
their support is crucial to control of Capitol Hill and the loss or
retention of the White House.
So our efforts to influence this debate are made heavy stacked up against
big moneyed computer firms who want to hire cheap offshore labor. But if
you and your friends write to your representative perhaps we can make change
some opinions. Please forward this e-mail to all of your peers and post it
in C++, Oracle, UNIX, Peoplesoft, and all the usenets and listserv Internet
sites that you can find.
The last time I wrote about this pocket money issue, hundreds of smug
Europeans and contract programming Asians flamed me with hate mail. They
accused me of Pat Buchanan style protectionism or, worse, racism. That
indeed is an ugly slur. So let me counter the forthcoming wave of animosity
with some well-reasoned words of my own.
To my European friends I would say why don't you improve your own economy
and quit doffing off ours? :"On the dole", isn't that what you Brits say?
To the French and Germans I say why protect your farmers with subsidized
crops. Your European and French parliaments are dominated by Socialists.
Your 17% VAT tax stymies free enterprise and hinders entrepreneurs. Quit
taxing your citizens so heavily. Give your employers the right to fire
workers and allow your businesses to award stock options. Then you won't
have to suffer 20% unemployment in Spain. What happened to the
freedom-loving ideas of the French revolution? In 1789 the words "liberté,
egalité, fraternité" meant freedom from the clutches of bureaucracy. Bring
back Voltaire and Robespierre and toss out Jacque Delors.
But as we all know Europeans are only the most vocal lot of high tech
immigrants. By far the biggest abusers of our generous immigration laws
wish to attract little attention and tend to remain mum. These are the
Indians. Fully 42% of H1B visa go to overseas Indians. Why don't you
Indians practice a little capitalism in Delhi and Bombay and rid your
economy of socialist law? I don't dislike you personally-I have many Indian
friends and enjoy reading V.S. Naipal and Salman Rushdie. And "Karma Sutra"
was a hell of a movie. But when you flock here by the millions I must
protest.
To help frame this debate, the American reader of this letter needs some
historical perspective of India and the Indian diaspora. During the 1970
while the United States fought a proxy war with the Russians in Afghanistan
Indian was a Soviet ally. The Indian economy was and in many ways today
remains officially socialist. Coca-Cola could not even sell their products
there. You could buy a Coke in Katmandu but in India they had to slap a
non-American label on their product lest they offend the local soda pop
bottler. And now Indian threatens world peace with their reckless
experiments with nuclear weapons. No doubt their scientists garnered the
know how to build these bombs from American universities.
East African and Fiji Island have log been overrun by Indians. Kenya was so
thoroughly disgusted by their presence that they kicked out the entire
Indian population in the 1970s. The president did not like that the thrifty
Indians lived their lives completely apart from Kenyan culture. The money
that they made they sent back home. Their young men flew home to Indian to
find a bride. If you want to read about this episode in history read the
Indian writer Srinivas Naipal's "North of South: An African Journey".
Indians come to the U.S. to find work and enjoy our democracy. Their
country claims to be the largest democracy on earth. But the way they treat
each other is hardly democratic. Indian culture is divided into castes-the
untouchables are at the bottom and the brahmins at the top. People of one
caste do not marry or mingle with members of another caste. In Indian most
marriages are arranged and accompanied by a dowry. In some cases, if the
dowry paid in gold is not enough to please the husband then the bride is
tossed onto a pire and burned to her death.
If you want to know what the English thought of the Indians during the
British Raj then you should read George Orwell's "Burmese Days". (Burma is
not actually Indian but these people are Indians. I forget if Burma was
once called East India but Pakistan was West India until 1970.) During the
British Raj the Indians were not allowed to join the English clubs. They
lived under a system of apartheid and were frequently referred to using the
n-word. Horrible I know, but that is their history.
So to you European and Indian programmers I say stay over their and brighten
up your own economy by embracing the ideas of Margaret Thatcher and Ronald
Reagan style capitalism. They did it in Hong Kong. They did it in
Singapore. If you create some jobs over there you wont need to work here.
Then we will welcome you as tourists and you can even come to my house. We'
ll share some mango pickles and green chilis.
Regards,
Walker Rowe
------------------------------
Date: Fri, 6 Aug 1999 00:35:14 -0400
From: "Ken Hirsch" <kenhirsch@myself.com>
Subject: Re: DOS "EOF" (CTRL-Z??)
Message-Id: <7odopr$7he$1@ash.prod.itd.earthlink.net>
Stuart Slaugh <ohyeahh@worldnet.att.net> wrote:
[cc'd]
> I am a new perl programmer.Whenever I attempt to read a list of
> strings from STDIN into an array, I am unable to indicate EOF in the
> usual manner; e.g., pressing CTRL-Z. Each time I do this, the program
> terminates and I am returned to the command prompt. I am using
> ActiveState under Win98. Here is the code: ( this is from an exer-
> cise from the "Camel" book)
>
> print "Enter a number: ";
> chomp($num = <STDIN>);
> print "Enter some strings: ";
> @a = <STDIN>;
> print "The word is: $a[$num - 1];
>
I'm not sure exactly what is happening, but if you
print "\n";
before
print "The word is: $a[$num - 1]";
then you'll see the output.
Anybody know what's going on?
By the way, the code you posted is missing a quote ". You should carefully
cut and paste your actual code.
------------------------------
Date: Thu, 5 Aug 1999 23:44:35 -0500
From: seong joon bae <seongbae@students.uiuc.edu>
Subject: Efficient way to use ping...?
Message-Id: <Pine.GSO.4.10.9908052344100.22198-100000@ux8.cso.uiuc.edu>
Hello,
I'm writing a script that will ping another machine and checks if the
machine is up or down.
I can come up with a few ways to implement this...such as getting the
string after the ping command and compare if it's an integer or
string..etc.
but is there a more efficient way to do this?
also, how come some ping returns 'such such is alive' and some ping
returns packets sent and received..?
Thank you for your help.
=D
------------------------------
Date: Thu, 5 Aug 1999 23:43:02 -0500
From: seong joon bae <seongbae@students.uiuc.edu>
Subject: Efficient way to use ping...?
Message-Id: <Pine.GSO.4.10.9908052339270.5883-100000@ux9.cso.uiuc.edu>
Hello,
I'm writing a script that will ping another machine and checks if the
machine is up or down.
I can come up with a few ways to implement this...such as getting the
string after the ping command and compare if it's an integer or
string..etc.
but is there a more efficient way to do this?
also, how come some ping returns 'such such is alive' and some ping
returns packets sent and received..?
Thank you for your help.
=D
------------------------------
Date: Fri, 06 Aug 1999 05:04:46 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Efficient way to use ping...?
Message-Id: <O1uq3.8$45.828@nsw.nnrp.telstra.net>
In article <Pine.GSO.4.10.9908052344100.22198-100000@ux8.cso.uiuc.edu>,
seong joon bae <seongbae@students.uiuc.edu> writes:
> Hello,
> I'm writing a script that will ping another machine and checks if the
> machine is up or down.
# perldoc Net::Ping
Martien
--
Martien Verbruggen |
Interactive Media Division | This matter is best disposed of from a
Commercial Dynamics Pty. Ltd. | great height, over water.
NSW, Australia |
------------------------------
Date: Fri, 06 Aug 1999 05:03:53 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: FAQ doesn't work in this case!
Message-Id: <Z0uq3.6$45.828@nsw.nnrp.telstra.net>
In article <7odjtr$d4o$1@nnrp1.deja.com>,
inlandpac@my-deja.com writes:
> use HTML::Parse;
> use HTML::FormatText;
> $text = HTML::FormatText->new->format(parse_html($tResponse));
I never used HTML::FormatText myself, but is this how you're supposed
to use it?
# man HTML::FormatText
[snip]
require HTML::FormatText;
$html = parse_htmlfile("test.html");
$formatter = HTML::FormatText->new(leftmargin => 0, rightmargin => 50);
print $formatter->format($html);
[snip]
Wouldn't that in your case become something like:
use HTML::FormatText;
my $fmt = HTML::FormatText->new();
my $text = $fmt->($tResponse);
(With the appropriate error checking on the construction and the
format)
Martien
--
Martien Verbruggen |
Interactive Media Division | Make it idiot proof and someone will
Commercial Dynamics Pty. Ltd. | make a better idiot.
NSW, Australia |
------------------------------
Date: 06 Aug 1999 00:36:28 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Free Online Training
Message-Id: <x7d7x1h6er.fsf@home.sysarch.com>
>>>>> "m" == mabidex <mabidex@my-deja.com> writes:
m> For a free MCSE Microsoft Approved
m> Online Certification Training learning session
m> or Windows 98 Session,
will someone take this stupid spamming asshole out and shoot him? does
he really think that this would be a good group to spam for redmond
wallpaper?
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: 5 Aug 1999 23:36:46 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Is there any way to get user name
Message-Id: <slrn7qkphp.uij.abigail@alexandra.delanet.com>
Michael Wang (mwang@tech.cicg.ml.com) wrote on MMCLXV September MCMXCIII
in <URL:news:7od5ll$9nh$2@news.ml.com>:
\\ if user "foo" swicthed to root with su, which user
\\ name you want to get?
\\
\\ getlogin() => foo
\\ ( getpwuid($<) ) [0] => root
More symmetrical, and no silly list context:
$foo = getpwuid $>;
$root = getpwuid $<;
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== 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, 6 Aug 1999 03:43:31 -0500
From: reject <The@reject.kewlhair.com>
Subject: just days away f7.8ez5.88ox
Message-Id: <199908060843.DAA06280@reject.kewlhair.com>
This is your last warning! Read CAREFULLY and be edified:
THAT 'MONSTRIFEROUS' COMET LEE will be seen during the
solar eclipse this August 11th, followed by WWIII, the
1300-meter "King of Terror" meteoroid impact before 10
October 1999, and *many* catastrophic events, including
the 20+ degree shifting of the polar axis before 2002!
The Tribulation prophesied even by our Lord and Savior
Jesus Christ is begun. ANSWER THIS: Are *you* prepared?
The next three months are charted below for reference
(Hebrew calendar dates begin at sunset the day before):
August
S M T W T F S
1 2 3 4 5 6 7
8 9 10 11* 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31
*August 11th total solar eclipse;
2001 tropical-solar years after
the birth of Jesus the Nazarene;
COMET LEE seen during totality,
watch and see...keyword: WATCH!
September
S M T W T F S
1 2 3 4
5 6 7 8 9 10 11*
12 13 14^ 15 16 17 18
19 *20* 21 22 23+ 24 25>
26 27 28 29 30
*Rosh ha-Shannah[1 Ethanim]
^old Julian September 1st
**Yom Kippur[10 Ethanim]
+Equinox @ 11:31 AM GMT
>Succoth[15-21 Ethanim]
(Feast of Tabernacles)
October
S M T W T F S
1 2*
3 4 5 6 7 8 9
10< 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
*Last Great Day[22 Ethanim];
<K.O.T. before October 10th!
----
Realize, this is ALL about our Lord YHSH, the Christ:
-Jesus was born before sunrise Monday, August 12, 3 BC.
-Jesus was visited by the Magi Tuesday, June 17, 2 BC.
-Jesus was baptised on Saturday, September 20, 27 AD.
-Jesus rode into Jerusalem Saturday, April 21, 31 AD.
-Jesus was crucified on Wednesday, April 25, 31 AD at
9 AM, and died shortly after 3 PM that afternoon; His
body was entombed after sunset the eve of the Sabbath.
-Jesus was resurrected early Saturday evening, April 28,
31 AD. This fact was discovered at 5 AM Sunday morning.
-Jesus was 11,944 days of age at His crucifixion. He'd
lived 32 years/36 weeks/4 days. Now He lives forever.
Indeed, August 11, 1999 is 2001 tropical-solar years plus
one day after the birth of Jesus Christ, counting from
Monday, August 12, 3 BC[Julian Day 1720551] to Wednesday,
August 11, 1999[Julian Day 2451402]. This is a difference
of 2451402 - 1720551 = 730,851 days; divide that by the
actual number of days per tropical-solar year[365.242199]
and you get 2001.0037 years, or 2001 years + 1 day!
And look at August 13th--Aztec "13 Cane"[Phoenix Rising]--
since August 13th is exactly 2001 Hebrew Calendar years
after the birth of Jesus, counting from 1 Elul 3758 to
1 Elul 5759, which is exactly 2001 lunisolar calendar
years to the day: "And there shall be signs in the sun,
and in the moon, and in the stars"[ref. Luke 21:25]. See?
This is no mere coincidence my friends. The Lord is Present.
&Once you are in the Spirit of the Lord's Day, you'll understand
the present earthchanges, and you'll know that the outcome is
foreordained by God from the beginning, that it is His prophecy
fulfilled because His Word---His Law---is Immutable(as always)!
Godspeed,
Daniel
------------------------------
Date: Fri, 06 Aug 1999 04:15:12 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: MATCH CASES AND PRINT TO A FILE
Message-Id: <37AA6131.C7A7AD54@home.com>
[posted & mailed]
David Cassell wrote:
>
> If you have Perl 5.005 you can write that as
>
> print OUTFILE if /expression/;
I don't have access to it right now to confirm, but I'd be very
surprised if that didn't work in Perl4. I've never had an older version
but I'll bet it goes back even farther than that.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 6 Aug 1999 04:13:51 GMT
From: Matt Sisk <sisk@mojotoad.com>
Subject: Module release - HTML::CalendarMonth
Message-Id: <7odndv$4m0$1@play.inetarena.com>
Based on HTML::ElementTable, this module is an HTML::Element style
structure for rendering and manipulating calendar months. The resulting
structure can be intermingled with any other HTML::Element trees. It
comes with support for 'week of the year' counts, arbitrary 1st day of
the week definitions, and aliasing for expressing months and days in
whatever language HTML can handle.
>From the README:
HTML::CalendarMonth is a module that simplifies the rendering of
a calendar month in HTML. It is NOT a scheduling system.
HTML::CalendarMonth is a subclass of HTML::ElementTable. See the
HTML::ElementTable(3) manpage for how that class works, for it
affects this module on many levels. Like HTML::ElementTable,
HTML::CalendarMonth behaves as if it were an HTML::ElementSuper,
with methods added to easily manipulate the appearance of the
HTML table containing the calendar. In addition to the row and
column *cell* based methods provided in HTML::ElementTable,
there are analogous methods based on *items*, or the symbols
contained in the calendar cells. For instance, `$c->item(15)'
returns the cell containing the 15th, and `$c->item($c->year())'
returns the cell containing the year. Groups of item cells can
be manipulated as if they were single elements. For example,
`$c->daycol('Su')' would affect all days in the same column as
the 'Su' header.
The module will one day be on CPAN, but for now you can find the
distribution and examples on:
http://www.mojotoad.com/sisk/projects/HTML_CalendarMonth/
This module has been discussed around here before, under various names
such as HTML::Cal and HTML::Calendar (but never on CPAN). It has been
significantly debugged and enhanced since then.
Feel free to contact me with questions and comments.
Thanks,
Matt Sisk
sisk@mojotoad.com
------------------------------
Date: 6 Aug 1999 04:13:38 GMT
From: Matt Sisk <sisk@mojotoad.com>
Subject: Module release - HTML::ElementTable
Message-Id: <7odndi$4lv$1@play.inetarena.com>
This is actually a set of modules packaged as HTML_Element_Extended,
which includes other handy element extensions besides table
manipulation. The table module, other than rendering tables in HTML, has
little in common with the existing HTML::Table module.
>From the README:
HTML_Element_Extended is a package of several enhanced
HTML::Element classes, most of which arose during the effort
to implement an HTML::Element based table class.
The modules are:
HTML::ElementTable
HTML::ElementSuper
HTML::ElementGlob
HTML::ElementRaw
The resulting functionality enables:
tables
element globs
content replacement
content wrapping
content/self cloning
raw HTML string adoption
The package will one day be on CPAN, but for now you can find the
distribution and examples on:
http://www.mojotoad.com/sisk/projects/HTML_Element_Extended/
This stuff has been discussed around here before, but it was then living
in the HTML::Element::* namespace (though not on CPAN). I have
consolodated and debugged it considerably since then.
Feel free to contact me with questions and comments.
Thanks,
Matt Sisk
sisk@mojotoad.com
------------------------------
Date: 5 Aug 1999 23:40:05 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <slrn7qkpnv.uij.abigail@alexandra.delanet.com>
why@invite.spam (why@invite.spam) wrote on MMCLXVI September MCMXCIII in
<URL:news:37b92b8c.28213659@news.iag.net>:
<>
<> Let me restate as a concept: Let the defective users drown (nature's
<> way). Help those who deserve it - those who help themselves, to a
<> reasonable degree. If you can't stand to hear the cries for help, plug
<> your ears.
I really do loathe people who give advice, but don't follow it themselves.
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: 5 Aug 1999 23:07:15 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: NE Deprecated?
Message-Id: <slrn7qknqe.uij.abigail@alexandra.delanet.com>
Tom Christiansen (tchrist@mox.perl.com) wrote on MMCLXVI September
MCMXCIII in <URL:news:37aa4790@cs.colorado.edu>:
$$ [courtesy cc of this posting mailed to cited author]
$$
$$ In comp.lang.perl.misc,
$$ Jim Williams <james.p.williams@usahq.unitedspacealliance.com> writes:
$$ :Why is NE deprecated?
$$
$$ Don't tell anybody I told you this, but that's the FORTRAN compatibility
$$ mode. Witness:
$$
$$ % perl -le 'print uc "fred" EQ "FRED"'
$$ 1
And they say everything is found in the manual!
Djee, I wonder which other cute Easter eggs there are.... ;-)
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
-----------== 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, 06 Aug 1999 04:57:07 GMT
From: "(BXTC)" <bxtc@forfree.at>
Subject: newbie Q, about getting stuff out of a file
Message-Id: <DWtq3.837$gO2.47196@monger.newsread.com>
OK, I am fairly new to Perl...I have used it a little bit but usually only
2/3 times a year...and have never been trained so I forget everything
everytime I stop using it. Anyway, I'm using linux and a fairly new version
of perl. My problem is that I have a file that lists a bunch of other files
in it....like I just output "ls" to a file. They are listed like this....
file.txt
file2.jpg
file3.tif
file4.pl
etc. and I need to extract the file names of each entry with the extention
of ".jpg". So out of the above list I would only need "file2.jpg". I would
like to assign each .jpg file its own variable/hash, or what ever is more
appropriate.
So I need to open the file ....open(IL, filelist.txt);......find all lines
matching the jpg pattern.....If (IL =~ /.jpg/)..???.............then assign
each line that matched to different variable.....$_ = $v1(although the last
two will need to be looped somehow).......then close the file and continue
with my program. I think it is easy, I'm just new, and could use some help!
I'm sorry for bothering you all with this, I have used perldoc to get this
far(I have other parts of the program working), but I also have a deadline,
and I don't think I'll figure it out by then by myself(and I'm the only
computer literate one at my work). Again, I'd be very greatful for any
assistance.
Thanks again
------------------------------
Date: Fri, 6 Aug 1999 10:25:14 +0530
From: "Murali V" <diffs@vsnl.com>
Subject: Perl programming standards
Message-Id: <7oeu8u$jn2$1@news.vsnl.net.in>
Hi,
I'm looking for some document which will give me perl programming standards.
Can anyboody give me any pointers.
Thanks,
Murali
------------------------------
Date: 5 Aug 1999 23:50:18 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl/CGI problem: Getting Web Documents from within my CGI!
Message-Id: <slrn7qkqb4.uij.abigail@alexandra.delanet.com>
Michael R. Seringhaus (m.seringhaus@utoronto.ca) wrote on MMCLXV
September MCMXCIII in <URL:news:FG0Mq4.67K@campus-news-reading.utoronto.ca>:
;; Can anyone help me with this CGI hurdle?
;;
;; I haven't been programming Perl all too long, although I'm relatively
;; competent with the basics... I've written some cgi scripts to handle HTML
;; forms and send mail, etc, but I have a crippling problem:
;;
;; I can't access HTML documents from inside my script!
;;
;; I've looked everywhere -- CPAN, many open source developer locations, and
;; all the examples I've found seem to fall into one of two categories:
;;
;; 1) Simply redirects browser to proper URL with print "Location:
;; http://....";
;;
;; 2) Makes a terribly complex series of calls to modules that I don't have
;; (LibWWWPerl, URI, etc; and even if I get them from CPAN, I don't think my
;; webserver has them, and there's not much I can do about that!)
Read the faq.
;; What I want to do seems easy in principle. I want to have my perl script (a
;; CGI) take user input and query a series of web pages, then grab all the HTML
;; that these HTTP requests generated, parse it, pick out the useful bits and
;; slam it all into a file or e-mail.
;;
;; Thus, I do not want the user's browser to jump to the page I'm querying, and
;; as I said before I want to try to avoid all those modules if possible.
Well, that's certainly possible. But it's equivalent to doing your
laundry without a washing machine or soap. Or making a 5 course
dinner over an open fire. Or writing a novel without using the letters
`e' and `o'.
;; Anyone have any insight here? All I want to do is find a way to query
;; websites (without involveing the client's browser), receive the text/html,
;; so I can search it and save it. Help!
Without modules? Well, that's going to be a looooong program. I'm not
going to write it for you. And I'm not even going to help you if you
were to write it, and got stuck. If you think you're good enough not to
use modules, don't come asking for help. Writing stuff like this without
using modules would be an interesting, but boring, exercise for a seasoned
Perl programmer. For a novice without a clue, it's just plain stupid.
The fact that the examples you study make "terrible complex" calls to the
modules, didn't give you the impression that doing it without those modules
might be "far more complex than terribly complex"?
Abigail
--
perl -we '$_ = q ?4a75737420616e6f74686572205065726c204861636b65720as?;??;
for (??;(??)x??;??)
{??;s;(..)s?;qq ?print chr 0x$1 and \161 ss?;excess;??}'
-----------== 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, 05 Aug 1999 21:03:14 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Problem reading forms with perl
Message-Id: <37AA5E81.4F506C5B@mail.cor.epa.gov>
genelong@my-deja.com wrote:
>
> Ok, elephant, now you've got me totally lost. Please be patient.
>
> What is the standard perl distribution? I learned perl out of a book,
> and ftp'd it to my server with ws_ftp. I don't have any standard
> distribution.
Some sources for Perl have incomplete installations, including such
serious deformities as no docs, missing programs, incomplete sets
of Perl modules, and Other Bad Things. What Jason (elephant) meant
was a real copy of Perl with all the docs and all the tools for using
the docs. Since you're on win32, your best bet is to visit
www.activestate.com and ftp the latest stable build down to your PC.
It's just an .exe file, so you click on it in Explorer and it installs
itself just like any other win32 program should. It asks you a couple
questions along the way, one of which is about putting on-line docs
on your Start Menu. Do that. Then, every time you click on the
on-line docs, you'll get the HTML version open in your favorite
browser. This is a great way to peruse the whole document tree,
including the modules that come with Perl.
> I am trying to get onto www.cspan.org, so far without success (it is
> busy) - I will keep on trying.
Before you go to CPAN for anything, check at ActiveState to see if they
have already turned it into a win32 package for extra-easy installation.
ActiveState Perl comes with a program called ppm [it's a Perl script
turned into a .bat file so you can run it direct from your command
prompt]. There are directions for ppm in the HTML docs, but all you
need to know in order to get a new module from ActiveState is to type
this:
ppm search packagename
and when you find what you want, type it in just as you see it:
ppm install packagename
And presto. ppm downloads it, installs it in the right places, and adds
the docs to your HTML doc tree for you. How easy can it get?
> Where do I get the FAQ? What is
The FAQ comes with that install, and it's in your HTML doc tree too.
But there are other ways of reading through it...
> perldoc -q "How do I decode a CGI form"
>
> Is this a unix command? Everyone who writes perl seems to assume
> everyone else knows unix, and I don't - I run under Windows 98/IE 5.
perldoc is a Perl program that obviates the need for a unix system
with the dreaded 'man' command. Every version of Perl after
5.004_04 can use the -q option to look up keywords and regular
expressions
in the Frequently Asked Questions, and then feed you the answer that
goes with it. If you type the above command at a win32 command prompt
and get "Bad command or file name" then either you don't have perldoc
[a bad install] or you don't have the perl/bin directory in your
path [a less-than-good install]. And even better, you can go to
www.perlmonth.com and read a really nice article by Dave Cross [issue
#1 I think] on how to use perldoc and related tools to get the most out
of your Perl docs.
> Sorry if these are dumb questions - I have written a few successful
> perl scripts, so I am on my way, but there's a lot I don't understand.
That's the way Perl is. You can write programs without knowing
everything about Perl. But the more you learn, the more you can do,
and the easier you can do those old hard things.
> Any pointers to documentation or other help would be wonderfully
> appreciated. Thanks for your patience.
One other thing - you can learn a *lot* about Perl and perlstyle
by reading this newsgroup. Don't be put off by the 'do your homework
first young man' attitude prevalent here. It's good for you. :-)
> Gene
Oh, and Gene? One more thing. Could you put your replies *after*
the parts you respond to, and snip off the parts you don't need to
copy? It will make it easier for others to follow the threads, and
it will make other posters happier with you, and you'll feel much
better not having grumpy old Perlites flaming you for not using
standard Usenet style in your posts. Thanks.
David
--
David Cassell, OAO
cassell@mail.cor.epa.gov
Senior Computing Specialist
mathematical statistician
------------------------------
Date: 06 Aug 1999 00:33:08 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Re(2): Inconsistancy between Perl's @INC and @ISA
Message-Id: <x7hfmdh6kb.fsf@home.sysarch.com>
>>>>> "TMS" == Thomas M Schmickl <schmickl@magnet.at> writes:
DO NOT STEALTH MAIL ME! mark you cc'ed and posted messages
TMS> uri@sysarch.com writes:
>> @ISA is a package global and is used to find methods. it has nothing to
>> do with @INC. you could create multiple classes with package names and
>> @ISA'a in a single source file and never have a use statement or need
>> @INC.
>>
>> so claiming they are inconsistant is not meaningful.
TMS> I think you understood what I ve ment.
i think you misunderstood the word understood.
TMS> The point is, that I have to write @ISA= qw/Tk::Frame BaseWidget/
TMS> and not
TMS> @ISA= qw/Frame BaseWidget/
TMS> or
TMS> @ISA= qw/Tk::Frame class::BaseWidget/
what is class::BaseWidget?
TMS> while I have to write
TMS> use Tk::Frame
TMS> and
TMS> use class::BaseWidget
TMS> (The thing with @INC was just an example for how something can be
TMS> consistant) and
TMS> the inconsistancy lies in @ISA.
well you don't understand perl's package namespaces.
package FOO and package FOO::BAR have NOTHING to do with each
other. there is no implied nor explicit relationship in those
classes. they may be near each other when searched for (even that may
not happen if they lie on different paths in @INC), but other than that
they are just 2 different namespaces.
class hierarchies are totally controlled by @ISA. so how could you say
TMS> @ISA= qw/Frame/
but want it to mean:
TMS> @ISA= qw/Tk::Frame/
where does the Tk:: come from? not from @INC, because as i have said,
you can have multiple packages in one file and multiple files defining
code in single package. so there is no relationship between @INC and
@ISA.
@ISA just states the starting packages in the tree to search for
inherited methods. you have to declare exactly the name of the inherited
classes since perl has no way to deduce that information from anything
including the current package name or where the current module was found
in @INC.
i hope that will clear it up for you. you must declare the full class
names because if you don't who will?
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: 6 Aug 1999 00:03:29 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Use shell for 'ls *.*' & Create new file ??
Message-Id: <slrn7qkr3k.uij.abigail@alexandra.delanet.com>
Trond Peter Skjønsberg (trond.p@online.no) wrote on MMCLXVI September
MCMXCIII in <URL:news:37AA3B57.90898AD4@online.no>:
;;
;; The script uses 'ls' to determine any matching files if given argument
;; is something like '*.*'. E.g. 'ls *.txt'.
;;
;; Q: Is there any other good way 'ls' without the shell?
Well, glob. But why isn't the shell expanding for you?
your_program *.txt
should have the shell expand *.
;; Q: Also, I want to create a backup file during modification of a file,
;; but how do I create a new file? Do I have to use the shell?
Use the -i switch. Or read the manual about open.
Abigail
--
$" = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%_ = (Just => another => Perl => Hacker); &{%_};
-----------== 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: 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 397
*************************************
