[10825] in Perl-Users-Digest
Perl-Users Digest, Issue: 4426 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 15 07:07:15 1998
Date: Tue, 15 Dec 98 04:00:19 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 15 Dec 1998 Volume: 8 Number: 4426
Today's topics:
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
Re: Accessing MS SQL db from unix <woerdehoff@sdm.de>
Re: Bug (array ref in a "void" context) (Bart Lateur)
C structure to perl <kozo@pobox.sk>
Re: C structure to perl <perl@nullspace.com>
Re: C structure to perl <perl@nullspace.com>
Re: Date validation (Steffen Beyer)
Re: Ensuring only one of me is running? <cgormley@netcomuk.co.uk>
Re: Ensuring only one of me is running? (David Formosa)
Re: Ensuring only one of me is running? <perl@nullspace.com>
Re: Getting IP of connecting station <carvdawg@patriot.net>
Re: how can script get file http://... (Bart Lateur)
Matching newline (Jens Hilgers)
Re: Matching newline <perl@nullspace.com>
Re: OLE referencing problem: PerlScript, ASP and CDONTS <matt@teamamiga.org_NOSPAM>
Q:Decimal precision ? <man@digsys.bg>
Re: Q:Decimal precision ? <qdtcall@esb.ericsson.se>
Scoping of sub declarations <cgormley@netcomuk.co.uk>
Re: send e-mail by port 25 in Perl !!! HELPME !!!!! <spamsux-tex@habit.com>
Re: Why Is Perl not a Language? (Bart Lateur)
Re: Why Is Perl not a Language? <dgris@moiraine.dimensional.com>
Win32::ODBC / Excel Trouble <kerste@sternwarte.org>
Re: Writing Perl with Notepad (Bart Lateur)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 15 Dec 1998 11:24:01 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage913721041.23964@news.teleport.com>
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: Tue, 15 Dec 1998 10:15:26 +0100
From: Hendrik =?iso-8859-1?Q?W=F6rdehoff?= <woerdehoff@sdm.de>
Subject: Re: Accessing MS SQL db from unix
Message-Id: <367628AE.46367F4A@sdm.de>
Jonathan Nicholson wrote:
> dturley@pobox.com wrote:
> > In article <74r8kq$jlu$3@zware.space.ru>,
> > vitus@brass.fe.msk.ru (Victor B Wagner) wrote:
> > > Jonathan Nicholson (jjn@sanger.ac.uk) wrote:
> > >
> > > : Is there a perl module out there that will allow me to access a NT MS SQL
> > > : database from UNIX.
> > >
> > > DBD::Sybase?
> >
> > DBD::ODBC
>
> Thanks for all the replies. I've got it to work using DBD::Sybase. Is it
> possible to use ODBC? If so how (I'm not familiar with ODBC) as I
> understand that SQL7 is no longer based on Sybase...
Yes it is. But you need some kind of ODBC for UNIX. There are some
vendors with apropriate products. Try www.openlinksw.co.uk. They even
got something for Linux.
Yours
Hendrik
Pursuant to US Code, Title 47, Chapter 5, Subchapter II, Sec. 227,
any and all unsolicited commercial E-mail sent to this address
is subject to a download and archival fee in the amount of $500
US (per infraction). E-mailing denotes acceptance of these terms.
--
Hendrik W"ordehoff |s |d &|m | software design & management
| | | | GmbH & Co. KG :
woerdehoff@sdm.de | | | | Thomas-Dehler-Str. 27 >B)
Tel/Fax (089) 63812-337/515 81737 M"unchen :
------------------------------
Date: Tue, 15 Dec 1998 07:38:28 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Bug (array ref in a "void" context)
Message-Id: <367610f2.817558@news.skynet.be>
Uri Guttman wrote:
>how would you do a for loop like this:
>
> for ( $i = 0, $j = 10 ; $i < 10 ; $i++, $j-- ) {
>
>without a low precedence comma that would be tricky. each assignment
>would be in a paren. this also came from c where it has a low
>precedence.
I thought that this was one of the reasons. The comma operator seems to
exist only so people can compress multiple statements into one.
Sometimes the artificial distinction between statements and expressions
is over the top.
I think the next syntax would have been nice:
for ({ $i = 0; $j = 10} ; $i < 10 ; $i++, $j-- ) {
Notice the lack of a "do".
Bart.
------------------------------
Date: 15 Dec 1998 09:28:06 GMT
From: Kozo <kozo@pobox.sk>
Subject: C structure to perl
Message-Id: <755a36$9g9@gringo.somi.sk>
how to convert C structure to perl ?
is any tool ? struct2perl ?
struct whod {
char wd_vers
char wd_type
char wd_fill[2]
int wd_sendtime
int wd_recvtime
char wd_hostname[32]
int wd_loadav[3]
int wd_boottime
struct whoent {
struct outmp we_utmp
int we_idle
} wd_we[1024 / sizeof (struct whoent)]
}
----------------------------------------------------
posted by WWWNews gateway v1.12
(c) 1997 Somi Systems Ltd. http://www.somi.sk/
somi.sk is NOT the originators of the articles
and are NOT responsible for their content.
------------------------------
Date: Tue, 15 Dec 1998 02:09:42 -0800
From: Steve Harris <perl@nullspace.com>
Subject: Re: C structure to perl
Message-Id: <36763566.F83F0925@nullspace.com>
Try
$whod{vers} = ...
$whod{type} = ...
$whod{fill} = ...
.
.
.
a.k.a.:
%whod = ( 'vers' => '...',
'type' => '...',
.
.
.
'fill' => '...' );
That's just a hash. You can have the
values be anything and don't need to type
cast them.
--Steve
Kozo wrote:
>
> how to convert C structure to perl ?
>
> is any tool ? struct2perl ?
>
> struct whod {
> char wd_vers
> char wd_type
> char wd_fill[2]
> int wd_sendtime
> int wd_recvtime
> char wd_hostname[32]
> int wd_loadav[3]
> int wd_boottime
> struct whoent {
> struct outmp we_utmp
> int we_idle
> } wd_we[1024 / sizeof (struct whoent)]
> }
>
> ----------------------------------------------------
> posted by WWWNews gateway v1.12
> (c) 1997 Somi Systems Ltd. http://www.somi.sk/
> somi.sk is NOT the originators of the articles
> and are NOT responsible for their content.
------------------------------
Date: Tue, 15 Dec 1998 02:17:50 -0800
From: Steve Harris <perl@nullspace.com>
Subject: Re: C structure to perl
Message-Id: <3676374E.5B19A41E@nullspace.com>
Ok, add to this a HASH reference for the
nested item:
$whod{whoent} = { 'outmp' => '...',
'we_utmp' => '...',
'we_idle' => '...' };
Replace the '...' with your initialization
values. It is simple to initalize and define
in the same step.
Sorry about the double follow-up.
--Steve
Steve Harris wrote:
>
> Try
>
> $whod{vers} = ...
> $whod{type} = ...
> $whod{fill} = ...
> .
> .
> .
>
> a.k.a.:
>
> %whod = ( 'vers' => '...',
> 'type' => '...',
> .
> .
> .
> 'fill' => '...' );
>
> That's just a hash. You can have the
> values be anything and don't need to type
> cast them.
>
> --Steve
>
> Kozo wrote:
> >
> > how to convert C structure to perl ?
> >
> > is any tool ? struct2perl ?
> >
> > struct whod {
> > char wd_vers
> > char wd_type
> > char wd_fill[2]
> > int wd_sendtime
> > int wd_recvtime
> > char wd_hostname[32]
> > int wd_loadav[3]
> > int wd_boottime
> > struct whoent {
> > struct outmp we_utmp
> > int we_idle
> > } wd_we[1024 / sizeof (struct whoent)]
> > }
> >
> > ----------------------------------------------------
> > posted by WWWNews gateway v1.12
> > (c) 1997 Somi Systems Ltd. http://www.somi.sk/
> > somi.sk is NOT the originators of the articles
> > and are NOT responsible for their content.
------------------------------
Date: 15 Dec 1998 06:07:39 GMT
From: sb@engelschall.com (Steffen Beyer)
Subject: Re: Date validation
Message-Id: <754ubb$85k$1@en1.engelschall.com>
Bill Moseley <moseley@best.com> wrote:
> Is there a 'common' way to validate input dates?
> I'm currently using timelocal() from Time::Local to convert a text date to
> time() seconds, then back to text with localtime() to compare with the
> original date to see if it is valid.
> This catches 2/29/99, for example.
> Is there a small module that will do this work for me?
Perl modules are you friend.
You might want to check out Date::Calc or Date::Manip from CPAN
(= "Comprehensive Perl Archive Network") at
http://www.perl.com/CPAN/modules/by-module/Date/
Hope this helps.
Regards,
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/download/ (Free Perl and C Software
http://www.perl.com/CPAN/authors/id/STBEY/ for Download)
New: Build'n'Play 2.1.0 (all-purpose Unix batch installation tool)
------------------------------
Date: Tue, 15 Dec 1998 08:31:54 -0000
From: "Clinton Gormley" <cgormley@netcomuk.co.uk>
Subject: Re: Ensuring only one of me is running?
Message-Id: <7556p2$2go$1@taliesin.netcom.net.uk>
>It can even be created in an atomic action, so you won't even run into race
>conditions.
I hear these terms used often. What is an atomic action, what is a race
condition. And why will the first not lead to the second?
Clint
------------------------------
Date: 15 Dec 1998 10:06:16 GMT
From: dformosa@zeta.org.au (David Formosa)
Subject: Re: Ensuring only one of me is running?
Message-Id: <slrn77cd4o.u0u.dformosa@godzilla.zeta.org.au>
In article <7556p2$2go$1@taliesin.netcom.net.uk>, Clinton Gormley wrote:
>>It can even be created in an atomic action, so you won't even run into race
>>conditions.
>
>
>I hear these terms used often. What is an atomic action, what is a race
>condition. And why will the first not lead to the second?
An atomic action is one that is done as a whole action and not spilt.
A race condtion is where two programs can get interleaved in such a
way that things don't work as you expect.
For example if you have a program like this.
1) if file exists then
2) open the file
And you have two runing processes a and b
a dose step 1
b dose step 1
a dose step 2
b dose step 2
Now you have two running proccess with the same file open, which may
not be what you want.
However if you have a single atomic action "open if no file" then you
can't get the interwaving effect.
--
Please excuse my spelling as I suffer from agraphia. See
http://www.zeta.org.au/~dformosa/Spelling.html to find out more.
------------------------------
Date: Tue, 15 Dec 1998 02:22:41 -0800
From: Steve Harris <perl@nullspace.com>
Subject: Re: Ensuring only one of me is running?
Message-Id: <36763871.11325109@nullspace.com>
Leads me to believe that atomic file locking is the
best solution for the original posting, and just a
good idea in general ;-) I don't know how to do this
in Windows 95+, but I've used lockf() on UNIX systems
with pretty good success.
--Steve
David Formosa wrote:
>
> In article <7556p2$2go$1@taliesin.netcom.net.uk>, Clinton Gormley wrote:
> >>It can even be created in an atomic action, so you won't even run into race
> >>conditions.
> >
> >
> >I hear these terms used often. What is an atomic action, what is a race
> >condition. And why will the first not lead to the second?
>
> An atomic action is one that is done as a whole action and not spilt.
> A race condtion is where two programs can get interleaved in such a
> way that things don't work as you expect.
>
> For example if you have a program like this.
>
> 1) if file exists then
> 2) open the file
>
> And you have two runing processes a and b
>
> a dose step 1
> b dose step 1
> a dose step 2
> b dose step 2
>
> Now you have two running proccess with the same file open, which may
> not be what you want.
>
> However if you have a single atomic action "open if no file" then you
> can't get the interwaving effect.
>
> --
> Please excuse my spelling as I suffer from agraphia. See
> http://www.zeta.org.au/~dformosa/Spelling.html to find out more.
------------------------------
Date: Tue, 15 Dec 1998 06:30:48 +0000
From: Marquis de Carvdawg <carvdawg@patriot.net>
Subject: Re: Getting IP of connecting station
Message-Id: <36760218.B73F24A8@patriot.net>
Martien,
Thanks for the reply.
I'll have to check and it may take me a while...I will have to rewrite my
code. I realize that this is totally my fault...I forgot to mention that I
am
using IO::Socket.
Thanks again for your time...
> > How can I get the IP address of the connecting system? I've
> > tried:
> >
> > ...$sock->peeraddr()
>
> # perldoc Socket
> [snip]
> ($port, $iaddr) = sockaddr_in(getpeername(Socket_Handle));
> $peer_host = gethostbyaddr($iaddr, AF_INET);
> $peer_addr = inet_ntoa($iaddr);
> [snip]
>
> Does the above work for you?
>
> Martien
> --
> Martien Verbruggen |
> Webmaster www.tradingpost.com.au | If it isn't broken, it doesn't have
> Commercial Dynamics Pty. Ltd. | enough features yet.
> NSW, Australia |
------------------------------
Date: Tue, 15 Dec 1998 08:37:29 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: how can script get file http://...
Message-Id: <36791703.2370508@news.skynet.be>
Gleb Ekker wrote:
>Is it possible to get some file (http://www.somehost.com/file.html) from
>another server without using CPAM library?
Is that "SPAM"? Or maybe "CPAN"? :-)
Anyway, you should at least LOOK at the modules. They're in plain source
form. In particular, check out LWP::Simple, part of LibWWW.
Bart.
------------------------------
Date: Tue, 15 Dec 1998 09:34:18 GMT
From: jens@gamers.de (Jens Hilgers)
Subject: Matching newline
Message-Id: <36762cd2.3083213@news.ndh.net>
Hi all,
i got a HTML TEXTAREA and want to translate all newlines into <BR> in
my cgi after the post operation. somebody got a hint for me ?
thx,
jens
------------------------------
Date: Tue, 15 Dec 1998 02:12:15 -0800
From: Steve Harris <perl@nullspace.com>
Subject: Re: Matching newline
Message-Id: <367635FF.82C18981@nullspace.com>
s/\n/\n<BR>/g
--Steve
Jens Hilgers wrote:
>
> Hi all,
>
> i got a HTML TEXTAREA and want to translate all newlines into <BR> in
> my cgi after the post operation. somebody got a hint for me ?
>
> thx,
> jens
------------------------------
Date: Tue, 15 Dec 1998 10:44:09 +0000
From: Matt Sergeant <matt@teamamiga.org_NOSPAM>
Subject: Re: OLE referencing problem: PerlScript, ASP and CDONTS.NewMail object
Message-Id: <36763D79.DF263D96@teamamiga.org_NOSPAM>
bdavis@mediaphex.com wrote:
>
> matt@teamamiga.org wrote:
> > You can only do this on AS perl build 504 and above (so make sure you
> > upgrade), and the syntax would be:
> >
> > $obj->Value->SetProperty('Item', 'header', 'headervalue');
> >
> > (I think)...
>
> The format above dies with the message:
> Can't call method "SetProperty" on an undefined value
Oh God - not that.
/me runs screaming.
We've encountered that here, and others on the Perl-Win32 mailing lists
have too. Basically something has gone horribly wrong. The only thing
that fixed it for us was a re-install of NT (yes, really).
Of course I could have got the syntax slightly wrong. I tend to just
bumble along with this Win32::OLE stuff - Jan Dubois seems to have it
sussed, not surprising really ;-)
--
<Matt email="matt@teamamiga.org" />
| Fastnet Software Ltd | Perl in Active Server Pages |
| Perl Consultancy, Web Development | Database Design | XML |
| http://come.to/fastnet | Information Consolidation |
------------------------------
Date: Tue, 15 Dec 1998 10:37:40 +0200
From: Margarit Nickolov <man@digsys.bg>
Subject: Q:Decimal precision ?
Message-Id: <Pine.BSI.3.95.981215102958.26568A-100000@school.digsys.bg>
Is it a *big* problem or is it a *big* my mistake ?
How to solve it ?
Test the folowing perl code:
#!/usr/bin/perl5
$a = 0;
$a += -0.01;
$a += -0.05;
$a += 0.06;
print "a=$a\n";
I get the next result:
a=-6.93889390390723e-18
I think the precision is not too high, but result is too bugous.
I neeed a precision of 2-3 digits after the decimal point.
my email: man@digsys.bg
------------------------------
Date: 15 Dec 1998 10:19:28 +0100
From: Calle Dybedahl <qdtcall@esb.ericsson.se>
Subject: Re: Q:Decimal precision ?
Message-Id: <issoehsqxr.fsf@godzilla.kiere.ericsson.se>
Margarit Nickolov <man@digsys.bg> writes:
> I get the next result:
> a=-6.93889390390723e-18
>
> I think the precision is not too high, but result is too bugous.
You do realise that your result, written in a more "normal" notation
with the two significant digits you want, is -0.0000000000000000069?
--
Calle Dybedahl, qdtcall@esavionics.se, http://www.lysator.liu.se/~calle/
Truth is stranger than fiction, because fiction has to make sense.
------------------------------
Date: Tue, 15 Dec 1998 09:24:54 -0000
From: "Clinton Gormley" <cgormley@netcomuk.co.uk>
Subject: Scoping of sub declarations
Message-Id: <7559se$2ti$1@taliesin.netcom.net.uk>
Now I'm showing my Pascal roots...
Is there lexical scoping of sub declarations in Perl ie, is :
sub foo {
sub bar {}
}
the equivalent of
sub foo {}
sub bar {}
or not?
I had two subroutines which printed two different forms and used another
subroutine to aid formatting. eg
sub form1 {
sub formatlines {
print in certain format
}
formatlines ('text');
formatlines ('text2');
etc
}
but i needed "formatlines" to be slightly different for the two forms, so i
redeclared it. The -w switch warned me about this.
So would formatlines be local to form1 or form2, or would it be available to
the whole of the main:: package? Will redeclaring it within a different
block always work? or is my program likely to get confused.
Thanks
Clint
------------------------------
Date: Tue, 15 Dec 1998 01:05:42 +0000
From: Austin Schutz <spamsux-tex@habit.com>
Subject: Re: send e-mail by port 25 in Perl !!! HELPME !!!!!
Message-Id: <3675B5E5.4996@habit.com>
Jonathan Stowe wrote:
>
> On Sun, 13 Dec 1998 05:11:43 GMT BondMac@hotmail.com wrote:
> > HI, help me please whith one script in perl what send one mail by port 25 by
> > the server SMTP is other machine (Sun1), where run the script is other Sun2
> > !!! Iam have perl 5.001m !! please helpme ... Urls ????????
> >
>
> I think you really want to be upgrading your Perl to something more recent
> I mean it is a 5.00502 for the stable realease now and a lot of bug
> fixes have gone under the bridge since the release you have.
You know, this argument might be a little more convincing if
there was say, a version 5.01, or even a 5.1, or even (god forbid)
a version _6_ planned.
It seems as if 5.005 is light years from stale old unsecure
unthreaded unsupported 5.000. The bizarre versioning sequence must be a
faq somewhere, but I haven't come across it.
Maybe when the thread support becomes a little more solid (and
documented!) we could bump the numbers a little? It would give us a
reason to throw a big party and buy a few dozen blow up camels... wait..
better not get too excited or I'll blow my argument. :-)
Austin
------------------------------
Date: Tue, 15 Dec 1998 08:37:25 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Why Is Perl not a Language?
Message-Id: <367714c3.1793960@news.skynet.be>
Daniel Grisinger wrote:
>I suspect, however, that you are using `interactive' as a synonym for
>`graphical'.
No I'm not.
"Interactive" means that the programs stops in situations like:
Well here's the data I've got so far, now tell me what to do with it.
Programs without an interface don't stop and ask. They go from start to
finish in one go.
Bart.
------------------------------
Date: 15 Dec 1998 02:24:25 -0700
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Why Is Perl not a Language?
Message-Id: <m3btl5kbau.fsf@moiraine.dimensional.com>
bart.lateur@skynet.be (Bart Lateur) writes:
> "Interactive" means that the programs stops in situations like:
>
> Well here's the data I've got so far, now tell me what to do with it.
>
> Programs without an interface don't stop and ask. They go from start to
> finish in one go.
So an http server (make one request, receive one reply) is not
interactive, while an ftp server is? Seems strange to me.
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Tue, 15 Dec 1998 12:08:59 +0100
From: Alexander Kerste <kerste@sternwarte.org>
Subject: Win32::ODBC / Excel Trouble
Message-Id: <3676434A.3EB4D064@sternwarte.org>
Hello!
I'm trying to get Data via ODBC from an Excel-Table. I'm using the
German Microsoft Excel-Driver Version 3.51.102900 and Perl 5.004_02.
Using the following script:
use Win32::ODBC;
$db = new Win32::ODBC("VD-Termine");
die qq(Can't open ODBC\n) if ! $db;
$db->Sql ("SELECT FACH, PRUEFUNGSART FROM TERMINE");
$db->FetchRow() || die qq(Fetch error: ), $db->Error(), qq(\n);
%hash = $db->DataHash("Fach", "Pruefungsart");
I get :
Fetch Error: 911 [Microsoft][ODBC Driver Manager]Function Sequence
Error10
Has anybody got an idea, what this means or where to find out?
Thanks,
Alex Kerste
------------------------------
Date: Tue, 15 Dec 1998 08:37:27 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Writing Perl with Notepad
Message-Id: <367815c6.2053261@news.skynet.be>
Thomas Brian Holdren wrote:
>Hate Windows becuase you can't
>"Esc:w" to save a file?
Now *that* makes sense.
Bart.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 4426
**************************************
