[13000] in Perl-Users-Digest
Perl-Users Digest, Issue: 410 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 6 22:07:13 1999
Date: Fri, 6 Aug 1999 19:05:07 -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 Fri, 6 Aug 1999 Volume: 9 Number: 410
Today's topics:
Re: a time to kill (Jerome O'Neil)
Re: a time to kill (Abigail)
Re: a time to kill <llornkcor@llornkcor.com>
Re: a time to kill <revjack@radix.net>
Re: a time to kill (Jerome O'Neil)
Re: CRAP-7 ATTN: Article 002 - HTTP Cookie Library <jeffp@crusoe.net>
Re: CRAP-7 ATTN: Article 002 - HTTP Cookie Library (Larry Rosler)
Re: CRAP-7 ATTN: Article 002 - HTTP Cookie Library (Abigail)
Re: Functions in <<HERE documents (Abigail)
Re: Functions in <<HERE documents <tchrist@mox.perl.com>
Re: having trouble with ping command.... <llornkcor@llornkcor.com>
Re: modem dialingL HOWTO. (Greg Teets)
Re: Nastiness contrary to the spirit of perl? (Ilya Zakharevich)
Re: Nastiness contrary to the spirit of perl? (elephant)
Re: Nastiness contrary to the spirit of perl? (elephant)
Re: Newbie Question Ragrding DBD::XBase On Remote Serve <malcolm.dewjones@moh.hnet.bc.ca>
Re: Opinions on ActiveState PerlEx ? <cassell@mail.cor.epa.gov>
ps -ef |grep ""kill script? <dutch@mindspring.com>
Re: qr{} and quoting pattern metachars (Abigail)
Re: qr{} and quoting pattern metachars (Abigail)
Re: Question about hashes ? (Abigail)
Re: Question about hashes. (Abigail)
Re: reverse of localtime? (Larry Rosler)
Re: reverse of localtime? <makarand_kulkarni@my-deja.com>
variable taking regexp as value (Julio)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 6 Aug 1999 23:49:15 GMT
From: jeromeo@atrieva.com (Jerome O'Neil)
To: tchrist@mox.perl.com (Tom Christiansen)
Subject: Re: a time to kill
Message-Id: <7ofs9r$q1g$1@brokaw.wa.com>
[Posted and mailed]
In article <37ab721d@cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> writes:
> That killfile murdered 60% of the postings, leaving us with 40% to
> read. Pretty good, eh? :-)
Dang! I think this stat should be added to the weekly c.l.p.m
stats post. I would be interested to note the volume of new posters
in relationship to your killfile rate.
Science indeed!
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.i-filezone.com
------------------------------
Date: 6 Aug 1999 19:24:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: a time to kill
Message-Id: <slrn7qmv5v.7j.abigail@alexandra.delanet.com>
Tom Christiansen (tchrist@mox.perl.com) wrote on MMCLXVI September
MCMXCIII in <URL:news:37ab0227@cs.colorado.edu>:
^^ [courtesy cc of this posting mailed to cited author]
^^
^^ Two can play at that game. I see that it's time to put together and
^^ post a comprehensive killfile again.
^^
^^ Here are my annotated suggestions for trn auto-kill and auto-select
^^ entries, grouped and explained. Pick and choose as you will. I imagine
^^ these will cause some flames, but I also imagine I won't be reading them,
^^ since most will trigger a kill rule. :-)
Here's a summary of my score file (only the rules that apply to perl
groups).
% Score followups to my postings; even idiots following up will be read....
[*]
Score:: 9999
References: alexandra\.delanet\.com
% Individuals to ignore.
[*]
Score:: -9999
From: "99% Energy"
From: bask@geocities\.com
From: bernd@cistron\.nl
From: bertje@xs4all\.nl
From: borg@imaginary\.com
From: canterbury\.ac\.nz
From: Chris Wilkinson
From: cyber-t@cyberdude\.com
From: "dFD"
From: diedjee@dds\.nl
From: "Dr\. Who"
From: eds7466@umoncton\.ca
From: edvalle@jps\.net
From: edvalle@netroplex\.com
From: euro-partners\.nl
From: flash\.net
From: Floyd Morrissette
From: foxof@dds\.nl
From: foxsong@euronet\.nl
From: Frank de Bot
From: Gary L\. Burnore
From: gburnore@databasix\.com
From: George Reese
From: Greg Smolyn <smolyn@cs\.ubc\.ca>
From: hiram@casema\.net
From: htv@fly\.HiWAAY\.net
From: hverstee@ingr\.com
From: iculater@domain\.nl
From: inlandpac@my-deja\.com
From: j3bkjjm@xs4all\.nl
From: johander@usa\.net (John Andersen)
From: John Porter
From: johnpiek@xs4all\.nl
From: Julius@mindless\.com
From: katinka@mpikg-teltow\.mpg\.de
From: Ken Churilla
From: kvandoel@xs4all\.nl
From: lewis1@netcomuk\.co\.uk
From: llornkcor
From: lpotto@xs4all\.nl
From: madcat@nl\.demon\.xirian
From: maf@cybercomm\.nl
From: meelmeel@watnâhmeel\.nl
From: mp@mkt2mkt\.com
From: MstrySpud
From: muijz@dds\.nl
From: nobody@ftp\.warez\.org (Observer)
From: OudWijf@euro\.uk
From: rbarends@bga\.com
From: rbarends@swbell\.net
From: reaper_aod@geocities\.com
From: remove@freemail\.nl
From: rh@knoware\.nl
From: Richard Garside
From: simon@new-mediacom\.com
From: s\.lartibartfast
From: ST943843@RULFSW\.FSW\.LEIDENUNIV\.NL
From: Stephen Benson
From: swiftkid@bigfoot\.com
From: tomtomregal@my-dejanews\.com
From: toreg@my-dejanews\.com
From: trollboy@defnet\.com
From: valle_ea@linkonline\.net
From: wilzen@wxs\.nl
From: Your_Username@rulfsw\.fsw\.LeidenUniv\.nl
From: zie@antwoord\.adres
From: zie@reply\.adres
Message-Id: homenet\.ohio-state\.edu
Message-Id: realtime\.net
Newsgroups: soc\.culture\.netherlands
NNTP-Posting-Host: worldonline\.nl
Reply-To: foxsong@euronet\.nl
Reply-To: jult@xs4all\.nl
X-XS4ALL-User: bertje\@xs4all\.nl
% Domains to ignore.
[*]
Score:: -9999
From: cd-online\.nl
From: compuserve\.com
From: @hobsonsquare\.com
From: hotmail\.com
From: my-deja\.com
From: worldaccess\.nl
From: worldonline\.nl
% Trolls generate lots of garbage.
[*]
Score:: -9999
References: @news\.enteract\.com
% Clueless.
[*]
Score:: -9999
From: root@
% Spew.
[*]
Score:: -9999
From: UUCP@p1\.f3\.n500\.z2\.hccfido\.hcc\.nl (UUCP)
Message-ID: @elle.eunet.no
[*]
%MMF, shouters, idiots.
Score:: -9999
Subject: !!!
Subject: ###
Subject: \$\$\$
Subject: \?\?\?
Subject: ~~~
Subject: ABSOLUTELY FREE
Subject: For *Sale
Subject: MAKE *MONEY
Subject: UTTERLY FREE
% Low score all articles not containing a lower case letter.
[*]
Score: -490
~Subject: RISK
~Subject: \c[a-z]
[*]
Score: -490
Subject: ^Re: \c[^a-z]*$
% Silly HTML pages and other cruft.
[*]
Score:: -9999
Content-Type: multipart/alternative
Content-Type: multipart/mixed
Content-Type: multipart/signed
Content-Type: text/html
Content-Type: text/plain; charset="iso-2022-jp"
Content-Type: text/plain; charset=ISO-2022-JP
% HipCrime attack.
[*]
Score: -9999
Organization: Superior Russian Bolsheviks
% Crosspostings.
[*]
Score:: -9999
Newsgroups: .*,.*,.*,.*,
% Group specific subjects/people to kill.
[comp.lang.perl.*]
Score:: -9999
From: Tom Christiansen <perlfaq-suggestions@perl\.com>
Subject: Quoting Strategies and the Jeopardy Game
% Some broad, uninteresting subtopics. Don't kill, score low, allowing
% cluons to upgrade the thread.
[comp.lang.perl.*]
Score:: -1000
Subject: ActiveState
Subject: \cNT
Subject: Win32
% Positive scoring.
[comp.lang.perl.*]
Score:: 7000
From: Larry Wall
[comp.lang.perl.*]
Score:: 5000
From: tchrist@.*perl\.com
[comp.lang.perl.*]
Score:: 3000
From: Chip Salzenberg
From: jfriedl@.*omron\.co\.jp
From: Mark-Jason Dominus
[comp.lang.perl.*]
Score:: 2000
From: elaine ashton
From: Greg Bacon
From: Larry Rosler
From: Uri Guttman
[comp.lang.perl.*]
Score:: 1000
From: Abby Franquemont
From: merlyn@stonehenge\.com
[comp.lang.perl.*]
Score::500
From: Alan J\. Flavell
From: Anno Siegel
From: brain d foy
From: Chris Nandor
From: David Cassell
From: Jeff Pinyan
From: Tom Phoenix
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== 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: 06 Aug 1999 18:38:23 -0600
From: llornkcor <llornkcor@llornkcor.com>
Subject: Re: a time to kill
Message-Id: <wvv877cw.fsf@wind.localdomain>
oh, this was a good laugh... thanks.
------------------------------
Date: 7 Aug 1999 01:04:27 GMT
From: revjack <revjack@radix.net>
Subject: Re: a time to kill
Message-Id: <7og0mr$bjg$1@news1.Radix.Net>
Keywords: Hexapodia as the key insight
Abigail explains it all:
: From: remove@freemail\.nl
: From: rh@knoware\.nl
*whew*
------------------------------
Date: 7 Aug 1999 01:47:51 GMT
From: jeromeo@atrieva.com (Jerome O'Neil)
To: abigail@delanet.com
Subject: Re: a time to kill
Message-Id: <7og387$t46$1@brokaw.wa.com>
[Posted and mailed]
In article <slrn7qmv5v.7j.abigail@alexandra.delanet.com>,
abigail@delanet.com (Abigail) writes:
> Here's a summary of my score file (only the rules that apply to perl
> groups).
>
> [*]
> Score:: 9999
> References: alexandra\.delanet\.com
[ Another interesting killfile snipped]
Tom C has determined that his killfile gets almost %60 of posts
to c.l.p.m. I'm curious about the numbers are for yours, too.
--
Jerome O'Neil, Operations and Information Services
Atrieva Corporation, 600 University St., Ste. 911, Seattle, WA 98101
jeromeo@atrieva.com - Voice:206/749-2947
The Atrieva Service: Safe and Easy Online Backup http://www.i-filezone.com
------------------------------
Date: Fri, 6 Aug 1999 19:13:44 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: CRAP-7 ATTN: Article 002 - HTTP Cookie Library
Message-Id: <Pine.GSO.4.10.9908061909040.5255-100000@crusoe.crusoe.net>
[posted & mailed]
On Aug 6, Greg Bacon blah blah blah:
> : BEGIN { $CRAP = "http://www.pobox.com/~japhy/perl/crap" }
>
> Well, you are redirecting, but you should fix the broken URLs along
> your redirect chain instead of forcing the server to do it for you.
Hmm? What broken URLs are you referring to? You're familiar with pobox,
aren't you gbacon? http://www.pobox.com/~japhy/ redirects automagically
to http://www.crusoe.net/~jeffp/.
> Trailing slashes aren't optional when a URL addresses a directory.
That being said, show where in my post I used $CRAP is the SOLE member of
the URL.
When I'm setting variables in my programs, and the variable is a
directory, I do not put a trailing slash on it for this reason:
$DIR = "/usr/local/bin/";
$perl = "${DIR}perl";
$perl = $DIR . "perl";
# as opposed to
$DIR = "/usr/local/bin";
$perl = "$DIR/perl";
$CRAP was used only as a substring of the URL, and at no point did I ask
the user to go to http://www.pobox.com/~japhy/perl/crap.
Lighten up, Greg. :) See, I fixed my .sig file just for you.
$SIG{FILE} = sub { `cat .sig` }; # ;)
--
jeff pinyan japhy@pobox.com
japhy's little hole in the (fire) wall: http://www.pobox.com/~japhy/
perl stuff japhy+perl@pobox.com
japhy's perl supposit^Wrepository: http://www.pobox.com/~japhy/perl/
CPAN ID: PINYAN http://www.perl.com/CPAN/authors/id/P/PI/PINYAN/
------------------------------
Date: Fri, 6 Aug 1999 18:01:55 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: CRAP-7 ATTN: Article 002 - HTTP Cookie Library
Message-Id: <MPG.1215255d85b7eb6989df6@nntp.hpl.hp.com>
In article <7oform$1c$1@info2.uah.edu> on 6 Aug 1999 22:50:30 GMT, Greg
Bacon <gbacon@itsc.uah.edu> says...
[without regard to the Perl content, but off-topic, so we might as well
hash that out :-]
> In article <Pine.GSO.4.10.9908061756160.5255-100000@crusoe.crusoe.net>,
> Jeff Pinyan <jeffp@crusoe.net> writes:
> : BEGIN { $CRAP = "http://www.pobox.com/~japhy/perl/crap" }
>
> Well, you are redirecting, but you should fix the broken URLs along
> your redirect chain instead of forcing the server to do it for you.
The *purpose* of the www.pobox.com server is to redirect from a
permanent' URL to whgerever the subscriber wishes.
> Trailing slashes aren't optional when a URL addresses a directory.
Huh? I can't find anything about that in the RFC, and I know it isn't
required. It may be desirable for efficiency, to avoid a redirection.
RFC 1738 Uniform Resource Locators (URL) December 1994
3.3. HTTP
The HTTP URL scheme is used to designate Internet resources
accessible using HTTP (HyperText Transfer Protocol).
The HTTP protocol is specified elsewhere. This specification only
describes the syntax of HTTP URLs.
An HTTP URL takes the form:
http://<host>:<port>/<path>?<searchpart>
where <host> and <port> are as described in Section 3.1. If :<port>
is omitted, the port defaults to 80. No user name or password is
allowed. <path> is an HTTP selector, and <searchpart> is a query
string. The <path> is optional, as is the <searchpart> and its
preceding "?". If neither <path> nor <searchpart> is present, the "/"
may also be omitted.
...
; HTTP
httpurl = "http://" hostport [ "/" hpath [ "?" search ]]
hpath = hsegment *[ "/" hsegment ]
hsegment = *[ uchar | ";" | ":" | "@" | "&" | "=" ]
search = *[ uchar | ";" | ":" | "@" | "&" | "=" ]
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 6 Aug 1999 20:11:01 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: CRAP-7 ATTN: Article 002 - HTTP Cookie Library
Message-Id: <slrn7qn1sq.7j.abigail@alexandra.delanet.com>
Greg Bacon (gbacon@itsc.uah.edu) wrote on MMCLXVI September MCMXCIII in
<URL:news:7oform$1c$1@info2.uah.edu>:
** In article <Pine.GSO.4.10.9908061756160.5255-100000@crusoe.crusoe.net>,
** Jeff Pinyan <jeffp@crusoe.net> writes:
** : BEGIN { $CRAP = "http://www.pobox.com/~japhy/perl/crap" }
**
** Well, you are redirecting, but you should fix the broken URLs along
** your redirect chain instead of forcing the server to do it for you.
**
** Trailing slashes aren't optional when a URL addresses a directory.
Perhaps we have to wait till someone over in *.www.* starts a WWW CRAP
project, and targets Jeff?
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: 6 Aug 1999 20:03:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Functions in <<HERE documents
Message-Id: <slrn7qn1f3.7j.abigail@alexandra.delanet.com>
Tom Christiansen (tchrist@mox.perl.com) wrote on MMCLXVI September
MCMXCIII in <URL:news:37ab591d@cs.colorado.edu>:
'' [courtesy cc of this posting mailed to cited author]
''
'' In comp.lang.perl.misc,
'' dwatanab@uci.edu writes:
'' :printf "%s%s%s%s%s",<<EOF,print_opts(12),<<EOF,print_opts(31),<<EOF;
''
'' What's wrong with:
''
'' print <<EOF,print_opts(12),<<EOF,print_opts(31),<<EOF;
What will be printed will be out of order in the program text.
While sometimes acceptable, I do find it questionable.
Perl allows you to write:
print <<EOF,
...
EOF
print_opts(12),
<<EOF,
...
EOF
print_opts(31),
<<EOF;
...
EOF
Which has the text to be printed in the appropriate order, but isn't
much better either.
I would probably write that as:
print <<EOF;
...
${\print_opts(12)}
...
${\print_opts(31)}
...
EOF
But that wouldn't work if the original printf use more formatting in
its format. (Of course, then the print presented by Tom wouldn't work
either).
With more complex formatting, one could write:
printf <<EOF, print_opts(12), print_opts(31);
...%-20s...
....%-12s...
EOF
But that has the text out of order again.
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: 6 Aug 1999 19:23:43 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Functions in <<HERE documents
Message-Id: <37ab8a9f@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
abigail@delanet.com writes:
:'' print <<EOF,print_opts(12),<<EOF,print_opts(31),<<EOF;
:What will be printed will be out of order in the program text.
:While sometimes acceptable, I do find it questionable.
I was imagining that the print_opts() function *returned* the string,
not printed the thing itself.
--tom
--
"You're one of those condescending Unix computer users!"
"Here's a nickel, kid. Get yourself a better computer" - Dilbert.
------------------------------
Date: 06 Aug 1999 18:52:26 -0600
From: llornkcor <llornkcor@llornkcor.com>
Subject: Re: having trouble with ping command....
Message-Id: <u2qc76ph.fsf@wind.localdomain>
>#!/usr/local/bin/perl
>
>use Net::Ping;
>$p = Net::Ping->new();
try this line here instead...
$p = Net::Ping->new("icmp", 5, 32);
ping uses udp by default. most servers will respond to icmp.
you'll have to run as root, or suid.
>printf "$host is alive\n" if $p->ping($host1);
>$p->close();
>
>
>when i put some local machine into $host, it works.
>but if i put some other machine, say like...www.be.com, it doesn't work.
>Can anyone tell me why?
>Thank you.
>
>
>
--
- "Peace cannot be kept by force. It can only be achieved by
understanding."
- "Whoever undertakes to set himself up as judge in the
field of truth and knowledge is shipwrecked by the
laughter of the Gods." -A. Einstein
------------------------------
Date: Sat, 07 Aug 1999 01:20:05 GMT
From: teetsg@fuse.net (Greg Teets)
Subject: Re: modem dialingL HOWTO.
Message-Id: <37ab898d.178274577@nntp.fuse.net>
>
>Assumption: You want to run your Perl app on linux.
>
>Simplest way:
>
>open(MODEM,">/dev/modem") || die"Can't open modem: $!";
>print MODEM "ATDT5551212\r"; # Hayes command language common to
> # most modems
>close MODEM;
>
>Hope this helps.
How would I do this on Win32?
------------------------------
Date: 7 Aug 1999 00:17:05 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <7oftu1$5bm$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Bart Lateur
<bart.lateur@skynet.be>],
who wrote in article <37ad5023.6653889@news.skynet.be>:
> But actually, I think it wouldn't be a to bad idea, if perldoc were
> extended so it allows word or grep searches too. TomC might jump on me
> for this... but perldoc needn't be the monolith it is now. It could
> easily be modified into just a shell to several subtools, which can then
> be just different modules, such as pod2*.
Why use perldoc? Use proper tools. Say, Perl documentation in the
form of IBM online books is readable on AIX, OS/2, PC DOS, Win*
(probably on some other systems as well). It has a search, index,
table of context, very flexible navigation, crosslinks etc.
Unfortunately, legacy system typically have no useful tools for online
documentation. man, PDF and HTML abominations is as far as you go. :-(
See $CPAN/authors/id/ILYAZ/os2/latest/perl_inf.zip (viewer not included ;-).
Ilya
------------------------------
Date: Sat, 7 Aug 1999 10:59:04 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <MPG.12162fe0714498ce989bfb@news-server>
Bart Lateur writes ..
>But actually, I think it wouldn't be a to bad idea, if perldoc were
>extended so it allows word or grep searches too.
perldoc -q does allow regex searches .. try it out
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Sat, 7 Aug 1999 11:50:58 +1000
From: elephant@squirrelgroup.com (elephant)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <MPG.12163c0aa1a260da989bfc@news-server>
replied to in email .. this newsgroup has suffered enough
--
jason - elephant@squirrelgroup.com -
------------------------------
Date: Fri, 06 Aug 1999 16:36:20 -0700
From: Malcolm Dew-Jones <malcolm.dewjones@moh.hnet.bc.ca>
Subject: Re: Newbie Question Ragrding DBD::XBase On Remote Server
Message-Id: <37AB7174.4F72C0F4@moh.hnet.bc.ca>
You do not need to install anything on the server.
You need to install two things on the client.
The client needs DBI and at least one DBD driver (these are the two
things I mentioned). DBI is simply a PERL module - install the latest
version. DBD is actually a group of modules, not all of which are
written in PERL. You will need one of the DBD modules, and can install
more than one if you wish. There are two issues with DBD. 1) which DBD
driver to install and 2) how to get it working.
For 1) - you install (on the client) the DBD driver that corresponds to
the database running on the "server". So if the server runs Oracle v7
or Oracle v8 then you will need the DBD::Oracle module installed on the
client. If the server is running a microsoft database then I assume you
will need the DBD::ODBC module on the client.
For 2) - I think that some drivers (due to the low level code they use)
require compiling. You will either need to get a compiler that runs on
the client, OR you will need to find a copy of the desired DBD driver
already compiled for you client hardware/OS.
Mr. Baseball wrote:
>
> Good Afternoon,
>
> I am just getting into the wide world of DBI and DBD in Perl. I have
> been reading the FAQs and surfing the Net and still come up short
> regarding one question: What is necessary to access a remote database
> using the DBI and DBD modules on a WinNT server? All the code examles
> I have seen only poll a local database with their queries.
>
> Any help on this issue is greatly appreciated.
>
> Sincerely,
> Brad Bradley
------------------------------
Date: Fri, 06 Aug 1999 17:24:24 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Opinions on ActiveState PerlEx ?
Message-Id: <37AB7CB8.8FFF09FA@mail.cor.epa.gov>
Matt wrote:
>
> For some intranet needs I am considering using ActiveState Perl on one
> of our NT boxes. With this one language, it would appear that I can
> embed PerlScript in ASP for dynamic pages, and use external routines
> through CGI for other functionality.
>
> I like the 'one language fits all' concept for this project, as I need
> to keep it simple and clean. However, a simple test, using an ASP page
> to return 300 records into an HTML table is showing PerlScript running
> about 1/3 the speed of VBScript. This type of performance is not the
> primary concern, but I will take speed where I can get it.
Reasonable. But are the scripts and environments actually equivalent?
I've seen that one can write slow code in *any* language. :-)
> ActiveState's site claims their PerlEx will speed things up
> dramatically. Can anyone confirm or deny this through experience? Any
> good or bad experiences?
You might also want to look at this topic in the Perl FAQ. It will
reference a couple other alternatives. [Not that PerlEx is bad, but
you might as well know about your choices.] mod_perl for Apache
and fast_cgi also offer improvements in performance.
With additional topics like database connectivity, you'll find a variety
of other bottlenecks, most of which Perl has one or more ways of
attacking.
You might want to ask this question on the win32-perl listservs
available
at http://www.activestate.com/support/mailing_lists.htm
where the subject has been beaten to death multiple times.
HTH,
David
--
David Cassell, OAO
cassell@mail.cor.epa.gov
Senior Computing Specialist
mathematical statistician
------------------------------
Date: Fri, 06 Aug 1999 18:13:47 -0400
From: "Dutch McElvy" <dutch@mindspring.com>
Subject: ps -ef |grep ""kill script?
Message-Id: <7ofmak$dn6$1@nntp3.atl.mindspring.net>
I am need of a unix script (pearl or shell) to kill specific processes so
that non admin users can envoke this script when necessary.
I normally take care of this by:
ps -ef |grep "specific"
kill -9 "PID1" "PID2" "PID3" etc...
What would be the syntax for pulling the PIDs out of ps -ef and killing
them?
Any advice by email would be appreciated,
dutch@mindspring.com
------------------------------
Date: 6 Aug 1999 19:35:02 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: qr{} and quoting pattern metachars
Message-Id: <slrn7qmvp6.7j.abigail@alexandra.delanet.com>
Ilya Zakharevich (ilya@math.ohio-state.edu) wrote on MMCLXVI September
MCMXCIII in <URL:news:7ofetf$32r$1@charm.magnus.acs.ohio-state.edu>:
~~ >
~~ > Ok, this makes sense. Could you add a few lines to the otherwise very
~~ > interesting part about the details of parsing quoted constructs that
~~ > makes it clear when the backslashed characters are dealt with? Just to
~~ > make it complete...
~~
~~
~~ P.S. Now please send a patch for perlop.pod with this discussion
~~ added. ;-)
Oh. Me asking if you could add a few lines was basically asking for
a perlop.pod patch.... ;)
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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: 6 Aug 1999 19:45:36 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: qr{} and quoting pattern metachars
Message-Id: <slrn7qn0cq.7j.abigail@alexandra.delanet.com>
Ilya Zakharevich (ilya@math.ohio-state.edu) wrote on MMCLXVI September
MCMXCIII in <URL:news:7off6h$349$1@charm.magnus.acs.ohio-state.edu>:
// [A complimentary Cc of this posting was sent to Gareth Rees
// <garethr@cre.canon.co.uk>],
// who wrote in article <si672t1ar9.fsf@cre.canon.co.uk>:
// > Some aspects of this are bizarre. For example
// >
// > perl -we 'print do { local $\="foo"; "$\\" }'
// >
// > prints "foo\" - neither of the backslashes escapes the character that
// > follows.
//
// I find your test a little bit flawed, but it is not misleading:
//
// DB<1> x do {local $\="foo"; "$\\"}
// 0 'foo\\'
//
// Surprising indeed. I have no explanation.
Well, given the lengthy explaination on how strings are parsed, it's
easy to explain.
First parse is finding the closing delimiter, skipping over \ followed
by a delimiter, and skipping over \\.
For "$\\", we have the opening delimiter ", a $, a \\ combo, and we find
the closing delimiter.
We are left with $\\
Which is $\ followed by a sole \. Which leads to printing "foo\".
Of course, this can be seen as a bug. "$/\"" is a valid string,
and "$\\"" isn't. In fact, it _is_ a bug, since one parsing
phase groups \\ as a token, and another groups $\ as one.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
-----------== 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: 6 Aug 1999 19:50:48 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Question about hashes ?
Message-Id: <slrn7qn0mn.7j.abigail@alexandra.delanet.com>
I R A Darth Aggie (fl_aggie@thepentagon.com) wrote on MMCLXVI September
MCMXCIII in <URL:news:slrn7qm113.916.fl_aggie@thepentagon.com>:
!! On 6 Aug 1999 09:26:02 -0500, Abigail <abigail@delanet.com>, in
!! <slrn7qls2k.8m9.abigail@alexandra.delanet.com> wrote:
!!
!! + *ploink*
!!
!! Is that the sound a newbie makes when it hits a killfile?
Not just newbies.
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: 6 Aug 1999 19:49:50 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Question about hashes.
Message-Id: <slrn7qn0kr.7j.abigail@alexandra.delanet.com>
Larry Rosler (lr@hpl.hp.com) wrote on MMCLXVI September MCMXCIII in
<URL:news:MPG.12149087909b4285989de7@nntp.hpl.hp.com>:
,,
,, This is the middle-out approach: neither top-down nor bottom-up, either
,, of which may require too-early commitment to a data structure. It works
,, for me!
Where Wirth said "Algorithms + Data Structures = Programs", Mark
Overmars [1] says Data Structures *are* Algorithms.
[1] CS Professor in Utrecht. (Computational Geometry) Co-author of xforms.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\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 17:24:10 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: reverse of localtime?
Message-Id: <MPG.12151c83a205d69b989df5@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <19990806211626.17158.qmail@nym.alias.net> on 6 Aug 1999
21:16:26 -0000, Kin Cho <kin@symmetrycomm.com> says...
> I'm seeking a function when given the output string of localtime
> (in scalar context), returns the output of time() (number of seconds
> since 1970...).
I'm sure there is a module than can do the work of these two lines of
code.
#!/usr/local/bin/perl -w
use strict;
use Time::Local;
my $time = localtime;
print "$time\n";
# Start the two lines of code.
my ($mon, $day, $hour, $min, $sec, $year) =
unpack 'x4 a3 a3 a3 x a2 x a2 a5' => $time;
my $local = timelocal $sec, $min, $hour, $day,
index('JanFebMarAprMayJunJulAugSepOctNovDec', $mon)/3, $year - 1900;
# End the two lines of code.
print time, "\n$local\n";
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 07 Aug 1999 01:07:51 GMT
From: Makarand Kulkarni <makarand_kulkarni@my-deja.com>
Subject: Re: reverse of localtime?
Message-Id: <7og0t2$4hq$1@nnrp1.deja.com>
[In article <19990806211626.17158.qmail@nym.alias.net>,
Kin Cho <kin@symmetrycomm.com> wrote:
> I'm seeking a function when given the output string of localtime
> (in scalar context), returns the output of time().. {rest snipped.}
timelocal() of Time::Local() will help you.
--
use Time::Local ;
print time () . "\n" ;
($sec,$min,$hour,$mday,$mon,$year) = localtime ();
$time = timelocal($sec,$min,$hour,$mday,$mon,$year);
print $time . "\n" ;
--
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 06 Aug 1999 23:16:44 GMT
From: juliok@mindspring.com (Julio)
Subject: variable taking regexp as value
Message-Id: <7ofqok$evf$1@nntp9.atl.mindspring.net>
I've been trying to do a substitution using variable that take regexp
values, for example I want to write a program such that I can invoke
it as
myprog '(.)(.)' '\2\1'
The code would contain something like
$x = $ARGV[0]; etc.,
......
$line =~ s/$x/$y/;
and the effect would be the same as if I had said
$line =~ s/(.)(.)/\2\1/;
What happens is that $line ends up containing \2\1, as
experts must have guessed by now.
I have tried:
a) sayig $2$1 instead
b) Using different types of quotes
x) Using ${$x}
c) using eval
d) reading the big perl manual. It is explained there that the rhs of
s/// is always considered quoted, which doesn't help. It is also said
that interpolation and back substitution are different beasts, but not
how to remedy this fact.
e) reading perl faq.
f) now, this group (sigh...)
Thanks
Julio
------------------------------
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 410
*************************************
