[13881] in Perl-Users-Digest
Perl-Users Digest, Issue: 1291 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 5 09:05:22 1999
Date: Fri, 5 Nov 1999 06:05:11 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <941810711-v9-i1291@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 5 Nov 1999 Volume: 9 Number: 1291
Today's topics:
Re: [Perl] How to find the Perl FAQ <gvokey@gfw.northatlantic.nf.ca>
Autoloader won't find files <amarden@altavista.net>
Copying files. <jiglesia@tra.gva.es>
DBM files.... HELP <muzoid@yahoo.com>
Re: FAQ 3.9: Is there an IDE or Windows Perl Editor? <tim.westlakeNOtiSPAM@myremarq.com.invalid>
How to get both the input & output stream to external p <kit@cintec.cuhk.edu.hk>
Re: Is this a bug? (Bart Lateur)
Re: It is always like this here? <wyzelli@yahoo.com>
Re: Newbie help kb9nvh@my-deja.com
Re: Newbie help kb9nvh@my-deja.com
Re: ole - activeperl (Scott McMahan)
Re: Perl script to convert a date to unix time? <flavell@a5.ph.gla.ac.uk>
Re: Please Perl, do what I ask !! <mehkri@yahoo.com>
POST syntax problem... mbarieux2225@my-deja.com
Re: Problem Retrieving a File Date (Bill Feidt)
Problem using Expect.pm <willmurat@my-deja.com>
Re: reverse on range operator (Tad McClellan)
Re: SQL 6.5 and Apache (Scott McMahan)
tar file <mecks@ust.hk>
Re: Why doesn't thhis work? (Tad McClellan)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 05 Nov 1999 13:46:47 GMT
From: Gail Vokey <gvokey@gfw.northatlantic.nf.ca>
Subject: Re: [Perl] How to find the Perl FAQ
Message-Id: <3822DE1C.59403E16@gfw.northatlantic.nf.ca>
Tom Phoenix wrote:
> Archive-name: perl-faq/finding-perl-faq
> Posting-Frequency: weekly
> Last-modified: 10 Sep 1998
>
> [ That "Last-modified:" date above refers to this document, not to the
> Perl FAQ itself! The last major update of the Perl FAQ was in Summer of
> 1998; of course, ongoing updates are made as needed. ]
>
> For most people, this URL should be all you need in order to find Perl's
> Frequently Asked Questions (and answers).
>
> http://cpan.perl.org/doc/FAQs/
>
> Please look over (but never overlook!) the FAQ and related docs before
> posting anything to the comp.lang.perl.* family of newsgroups.
>
> # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
>
> Beginning with Perl version 5.004, the Perl distribution itself includes
> the Perl FAQ. If everything is pro-Perl-y installed on your system, the
> FAQ will be stored alongside the rest of Perl's documentation, and one
> of these commands (or your local equivalents) should let you read the FAQ.
>
> perldoc perlfaq
> man perlfaq
>
> If a recent version of Perl is not properly installed on your system,
> you should ask your system administrator or local expert to help. If you
> find that a recent Perl distribution is lacking the FAQ or other important
> documentation, be sure to complain to that distribution's author.
>
> If you have a web connection, the first and foremost source for all things
> Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
> CPAN also includes the Perl source code, pre-compiled binaries for many
> platforms, and a large collection of freely usable modules, among its
> 560_986_526 bytes (give or take a little) of super-cool (give or take
> a little) Perl resources.
>
> http://cpan.perl.org/
> http://www.perl.com/CPAN/
> http://cpan.perl.org/doc/FAQs/FAQ/html/
> http://www.perl.com/CPAN/doc/FAQs/FAQ/html/
>
> You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
> you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
> selected FTP sites is especially good for you, a full list of CPAN sites
> is in the SITES file within CPAN.)
>
> California ftp://ftp.cdrom.com/pub/perl/CPAN/
> Texas ftp://ftp.metronet.com/pub/perl/
> South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
> Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
> Australia ftp://cpan.topend.com.au/pub/CPAN/
> Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
> Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
> Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
>
> If you have no connection to the Internet at all (so sad!) you may wish
> to purchase one of the commercial Perl distributions on CD-Rom or other
> media. Your local bookstore should be able to help you to find one.
> Another possibility is to use one of the FTP-via-email services; for
> more information on doing that, send mail to <mail-server@rtfm.mit.edu>
> (not to me!) with these lines in the body of the message, flush left:
>
> setdir usenet-by-group/news.announce.newusers
> send Anonymous_FTP:_Frequently_Asked_Questions_(FAQ)_List
>
> # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
>
> Comments and suggestions on the contents of this document
> are always welcome. Please send them to the author at
> <pfaq&finding*comments*@redcat.com>. Of course, comments on
> the docs and FAQs mentioned here should go to their respective
> maintainers.
>
> Have fun with Perl!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Fri, 05 Nov 1999 11:03:48 +0000
From: Andy Marden <amarden@altavista.net>
Subject: Autoloader won't find files
Message-Id: <3822B994.284E817E@altavista.net>
I'm haing a problem with the autoloader module at the moment. A simple
script with 'use POSIX;' in causes the following message on an HPUX
10.20 system: 'Can't locate loadable object for module POSIX'.
This works perfectly well on Linux (RedHat 5.2) with the same version of
Perl (5.004_04).
It seems to be a problem locating the 'auto' directory which is
correctly located under one of the @INC directories with a POSIX
subdirectory and lots of nice *.al files in there. Could this be a
problem introduced at Perl distribution compile time? Has anyone seem it
before?
The same thing happens on any 'use' command that wants to Autoload
something.
Cheers
Andy
------------------------------
Date: Fri, 5 Nov 1999 13:40:48 +0100
From: "Jesús Iglesias" <jiglesia@tra.gva.es>
Subject: Copying files.
Message-Id: <7vuj5d$f0g$1@pepico.gva.es>
I'd like to do a Perl Script (executed in a W95 PC) to copy some files from
an NT server to a W95 PC. I imagine it's a simple instruction, but I can't
find the specific answer in the Web .
I'd also be very grateful if anyone could send me any Web Site with
networking subjects in Perl.
Thank you very much.
JESUS
------------------------------
Date: Fri, 5 Nov 1999 23:57:34 +1100
From: "muz1" <muzoid@yahoo.com>
Subject: DBM files.... HELP
Message-Id: <FzAU3.12304$we.20704@newsfeeds.bigpond.com>
for some of you out there, this may be a stupid question however, I am
really stumped. I have only just started in perl so any help will be greatly
accepted and acknowledged.
I have read atleast three books so far that cover the topic of DBM files and
I pretty much get how to work with them but how does one create one?
Scenario: a new client wants to set-up a account that you wish to place in a
new dbm file.
Question: can I create a dbm file on request and then shove all of the info
from a form into it. It seems like everything I have read so far states that
there has to be something there first like a dat file???????
Thanx and I look forward to hearing from you.
any reply even suggestions will be appreciated.
------------------------------
Date: Fri, 05 Nov 1999 03:36:46 -0800
From: Tim Westlake <tim.westlakeNOtiSPAM@myremarq.com.invalid>
Subject: Re: FAQ 3.9: Is there an IDE or Windows Perl Editor?
Message-Id: <0a0133f8.5cc28483@usw-ex0101-007.remarq.com>
In article <382214EF.393C6093@mail.cor.epa.gov>, David Cassell
<cassell@mail.cor.epa.gov> wrote:
> Tim, surely you've noticed that Perl attracts people who have
> written code in lots of weird little languages. People like
> Jonathan know about this. And lots of editors on the page
> Jonathan cited will let you do this. Some of them [like emacs]
> already have support for tons of obscure languages and 4GLs.
David
no issue with that, I was simply offering up a reasonable and valid
answer to a question. Jonathan just didnt seem to appreciate this - I
mean, its not like have any personal or commercial interest in the Zeus
editor.
regards
Tim
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Fri, 5 Nov 1999 19:32:43 +0800
From: " Jeff Lee" <kit@cintec.cuhk.edu.hk>
Subject: How to get both the input & output stream to external program?
Message-Id: <7vug40$eg7$1@justice.csc.cuhk.edu.hk>
Hi,
Do you know how to get both the input & output stream to external program in
perl?
--
Jeff
------------------------------
Date: Fri, 05 Nov 1999 13:03:04 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Is this a bug?
Message-Id: <3822d4d7.296265@news.skynet.be>
Larry Rosler wrote:
>BTW, 'printf' is the same as 'print sprintf'.
No it's not. There is a tiny difference.
$\ = "\n";
$pi = 4 * atan2( 1, 1);
print sprintf "%7.5f", $pi;
print "#";
printf "%7.5f", $pi;
print "#";
--
Bart.
------------------------------
Date: Fri, 5 Nov 1999 22:36:32 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: It is always like this here?
Message-Id: <tDAU3.21$aq3.4009@vic.nntp.telstra.net>
Kragen Sitaker <kragen@dnaco.net> wrote in message
news:0xoU3.28525$23.1514419@typ11.nn.bcandid.com...
>
> It is verifiably true that learning to read documentation will help
> people. But I do suspect that the growing numbers of occasional
> programmers will behave differently and come up with different support
> systems than those of us who do it full-time.
>
It is also verifiably true that the computer industry has in general
produced some of the worst documentation for any product, and Perl tends to
be on the low end in terms of quality. (Probably justifiably so...). One
of the reasons there are so many 'Dummies' books is that much of the IT
documentation assumes so much prior knowledge, or that the reader will be
able to fill in the gaps from other material. In many cases just reading
the documentation requires a good IT knowledge.
That does not excuse those who are just too damn lazy tho... :)
Wyzelli
------------------------------
Date: Fri, 05 Nov 1999 13:28:12 GMT
From: kb9nvh@my-deja.com
Subject: Re: Newbie help
Message-Id: <7vum1a$k1l$1@nnrp1.deja.com>
Thanks, hey, this is a question about that construct in your example.
What exactly does that do and how does it work?
print <<"EOF";
<....>
EOF
I have yet to find it discussed in the text I bought even though I have
see it used and have used it. Apparently it pipes to the print command
everything between the EOF boundries. Can this be used for other
commands?
In article <ygewvs16h38.fsf@spot.acs.neu.edu>,
kevin montuori <montuori@acs.neu.edu> wrote:
> >>> kb9nvh writes:
> ts> The code below prints the $i variable and then the text "+1". I
> ts> want 1 to be added to $i and the sum printed. What do I do
> ts> Please? Any help is appreciated... Todd Snyder
>
> among other possibilities:
>
> my $i = 5;
>
> print <<"EOF";
> this is the number @{[ $i + 1 ]}
> EOF
>
> cheers,
> k.
>
> --
>
> kevin montuori
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 05 Nov 1999 13:35:41 GMT
From: kb9nvh@my-deja.com
Subject: Re: Newbie help
Message-Id: <7vumfa$keg$1@nnrp1.deja.com>
Thanks for all the replies....Yep, I should have done it the easy way
but for some reason, since I thought I should be able to do it "inline"
I got stuck thinking that way....
I did embed the code as you (and others) suggested on here but I think
probably better to just make my calulations outside of the print
statement.
Thanks for the help.....
In article <38221454.3E39408F@mail.cor.epa.gov>,
David Cassell <cassell@mail.cor.epa.gov> wrote:
> kevin montuori wrote:
> >
> > >>> kb9nvh writes:
> > ts> The code below prints the $i variable and then the
text "+1". I
> > ts> want 1 to be added to $i and the sum printed. What do I do
> > ts> Please? Any help is appreciated... Todd Snyder
> >
> > among other possibilities:
> >
> > my $i = 5;
> >
> > print <<"EOF";
> > this is the number @{[ $i + 1 ]}
> > EOF
>
> As you say, this is 'among other possibilities'. But usually
> one wnats to abuse a scalar like this instead:
>
> print <<"EOF";
> this is the number ${\( $i + 1 )}
> EOF
>
> But it is much clearer if one just does the sum outside
> the here-doc so there is no mucking about with expansion
> of function calls. Like others in this thread proposed
> already.
>
> David
> --
> David Cassell, OAO cassell@mail.cor.epa.gov
> Senior computing specialist
> mathematical statistician
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 05 Nov 1999 13:34:09 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: ole - activeperl
Message-Id: <l1BU3.2426$J55.138346@monger.newsread.com>
rclauer@my-deja.com wrote:
> Anyone know how to call the Kodak imaging OCX
> object from Activeperl?
I'm not sure you can use an OCX from Perl. If the
imaging package has any kind of Automation support,
it would be easy to use.
Scott
------------------------------
Date: Fri, 5 Nov 1999 10:52:32 +0000
From: "Alan J. Flavell" <flavell@a5.ph.gla.ac.uk>
Subject: Re: Perl script to convert a date to unix time?
Message-Id: <Pine.OSF.4.20.9911051047550.15235-100000@a5.ph.gla.ac.uk>
On Thu, 4 Nov 1999, Kevin J. Bennett wrote:
> Does anyone know of a simple perl script that would accept a date like
> 3/5/98 and return the unix time in seconds for that date?
Well, that depends what side of the Pond you're on.
Hint: dd/mm/yy on the logical side, mm/dd/yy on the heuristic side.
After 31/12/00 I expect there will be other possible ambiguities ;-}
Clue: there's an unambiguous ISO date format, for use in international
transactions. Is Usenet an international forum?
------------------------------
Date: Fri, 5 Nov 1999 04:52:09 -0800 (PST)
From: Mohammad Akram Ali Mehkri <mehkri@yahoo.com>
To: "comp.lang.perl.misc@list.deja.com" <comp.lang.perl.misc@list.deja.com>
Subject: Re: Please Perl, do what I ask !!
Message-Id: <19991105125209.1487.rocketmail@web219.mail.yahoo.com>
Hi
>$ftp = Net::FTP->new($_[0], Timeout => 10, Port => $_[1]);
I think there should be no spaces arround " => " and the values should be iin
quotes:
Secondly
Remember the great programming paradigm
Garbage In Garbage Out
Dont blame perl
mehkri
--- Richard Lawrence <ralawrence@my-deja.com> wrote:
> Message from the Deja.com forum:
> comp.lang.perl.misc
> Your subscription is set to individual email delivery
> >
> Hello all!
>
> I seem to have a few problems with perl and with it not doing what I
> want it to do. Could someone please put me back on the right track?
>
> Firstly I'm trying to open an ftp connection with the following:
>
> sub connect_to_ftp_site
> {
> my ($result, $ftp);
>
> # attempt to connect
> $ftp = Net::FTP->new($_[0], Timeout => 10, Port => $_[1]);
> return 0 if (!$ftp);
>
> As you can see the timeout value is set to 10. However the line
> actually timeouts after 2 minutes (which according to the man page is
> the default). So as far as I can see, its ignoring my value totally.
> Can anyone give me swift kick and point me to what I'm doing wrong?
>
> Secondly I have some code like this (please excuse the horrible perl -
> i am only just learning):
>
> eval
> {
> local $SIG{ALRM} = sub { die "timeout\n" };
> alarm 10;
>
> my $browser = LWP::UserAgent->new();
> my $webdoc = $browser->request(HTTP::Request->new(GET => $wanted));
> if ($webdoc->is_success && $webdoc->content_type eq 'text/html')
> {
> my $webbase = $webdoc->base;
> foreach (HTML::LinkExtor->new->parse($webdoc->content)->eof-
> >links)
> {
> my ($webtag, %weblinks) = @$_;
> next unless $webtag eq "a";
> my $weblink;
> foreach $weblink (values %weblinks)
> {
> $field = url($weblink, $webbase)->abs->as_string;
> $field =~ tr/+/ /;
> $field =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> if ($field =~ m%(ftp://.+\.mp3)%)
> {
> if (instring($1)) # does this match our search?
> {
> $real_url = $1;
> $real_url =~ tr/+/ /;
> $real_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex
> ($1))/eg;
> push (@urls, $real_url);
> $added++;
> }
> }
> }
> }
> }
> alarm(0);
> };
>
> if ($@)
> {
> die unless $@ eq "timeout\n";
> print "alarm called!\n";
> $added = 0;
> }
>
> The internals are working fine (if not written particulary well), what
> isn't however is the alarm (lifted straight from the perldoc). It just
> doesn't trigger at all, even if I set the value to something stupid
> like 2 seconds.
>
> Can anyone shed any light on these please?
>
> Thanks
>
> Rich
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
>
>
> _____________________________________________________________
> Deja.com: Before you buy.
> http://www.deja.com/
> * To modify or remove your subscription, go to
> http://www.deja.com/edit_sub.xp?group=comp.lang.perl.misc
> * Read this thread at
> http://www.deja.com/thread/%3C7vkcm0%245ne%241%40nnrp1.deja.com%3E
>
>
__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 05 Nov 1999 12:42:28 GMT
From: mbarieux2225@my-deja.com
Subject: POST syntax problem...
Message-Id: <7vujbk$ia9$1@nnrp1.deja.com>
Hi,
I need to submit a form which has the following fields:
field-titledesc, index, field-geo
I wrote something like :
$ua = new LWP::UserAgent;
$param1 = param('param1');
$param2 = param('param2');
$param3 = param('param3');
$res = $ua->request($req);
$strAntwort = $res->content;
print $strAntwort;
$req = POST 'http://something',
[ field-titledesc => $param1, index => $param2, field-geo =>
$param3 ];
Perl seems to have a problem with the syntax of the parameter names,
because I have the following message :
Ambiguous use of index => resolved to "index" => at
/usr/local/etc/httpd/cgi-bin/test.pl line 24.
Unquoted string "field" may clash with future reserved word at
/usr/local/etc/httpd/cgi-bin/test.pl line 24.
Argument "geo" isn't numeric in subtract at /usr/local/etc/httpd/cgi-
bin/test.pl line 24.
Argument "field" isn't numeric in subtract at /usr/local/etc/httpd/cgi-
bin/test.pl line 24.
I tried to quote them like :
$req = POST 'http://something',
[ "field-titledesc" => $param1, "index" => $param2, "field-geo"
=> $param3 ];
but it didn't work. Is there a way to achieve that with these parameter
names ?
Regards
Marc Barieux
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 05 Nov 1999 13:35:34 GMT
From: wfeidt@nal.usda.gov (Bill Feidt)
Subject: Re: Problem Retrieving a File Date
Message-Id: <s25n936ihpc76@news.supernews.com>
Duh. Boy, do I feel stupid. Yes, that's it exactly. I was grabbing
$READTIME rather than $WRITETIME. With that change made,
the snippet works completely as expected. Thanks very much
for the assist. --Bill
In article <Pine.GSO.4.10.9911041057040.29670-100000@user2.teleport.com>, Tom
Phoenix <rootbeer@redcat.com> wrote:
>On Thu, 4 Nov 1999, Bill Feidt wrote:
>
>> Thu Nov 4 11:11:50 1999
>
>I think that's the atime (access time)....
>
>> And here's a directory listing for the file, showing the correct file date:
>>
>> 2563 Oct 27 12:12 J19991014f04.html
>
>....and that this is the mtime (modification time). See your stat(2)
>manpage for more information on what it returns. Does that help? Good luck
>with it!
>
------------------------------
Date: Fri, 05 Nov 1999 13:53:19 GMT
From: William <willmurat@my-deja.com>
Subject: Problem using Expect.pm
Message-Id: <7vunga$l7f$1@nnrp1.deja.com>
Hi, folks
I'm trying to use Expect.pm in a setuid program to changes passwords in
a Web Page.
my $PASSWD = "/usr/bin/passwd"
my $passwd = Expect->spawn("$PASSWD $login") || return *ERROR FUNCTION*
my $rv = $passwd->expect($TIMEOUT, "New Password: ");
$rv != 1 && return *ERROR FUNCTION*
But this didn't work... So, before last line I add the following lines:
$out = $passwd->exp_before();
print $out;
And I got this message:
Insecure dependency in exec while running setuid at
/usr/local/lib/perl5/site_perl/5.005/Expect.pm line 84
Can someone tell me what is wrong with my code?
TIA
--
William
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 5 Nov 1999 03:38:04 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: reverse on range operator
Message-Id: <c15uv7.nof.ln@magna.metronet.com>
John Lin (johnlin@chttl.com.tw) wrote:
: It is asymmetric that
Larry said in the Feb '98 edition of Dr. Dobb's Journal:
--------------
Well, there are many different definitions of artistic beauty. It
can be argued that it's symmetry, which in a computer language
might be considered orthogonality. It's also been argued that
broken symmetry is what is considered most beautiful and most
artistic and diverse. Symmetry breaking is the root of our whole
universe according to physicists, so if God is an artist, then
maybe that's his definition of what beauty is.
--------------
And I remember him once saying something like:
"symmetry is overrated, overrated is symmetry"
:-)
: for(1..100000000) { print } # will NOT create a huge array, but
^^^^^
^^^^^
s/array/list/;
: for(100000000..1) { print } # won't work, and
: for(reverse 1..100000000) { print } # will create a huge array
for ($_ = 100_000_000; $_ >= 1; $_--) { print } # ugly, but no big list
: Maybe we can revise 'reverse' on range operator for huge
: step-down for-loops, just like the revision on for(1..100000000).
If the p5p spend time doing that, then something else won't get done.
I'd rather have something else, as there is a presently
workable alternative...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 05 Nov 1999 13:45:39 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: SQL 6.5 and Apache
Message-Id: <7cBU3.2428$J55.138346@monger.newsread.com>
¤@¤ë (any@any.com) wrote:
> Machine 1 - Linux, Apache Web Server, Openlink Driver, Perl 5.05.
> Machine 2 - NT, MSSQL 6.5, ODBC, Openlink Server
> DB details: dbname=test, user=sa, passwd =, DSN=Test SQL
> If I use perl to connect two machine(machine get data from machine 2), how
> should I config the DSN??
> ie.$dbh=DBI->connect($DSN, $user, $passwd)
> what is this $DSN??
> DBI:ODBC:??? or sth else??
I do not think this is simply a matter of configuring the DSN. DBI is not
magic. There is no ODBC implementation for Linux or UNIX that I know of,
for free, to buy, or to steal. (Intersolv used to have ODBC drivers for
other platforms, but they would cost more than you'd ever imagine, and
I'm not sure Intersolv is still selling them since they got bought out
by Merant. Who knows?) Even if you had an ODBC implementation for UNIX,
you'd need a piece of software on the UNIX box and the Window box that
moved the ODBC calls across the network and brought the results back,
similar to what DB2 Connect does for DB2. I know of no such piece,
especially not for SQL Server. There are Windows <-> Windows pieces
out there for using SQL server remotely with Microsoft's ODBC driver.
You'd have to have the equivalent driver for UNIX, and there
isn't any such animal that I know of. (If I am wrong, whoever
wrote it needs to get more publicity!)
Heterogeneous server to server database connectivity solutions are the
domain of extremely expensive middleware packages. They're out there,
but you wouldn't be able to afford them unless you were in the Fortune
500. The free software realm rarely gets into this, because they don't
use the commercial databases on the backend to begin with :)
Scott
------------------------------
Date: Fri, 05 Nov 1999 20:08:37 +0800
From: mecks <mecks@ust.hk>
Subject: tar file
Message-Id: <3822C8C5.76B6C38C@ust.hk>
Hi,
Can anyone help to tell me if there is a command has similar
function as tar in csh
I do not want to use the following command
system(" tar xvf /dev/nrtape ????") || die "Something";
Did syswrite perform the similar task? Or is there any modulus to do
that?
Thanks a lot
Jim
------------------------------
Date: Fri, 5 Nov 1999 03:23:37 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Why doesn't thhis work?
Message-Id: <964uv7.nof.ln@magna.metronet.com>
Kim Frederiksen (kimf@post.tele.dk) wrote:
: Hope someone can help me, this doesn't work, and I don't know why. It's
: supposed to detect the country from the remote_host:
: @ALLOW_HOSTS = ('.dk', '.se', '.no');
^ ^ ^
^ ^ ^
Those are regex metacharacters. If you want to match a literal
dot, you need to escape the dots.
my @ALLOW_HOSTS = ('\.dk', '\.se', '\.no');
: $rhost="";
: $rhost=$ENV{'REMOTE_HOST'};
The value of REMOTE_HOST can be anything at all. It does not
correlate well to which country the access is from...
: foreach $host (@ALLOW_HOSTS)
: {
: if ( $rhost =~ /$host$/)
^^
You probably want to use the m//i option as case does not matter
in domain names.
: {
: tam tam tam;
: last;
: }
: }
Why are you using the form that the FAQ says is "super-inefficient"?
Perl FAQ, part 6:
"How do I efficiently match many regular expressions at once?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 1291
**************************************
