[22225] in Perl-Users-Digest
Perl-Users Digest, Issue: 4446 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 22 06:05:41 2003
Date: Wed, 22 Jan 2003 03:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 22 Jan 2003 Volume: 10 Number: 4446
Today's topics:
Re: Re: Re: Regex problem 130.149.2.130 [anno4000@lublin.zrz.tu-berlin.de]
Re: Re: Regex problem <darthludi@gmx.net>
Re: APL's relation to perl <bik.mido@tiscalinet.it>
Re: C++ for GUI and Perl for functionality? <bart.lateur@pandora.be>
commands after system call and before die? (qanda)
Re: Couple of Perl CGI problems <bart.lateur@pandora.be>
Re: How are named unary operators that take $_ created? <bart.lateur@pandora.be>
Re: How can a SMTP mail be deleted from a Unix mailbox (Bill Godfrey)
Re: How can a SMTP mail be deleted from a Unix mailbox <bart.lateur@pandora.be>
Re: How can a SMTP mail be deleted from a Unix mailbox <donal.k.fellows@man.ac.uk>
Re: identifying web host platform? <dg1261@cs-REMOVE_THIS-.com>
Re: OO perl : object containing ref to other object <bart.lateur@pandora.be>
Re: Paragraph Mode <bart.lateur@pandora.be>
Re: Re: Regex problem <darthludi@gmx.net>
Re: Regex problem <tassilo.parseval@post.rwth-aachen.de>
Re: Regex problem <bernard.el-hagin@DODGE_THISlido-tech.net>
Re: Regex problem (Anno Siegel)
Re: Regex to find all words containing a single vowel? <bart.lateur@pandora.be>
request failed: erroneous characters after protocol str (Ken)
Re: Still a little variable trouble. <spikey-wan@bigfoot.com>
Re: Win32::API convert code from C <bart.lateur@pandora.be>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 22 Jan 2003 11:03:53 GMT
From: 130.149.2.130 [anno4000@lublin.zrz.tu-berlin.de]
Subject: Re: Re: Re: Regex problem
Message-Id: <tUuX9.37486$536.2029073@news2.telusplanet.net>
> > Could you please do something about your line wrapping? Much obliged.
> Sorry, can't do much about it. Since we have no way to directly access a NNTP Server I have to use the interface at nodevice.com
> /peter
If nodevice.com doesn't honor the user's line wrapping, shoot
them to the moon -- thgey're not fit for usenet. But I find
that hard to believe.
Let's
see
about
line
wrapping.
Anno=
==================================
Poster's IP address: 130.149.2.130
Posted via http://nodevice.com
Linux Programmer's Site
------------------------------
Date: Wed, 22 Jan 2003 09:50:21 GMT
From: 195.202.157.110 [Peter Ludikovsky <darthludi@gmx.net>]
Subject: Re: Re: Regex problem
Message-Id: <xPtX9.36934$536.2022132@news2.telusplanet.net>
> Could you please do something about your line wrapping? Much obliged.
Sorry, can't do much about it. Since we have no way to directly access a NNTP Server I have to use the interface at nodevice.com
/peter
==================================
Poster's IP address: 195.202.157.110
Posted via http://nodevice.com
Linux Programmer's Site
------------------------------
Date: Wed, 22 Jan 2003 09:50:51 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: APL's relation to perl
Message-Id: <m2ms2v4ub18go6717rb7sqeo8bnc2gco5q@4ax.com>
[followup crossposted to sci.math - should be of interest there]
On 21 Jan 2003 12:02:04 -0800, genericax@hotmail.com (Sara) wrote:
>Michele Dondi <bik.mido@tiscalinet.it> wrote in message news:<lhqo2vs8j5hlt7v0lmgvdonu1mopji0vm7@4ax.com>...
>> On 17 Jan 2003 11:07:57 -0800, genericax@hotmail.com (Sara) wrote:
>>
>> >I WISH! APL is (was) one of the best linear variable programming
>> >languages in existence. Imagine a primitive function (domino) to
>> >invert an arbitry matrix (of ANY number of dimensions even!). How many
>> ^^^^^^^^^^
>>
>> <OT>
>> I don't know APL, I am only a beginner in Perl, and OTOH I'm not an
>> expert in (multi)linear algebra either, but AFAIK there's no (+ I
>> can't devise a) generally accepted/acceptable notion of multiplication
>> (and thus inversion) of "ANY number of dimension"-al matrices, while
>> such a notion is natural for "2-dimensional" (that is, ordinary)
>> matrices (that is rank 2 tensors). But maybe you meant something
>> completely different...
>> </OT>
Premise: as pointed out by Uri Guttman it was a misunderstanding on my
part. You meant "2-dimensional matrix of any size" - I understood
something different...
>hi Michele:
>
>My APL days are long since past, but for the most part those Greek
>keys are branded into my brain! Anyhow, I may be wrong about domino
>working on any dimensions. Mathematically then an inverse of
>M[m,n,...] is undefined for indices greater than 2? (or less than 2)?
"Greater"!
To be more precise: and m x n matrix represents naturally a linear
function (from an n-dimensional vector space to an m-dimensional
vector space). An m x n x t x... "matrix" (but maybe "array" is more
correct) CAN represent a linear function in more than one way none of
which is canonical AFAIK.
Then the problem is not with "an inverse", it is a priori: not even a
multiplication is defined...
>I didn't know that but I beleive it may be true. I'm not a
>mathmetician, I'm a scientist.
Why, are not mathemticians scientists?
>Wish I had an APL Terminal here now I could test that theory in about
>3 seconds! (remember the good old "domain error" APListas?)
I hardly know what APL is!!
>A site I found http://www.agrenv.mcgill.ca/agreng/applmath/2/Matrix.HTM
>seems to support your proposal although I don't see it explicitly
hmmm... what proposal?
[...]
> 4.You cannot invert a matrix with mathematical redundancies or
>inconsistencies.
I think this might be APL-specific concepts, but I can't understand
what "mathematical redundancies or inconsistencies" might be, since
you already ruled out singular matrices.
Michele
--
>It's because the universe was programmed in C++.
No, no, it was programmed in Forth. See Genesis 1:12:
"And the earth brought Forth ..."
- Robert Israel on sci.math, thread "Why numbers?"
------------------------------
Date: Wed, 22 Jan 2003 10:53:14 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: C++ for GUI and Perl for functionality?
Message-Id: <idts2vgo8lume74nmdh0op4ehrtl26tena@4ax.com>
Andreas Schmidt wrote:
>I wanna program a cross-platform application with a fast, accurate GUI.
>It should look like a professional "standard" application, but use Perl
>behind the scenes.
>
>Is it recommendable to code the core functionalities as Perl modules and
>use platform-specific C++ libraries for the Linux/Windows GUIs?
Don't reinvent the wheel, if you can avoid it. There are already quite a
few GUI libraries available for Perl. The oldest one is Tk, but there
are libraries based on Qt, Wx, and perhaps a lot more. Check out the UI
section on CPAN:
<http://search.cpan.org/modlist/User_Interfaces>
(An I'm pretty sure this list isn't even complete. At least, the
following ones are not listed.)
For Win32, check out Win32::GUI, which gives a native, fast, GUI for
Windows. It this one interests you, then don't forget to take a look at
at The GUI Loft, which is a RAD interface builder for Win32::GUI.
<http://www.bahnhof.se/~johanl/perl/Loft/>
Following the old bootstrap adagio, The GUI Loft is built using itself.
--
Bart.
------------------------------
Date: 22 Jan 2003 01:14:06 -0800
From: fumail@freeuk.com (qanda)
Subject: commands after system call and before die?
Message-Id: <62b4710f.0301220114.46cf17c5@posting.google.com>
All
Here is a script to explain my question ...
#!/usr/bin/perl
use warnings;
use strict;
# Global exit code.
my $ec;
# END block to set exit code.
END {
print "Do last minute stuff here.\n";
$? = $ec;
}
# Some other commands.
# ...
# Set exit code for die.
$ec = 5;
# A system call that fails.
open( ABC, "<abc" ) or
die "Could not open abc - exiting!\n";
# Another system call that fails.
open( XYZ, "<xyz" ) or $ec = 6 &&
die "Could not open xyz - exiting!\n";
In the first failed system call (for ABC) everything is fine. What I
would like to do, mainly for presentation, is to set $ec after the
system call but before the die is executed, using something like &&.
Can this be done?
Thanks.
------------------------------
Date: Wed, 22 Jan 2003 09:40:52 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Couple of Perl CGI problems
Message-Id: <6nps2vodeku3bj0p9t3k2cken1j5cq1j1g@4ax.com>
Tad McClellan wrote:
>The best tool for replacing single characters would be:
>
> $string =~ tr/'/"/;
Yet I don't believe that turning O'Brien into O"Brien really solves the
problem the OP is trying to solve.
--
Bart.
------------------------------
Date: Wed, 22 Jan 2003 09:49:48 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: How are named unary operators that take $_ created?
Message-Id: <b2qs2vspklq3f50c535la5eaclhfkdfa3l@4ax.com>
J. Romano wrote:
> Buongiorno 3|4; # prints "Buongiorno, 7!", not 3
Maybe you're barking up the wrong tree. 3|4 is a bitwise OR, and the
result is 7. Try
buongiorno 3, 4;
instead.
Heh.
sub buongiorno (;$) {
$_[0]=$_ unless @_; print "Buongiorno, @_!\n";
}
print buongiorno 3, 4;
results in:
Too many arguments for main::buongiorno at test.pl line 5, near "4;"
Execution of test.pl aborted due to compilation errors.
Hmm... I was hoping the 4 would be taken as a parameter for print().
--
Bart.
------------------------------
Date: 22 Jan 2003 09:19:20 GMT
From: billg-usenet@bacchae.f9.co.uk.invalid (Bill Godfrey)
Subject: Re: How can a SMTP mail be deleted from a Unix mailbox by a script?
Message-Id: <20030122041920.842$f5@newsreader.com>
Markus.Elfring@web.de (Markus Elfring) wrote:
> I think that a POP3 server will not use a mbox file.
A POP3 server will use whatever message base it's been programmed to use.
Bill, over an RFC1149 gateway.
------------------------------
Date: Wed, 22 Jan 2003 09:23:38 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: How can a SMTP mail be deleted from a Unix mailbox by a script?
Message-Id: <slos2v0qm52sthbvmmhp998gn48pdc4ad2@4ax.com>
Markus Elfring wrote:
>I think that a POP3 server will not use a mbox file.
Not directly, no. You are supposed to connect to a POP3 server on your
machine, which will do the manipulation for youi.
--
Bart.
------------------------------
Date: Wed, 22 Jan 2003 10:08:04 +0000
From: "Donal K. Fellows" <donal.k.fellows@man.ac.uk>
Subject: Re: How can a SMTP mail be deleted from a Unix mailbox by a script?
Message-Id: <3E2E6D84.90575903@man.ac.uk>
Markus Elfring wrote:
> I think that a POP3 server will not use a mbox file.
Now that depends on the configuration of the POP3 server, yes? OK, so it
probably won't use a *local* mbox file. ;^)
If you have a local mbox file that is not being delivered to, then all you've
got is a fairly trivial parse-into-list,remove-list-element,list-back-to-file
problem, and all you need to know is the format of the list (messages start with
a line matching "^From " in all mbox implementations I've ever seen, though you
should heed the advice given elsewhere on this thread.)
If you've got something that is a delivery target, you *must* match yourself
with the locking protocol or you run the risk of losing mail. (Sometimes you
can also use hard-links to move the file out of the way atomically, but that's
not generally applicable...) If someone's got a POP3 server set up[*] (to allow
for remote access to mail) then that'd work really well. Another alternative is
to use the mailx MUA via a pipe, again because it should already know the right
locking protocol.
Donal (leveraging someone else's work is *the* way to go! :^)
[* Assuming they've matched locking protocols, but it'd be really incompetent
for a system installer or admin to foul that up. ]
--
Donal K. Fellows http://www.cs.man.ac.uk/~fellowsd/ donal.fellows@man.ac.uk
-- The small advantage of not having California being part of my country would
be overweighed by having California as a heavily-armed rabid weasel on our
borders. -- David Parsons <o r c @ p e l l . p o r t l a n d . o r . u s>
------------------------------
Date: Wed, 22 Jan 2003 08:12:15 GMT
From: "I'm Dan" <dg1261@cs-REMOVE_THIS-.com>
Subject: Re: identifying web host platform?
Message-Id: <znsX9.81319$hl1.11098@sccrnsc04>
<gofer@where-am-i.com> wrote:
> Go here; download IDSERVE; its free
> http://grc.com/id/idserve.htm
>
> On Wed, 22 Jan 2003 02:04:41 GMT, "I'm Dan"
> <dg1261@cs-REMOVE_THIS-.com> wrote:
>
> >Some time ago (within the last year or two) I recall tinkering with a way
to
> >reveal the host platform and server of a website (ie., NT vs linux, IIS v
> >Apache, etc). However, I can no longer recall how it was done. I don't
> >remember whether it was a URL of some diagnostic site, or whether it was
a
> >perl CGI script, or whether it was some exe file to run. I don't even
> >remember whether I learned about it from a magazine (PC Magazine, maybe?)
or
> >from a newsgroup. Does this ring a bell with anyone?
Yes, that was it! Thanks!
------------------------------
Date: Wed, 22 Jan 2003 10:03:52 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: OO perl : object containing ref to other object
Message-Id: <6vqs2vkj6bgikrho5cmuvt9i230npsqr6r@4ax.com>
Teh (tî'pô) wrote:
>Sorry I was a bit snappy, I saw three people answering a post, all
>saying that valid syntax isn't and not dealing with the real problem
>and I was a bit annoyed.
I know the feeling. I get annoyed myself when people answer "use strict
and use warnings" to a problem to which it wouldn't make any difference.
--
Bart.
------------------------------
Date: Wed, 22 Jan 2003 10:06:42 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Paragraph Mode
Message-Id: <07rs2vonpa70e64n735t75u32ffnuf08l3@4ax.com>
Steve C wrote:
>He talks about reading <STDIN> in 'Paragraph Mode'
>There is no mention of this in Llama - What does this actually mean, and is
>there a more "technically correct" term for this 'paragraph mode' ??
It's two or more consecutive newlines, i.e. with a blank line between
the text. Lines with only one newline between them are considered to
belong to the same paragraph.
Take this post, for example.
--
Bart.
------------------------------
Date: Wed, 22 Jan 2003 09:34:37 GMT
From: 195.202.157.110 [Peter Ludikovsky <darthludi@gmx.net>]
Subject: Re: Re: Regex problem
Message-Id: <NAtX9.36816$536.2019768@news2.telusplanet.net>
> Unfortunately you are not very specific. So what behaviour do you observe at work? Any warnings or error message you get (provided that you have the -w switch and 'use strict;' in your script)?
No warnings, no error, the script simply goes into a infinite loop. The script can be found @ http://www.minic.ac.at/ni/student/pludi0aa/homepage/parser.pl.txt, a demo input file @ http://www.minic.ac.at/ni/student/pludi0aa/homepage/19.txt.
The script isn't commented much, but should still be quite readable (I hope).
/peter
==================================
Poster's IP address: 195.202.157.110
Posted via http://nodevice.com
Linux Programmer's Site
------------------------------
Date: 22 Jan 2003 08:33:38 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: Regex problem
Message-Id: <b0ll12$6s7$1@nets3.rz.RWTH-Aachen.DE>
Also sprach 195.202.157.110 [ Peter Ludikovsky:
>
> The following line causes me some problems:
> $input=~s/°10°(\d+?)°(\d+?)°(.+?)°/<img width="$1" height="$2" src="..\/~peter\/$3" \/>/;
> $input is something like "something°10°600°80°header_all.jpg°something else".
>
> In short I'd like to change everything between the first and the last
> ° to a picture. The first number is the ID for picture, the second is
> the width and the third is the height. All thats left is the filename.
It looks ok to me.
> My main problem: at home it works, at work it doesn't.
Unfortunately you are not very specific. So what behaviour do you
observe at work? Any warnings or error message you get (provided that
you have the -w switch and 'use strict;' in your script)?
> Home Box: SuSE Linux 7.2, PERL 5.8.0
> Work Box: SuSE Linux 7.3, PERL 5.6.1
>
> Any help is appreciated (esp. since I need to present this script in
> about 2 hours).
Then please provide the information we need. Come up with a nimumum and
complete script that exhibits the unexpected behaviour. Don't post a
few hundred lines of code, just the stuff that you found to be the core
of the problem.
Tassilo
--
$_=q!",}])(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus;})(rekcah{lrePbus;})(lreP{rehtonabus;})(rehtona{tsuJbus!;
$_=reverse;s/sub/(reverse"bus").chr(32)/xge;tr~\n~~d;eval;
------------------------------
Date: Wed, 22 Jan 2003 10:35:59 +0100
From: Bernard El-Hagin <bernard.el-hagin@DODGE_THISlido-tech.net>
Subject: Re: Regex problem
Message-Id: <keps2v46b5hq27mlnfn26srv5fb49upbrc@4ax.com>
On Wed, 22 Jan 2003 09:34:37 GMT, 195.202.157.110 [Peter Ludikovsky
<darthludi@gmx.net>] wrote:
[snipped unwrapped text]
Could you please do something about your line wrapping? Much obliged.
Cheers,
Bernard
--
echo 42|perl -pe '$#="Just another Perl hacker,"'
------------------------------
Date: 22 Jan 2003 10:24:58 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Regex problem
Message-Id: <b0lrhq$eca$1@mamenchi.zrz.TU-Berlin.DE>
195.202.157.110 [Peter Ludikovsky <darthludi@gmx.net> wrote in comp.lang.perl.misc:
> > Unfortunately you are not very specific. So what behaviour do you
> observe at work? Any warnings or error message you get (provided that
> you have the -w switch and 'use strict;' in your script)?
>
> No warnings, no error, the script simply goes into a infinite loop. The
> script can be found @
> http://www.minic.ac.at/ni/student/pludi0aa/homepage/parser.pl.txt, a
> demo input file @
> http://www.minic.ac.at/ni/student/pludi0aa/homepage/19.txt.
>
> The script isn't commented much, but should still be quite readable (I hope).
I'm afraid you'll have to invest a little more effort yourself.
Look at the situation: Your complaint is spread out between two
posts: The first explains (sketchily) what you want to achieve,
a second one mentions that you suppose an endless loop. Now, in
a third posting, you expect us to download 60+ lines of code, much
of which is CGI-related and has nothing to do with the problem,
plus a data file for input. This is unlikely to bring up useful
responses.
Make a small, self-contained example script that demonstrates the
problem and post it here (unless the preparation of the example
clears thing up, it often does).
Just one remark about your code. You have a loop of the form
while($input=~/°/) {
$input =~ s///;
....
$input =~ s///;
}
Of the dozen or so substitutions, six have another "°" on the
replacement side. It is not at all clear that repetition of the
substitutions will eventually rid $input from all "°", so I'd
not be surprised that it loops endlessly over some inputs.
Anno
------------------------------
Date: Wed, 22 Jan 2003 09:59:53 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Regex to find all words containing a single vowel?
Message-Id: <vgqs2v8g2l0ff3iqb2rr8a2mtobleh3d0o@4ax.com>
Martin wrote:
>I need to find all words in a file containing only a single vowel.
>
>For example:
>
>$regex = ????????
>$string = "The quick brown fox jumped over the lazy dog";
>$string =~ /$regex/g;
>
>should match:
>
>The
>brown
>fox
>the
>lazy
>dog
So you think "lazy" only has one vowel and "quick" has two? How odd. I
would have thought the reverse.
Anyway, try this.
/\b((?:(?=[a-z])[^aeiou])*[aeiou](?:(?=[a-z])[^aeiou])*)\b/ig
--
Bart.
------------------------------
Date: 22 Jan 2003 01:24:30 -0800
From: angel@xev.net (Ken)
Subject: request failed: erroneous characters after protocol string: HTTP/1.0 403 Forbidden
Message-Id: <fafcc419.0301220124.2946ee20@posting.google.com>
Anyone have any idea what this error means?...
request failed: erroneous characters after protocol string: HTTP/1.0
403 Forbidden
I am using mod_perl. When I get the error the page I am loading does
not fully finish loading. It just sort of hangs half was loaded. It's
really driving me crazy because I've tried everything I could think of
to fix it. The forbidden part is really stumping me. I am not using
any sort of .htaccess authentication. Any ideas?
Thanks,
Ken
------------------------------
Date: Wed, 22 Jan 2003 09:44:59 -0000
From: "Richard S Beckett" <spikey-wan@bigfoot.com>
Subject: Re: Still a little variable trouble.
Message-Id: <b0lp8h$p44$1@newshost.mot.com>
"Ben Morrow" <mauzo@mimosa.csv.warwick.ac.uk> wrote
> >Thanks Ben.
>
> No problem :)
>
> >I can now move my subroutines out of the subroutine, which I suppose is
> >another Bad Thing (TM) to do ;-)
>
> Err, I'm confused by this. Do you mean you have
>
> sub foo {
> sub bar {
> }
> }
>
> ? This doesn't do anything special, except make variables in foo available
in
> bar, which if you really need to is clearer done as
>
> {
> my $var;
> sub foo { ... }
> sub bar { ... }
> }
>
Yes. Because I was having trouble getting some subroutines that were called
by the main subroutine to recognise the variables that were defined in the
main subroutine, I put the called subroutines into the main subroutine, as a
short term fix, but thinking about it, as these subroutines are only called
from the main subroutine anyway, I suppose it's not that bad a thing,
really.
If you can understand that! ;-)
> . But again, param passing is usually better.
I suppose so, because later you may decide that you could call the subs from
somewhere else, but if they're inside another sub, you couldn't.
I'm going for a lie down!
> Then again, you might mean something quite else?
I don't _think_ so ;-)
R.
------------------------------
Date: Wed, 22 Jan 2003 10:41:07 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Win32::API convert code from C
Message-Id: <qjrs2vc271848ocie3h4jphg9j9b2q17b1@4ax.com>
Mike Solomon wrote:
>If anyone one could give me some hints on how to write the following
>code in Perl I would be very grateful
>
>It is the API calls that I have no idea about
>Here is the part of the C code I have been given:
>
> /* Open the QuickAddress Pro databases */
> iCode = QAPro_Open (psIniFile, psIniSect);
...
There is stuff missing: you need the declarations. You must say which
DLL these functions are in, and also, the API layer to them. For
example, what parameters does QAPro_Open() expect, what does it return?
You need that to produce a new function object in Win32::API, for this
call alone. You can get that info either from the C source of the DLL,
or at least from its ".h" header file. You need the latter to be able to
compile the source you've been given into a working program.
I can only assume that this particular function takes two string
pointers as paramaters, and that it returns an integer. Assuming the DLL
is called "QAPro.dll" (I don't know), then the function declaration can
become:
$QAPro_Open = new Win32::API('QAPro.dll', 'QAPro_Open', 'PP', 'N');
and if this call succeeds, you can invoke it using
my $iCode = $QAPro_Open->Call($psIniFile, $psIniSect);
where the two arguments are plain Perl strings containing the path to
the INI file and the title of the section, if my guess on what it
represents is correct.
Older versions of Win32::API still require an array reference for the
third argument, one array item per parameter:
$QAPro_Open = new Win32::API('QAPro.dll', 'QAPro_Open',
['P', 'P'], 'N');
As my advice on how to tackle this: start by just a few calls, like the
open, close, and maybe one more call in between. If this works, insert
the rest of the program one part at a time. Test these smaller programs
before you proceed.
Things like "qaerr_POSTCODERECODED" look like constants to me. Get their
value from the same ".h" file, and turn them into Perl constants:
use constant qaerr_POSTCODERECODED => 15; # example value
HTH,
Bart.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 4446
***************************************
