[9335] in Perl-Users-Digest
Perl-Users Digest, Issue: 2930 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 22 02:07:24 1998
Date: Sun, 21 Jun 98 23:00:23 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 21 Jun 1998 Volume: 8 Number: 2930
Today's topics:
2nd CFV: comp.lang.perl.moderated moderated (Rebecca McQuitty)
Capturing return code from Ksh script vijay_veeranna@my-dejanews.com
Re: Capturing return code from Ksh script <rootbeer@teleport.com>
Re: Capturing return code from Ksh script <tchrist@mox.perl.com>
Dbi Informix driver <andy@studioware.pt>
Re: Excel - Perl conversion (Martien Verbruggen)
Re: first language <judmc123@bellsouth.net>
Re: first language <judmc123@bellsouth.net>
Re: first language (Mark-Jason Dominus)
Re: Help with guestbook PLEASE <rootbeer@teleport.com>
How to make 2D indexed array of hash? <lucasdave@hotmail.com>
How to make 2D indexed array of hash? <lucasdave@hotmail.com>
Re: HTML Forms - Checkbox data (mikep)
Re: Pod::Text -- Unix only? <zenin@bawdycaste.org>
Problem with flock() <jdf@pobox.com>
Re: Problem with flock() <rootbeer@teleport.com>
Re: problems with flock <rootbeer@teleport.com>
Re: Question(s) about lexically scoped variables under <metcher@spider.herston.uq.edu.au>
Re: Qustion for contract Perl scripters (Martien Verbruggen)
Re: system() fails with 65280 (Martien Verbruggen)
Re: What "mini" database (text?) to use? <zenin@bawdycaste.org>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 22 Jun 1998 05:11:53 GMT
From: mcq@best.com (Rebecca McQuitty)
Subject: 2nd CFV: comp.lang.perl.moderated moderated
Message-Id: <898492312.18206@isc.org>
LAST CALL FOR VOTES (of 2)
moderated group comp.lang.perl.moderated
Usenet readers may now vote on the proposed worldwide newsgroup
comp.lang.perl.moderated. This CFV contains information about both
the voting process and the proposed group; please read the entire CFV
before voting.
Only the votetaker is authorized to distribute this CFV. Do not post
it to any newsgroup, mail it to any person or mailing list, or place
it on the World Wide Web. Ballots or CFVs provided by anyone except
the votetaker will be invalid.
Newsgroups line:
comp.lang.perl.moderated Perl language. (Moderated)
Votes must be received by 23:59:59 UTC, 1 Jul 1998.
A neutral, third-party volunteer is conducting this vote. Direct
questions about the vote to the votetaker, and questions about the
proposed group to the proponents.
Proponent: Mark-Jason Dominus <mjd-perl-clpmod@plover.com>
Proponent: Chip Salzenberg <chip@perlsupport.com>
Votetaker: Rebecca McQuitty <mcq@best.com>
RATIONALE: comp.lang.perl.moderated
The comp.lang.perl.misc group presently has very high traffic:
typically about 250 articles per day. Much of this traffic is given
over to people asking off-topic questions, and questions answered in
the FAQ.
In these circumstances, a number of regular posters to the group have
stopped reading comp.lang.perl.misc, while new readers can find it
difficult to find relevant posts. The result is reduced usefulness of
the existing comp.lang.perl.misc newsgroup.
This comp.lang.perl.moderated group is proposed as high
signal-to-noise group where readers will not be subjected to the types
of articles described above. The intention is to provide a useful
resource for inexperienced Perl programmers and to attract and retain
experienced programmers who can make a substantial contribution to the
group.
Comp.lang.perl.misc would still be left in place for more general
discussion, and for those topics that no one seems to agree on a place
for.
CHARTER: comp.lang.perl.moderated
The purpose of comp.lang.perl.moderated is to provide a forum for
discussion of matters related to the Perl programming language.
Comp.lang.perl.moderated is a moderated news group for discussion of
common Perl programming issues. Welcomed topics of discussion will
include any topic directly related to the Perl programming language.
The moderators will decide which posts are of general interest to the
worldwide Perl community. The moderators are free to reject any post
which is covered by the comp.lang.perl FAQ(s) or which is more
appropriate to another Usenet discussion group. Obvious homework
problems and trivial questions that can be answered by quick
inspection of the on-line documentation or any Perl text may also be
considered off-topic. Very broad questions which could equally apply
to any computer programming language may also be considered off-topic
by the moderators. Advocacy and "flame wars" about Perl will be
considered off-topic.
Articles should be formatted so as to be easily readable by any Usenet
reader. Badly formatted or munged articles and articles in violation
of the standard principles of netiquette may be rejected by the
moderators.
Overall, the moderators will lean towards accepting articles.
All posters to the group must be registered. Submissions from
registered posters will be forwarded to a moderator, who will post it
to the group if it is appropriate. Inappropriate articles will be
returned to the poster when possible, with an explanation of why the
article was rejected. No attempt will be made to verify the validity
of the poster's address, and bounces will be discarded. If feasible,
some mechanism will be provided for users to post under false
addresses until some better solution to the spamming problem appears.
Articles from first-time posters will be held temporarily. The poster
will be sent registration instructions, the group charter, and
pointers to relevant references. After the poster registers, the held
article will be forwarded to the moderation panel as usual.
No commercial posts of any sort will be allowed in the group.
The moderation panel will always consist of at least six members. New
moderators may be appointed, and old ones removed, by a two-thirds
majority vote of the moderation panel.
Any article submitted by a member of the moderation panel outside the
exercise of his or her administrative role will be subject to the full
moderation procedure described herein.
The moderation panel may implement any technical solutions it
considers necessary to enforce the provisions of this charter.
END CHARTER.
MODERATOR INFO: comp.lang.perl.moderated
Moderator: Russ Allbery <rra@stanford.edu>
Moderator: Greg Bacon <gbacon@cs.uah.edu>
Moderator: Hildo Biersma <hpp@lunatech.com>
Moderator: Mark-Jason Dominus <mjd-clpmod-submissions@plover.com>
Moderator: Eric Eisenhart <eric@sonic.net>
Moderator: "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
Moderator: Tad McClellan <tadmc@metronet.com>
Moderator: Chris Nandor <pudge@pobox.com>
Moderator: "Nathan V. Patwardhan" <nvp@mediaone.net>
Moderator: "Stephen P. Potter" <spp@colltech.com>
Moderator: Stephen Zander <gibreel@pobox.com>
Administrative contact address: mjd-clpm-admin@plover.com
Article submission address: mjd-clpm-submit@plover.com
END MODERATOR INFO.
IMPORTANT VOTING INFORMATION:
The purpose of a Usenet vote is to determine the genuine interest in
reading the proposed group, and soliciting votes from uninterested
parties defeats this purpose. Do *not* distribute this CFV; instead,
direct people to the official CFV posted to news.announce.newgroups.
Distributing pre-marked, incomplete, or otherwise edited copies of
this CFV is considered vote fraud.
This is a public vote: All email addresses, names and votes will be
listed in the final RESULT post. The name used may be either a real
name or an established Usenet handle.
At most one vote is allowed per person or per account. Duplicate
votes will be resolved in favor of the most recent valid vote.
Voters must mail their ballots directly to the votetaker. Anonymous,
forwarded, or proxy votes are not valid, nor are votes mailed from
WWW/HTML/CGI forms (which should not exist). Votes from nonexistent
accounts are also invalid, and the votetaker will reject any "munged"
address she cannot decipher immediately.
Please direct any questions to the votetaker at <mcq@best.com>.
HOW TO VOTE:
Extract the ballot from the CFV by deleting everything before the
"BEGINNING OF BALLOT" and after the "END OF BALLOT" lines. Please do
*not* send the entire CFV back to me. Don't worry about the spacing
of the columns or any quote characters (">") that your software
inserts.
Provide either your real name or an established Usenet pseudonym
following the words "Voter name:".
Indicate your vote in the brackets beside the group name. Valid votes
are YES, NO, ABSTAIN, and CANCEL. Examples of how to properly
indicate your vote (do not vote here):
[ YES ] example.vote.yes
[ NO ] example.vote.no
[ ABSTAIN ] example.abstention
[ CANCEL ] example.cancellation
Do *not* modify or delete any other information in this ballot.
Votetaking is automated, and any other changes to the ballot may
prevent your vote from being counted.
When you're finished, mail the ballot to <mcq@best.com>. Replying to
this message should work, but check the "To:" line. If you ordinarily
use a spam block, please delete it and use a valid address to vote.
If you do not receive an acknowledgment of your vote within three
days, contact the votetaker about the problem. You are responsible
for reading your ack and making sure your vote is registered
correctly.
-=-=-=-BEGINNING OF BALLOT: Delete Everything Before This Line=-=-=-=-
----------------------------------------------------------------------
Usenet Ballot: comp.lang.perl.moderated
This ballot is distributed blank in a Call for Votes | Leave this
posted to news.announce.newgroups or mailed from the | marker here:
votetaker. Other ballots may be rejected. | <CLPM-0002>
Add your name (and only your name) after the colon on the next line.
Voter name:
[Your Vote] Group (Place your vote in the empty brackets below.)
----------------------------------------------------------------------
[ ] comp.lang.perl.moderated
----------------------------------------------------------------------
-=-=-=-=-=-END OF BALLOT: Delete Everything After This Line-=-=-=-=-=-
DISTRIBUTION:
This CFV has been posted to the following newsgroups:
news.announce.newgroups
news.groups
comp.lang.perl.announce
comp.lang.perl.misc
Pointers directing readers to this CFV will be posted in the newsgroup
comp.lang.perl.modules and on the perl5-porters mailing list.
The CFV is also available by e-mail from the votetaker.
--
Rebecca Graham McQuitty Member, Usenet Volunteer Votetakers
------------------------------
Date: Mon, 22 Jun 1998 03:33:38 GMT
From: vijay_veeranna@my-dejanews.com
Subject: Capturing return code from Ksh script
Message-Id: <6mkjai$1vf$1@nnrp1.dejanews.com>
Hi,
I have a question about how to capture the return code from a shell
script invoked from perl. In the example below the shell script load_file.sh
is invoked from a perl script and I would like to capture the return
code from load_file.sh which is the LOAD_RESULT. Any suggestion
on how to do this is appreciated.
----------------------------------------------------------------
main.pl
!/usr/local/bin/perl
system("$SRV_ROOT/bin/load_file.sh");
return_code = ????
----------------------------------------------------------------
load_file.sh
!/bin/sh
$ORACLE_HOME/bin/sqlldr ${ORACLE_USER}/${ORACLE_PASSWD}
control=$SRV_ROOT/$PRELOAD_PATH/load_outrec.ctl data=$DATAFILE
ERRORS=100000 ROWS=100 silent='FEEDBACK' log = $LOG_FILE bad = $BAD_FILE
LOAD_RESULT=$?
----------------------------------------------------------------
Thanks
vijay
P.S. Respond to vijay.veeranna@cbis.com
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Mon, 22 Jun 1998 03:53:37 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Capturing return code from Ksh script
Message-Id: <Pine.GSO.3.96.980621205156.6898O-100000@user2.teleport.com>
On Mon, 22 Jun 1998 vijay_veeranna@my-dejanews.com wrote:
> I have a question about how to capture the return code from a shell
> script invoked from perl.
You probably want the $? variable, or the return value from system. See
the entry for system in perlfunc for an explanation of how to get the
return code from this value. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 22 Jun 1998 04:11:02 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Capturing return code from Ksh script
Message-Id: <6mklgm$k0r$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
vijay_veeranna@my-dejanews.com writes:
:I have a question about how to capture the return code from a shell
:script invoked from perl.
:
:system("$SRV_ROOT/bin/load_file.sh");
:return_code = ????
$return_code = system("$SRV_ROOT/bin/load_file.sh");
or
system("$SRV_ROOT/bin/load_file.sh");
$return_code = $?;
Of course, that's not the same as exit status. This is rather well
documented in the perlfunc, if I might be so immodest.
Here's the most recent version of that:
system LIST
system PROGRAM LIST
Does exactly the same thing as "exec LIST" except that a fork is
done first, and the parent process waits for the child process to
complete. Note that argument processing varies depending on the number
of arguments. The return value is the exit status of the program as
returned by the wait() call. To get the actual exit value divide by
256. See also the exec entry elsewhere in this document . This is
*NOT* what you want to use to capture the output from a command,
for that you should use merely backticks or qx//, as described in
the section on `STRING` in the perlop manpage.
Like exec(), system() allows you to lie to a program about its name
if you use the "system PROGRAM LIST" syntax. Again, see the exec
entry elsewhere in this document .
Because system() and backticks block SIGINT and SIGQUIT, killing
the program they're running doesn't actually interrupt your program.
@args = ("command", "arg1", "arg2");
system(@args) == 0
or die "system @args failed: $?"
You can check all the failure possibilities by inspecting `$?' like
this:
$exit_value = $? >> 8;
$signal_num = $? & 127;
$dumped_core = $? & 128;
When the arguments get executed via the system shell, results will be
subject to its quirks and capabilities. See the section on `STRING`
in the perlop manpage and the exec entry elsewhere in this document
for details.
In fact, any time a process gets reaped from wait, waitpid, backticks,
close, or system, the $? variable is set.
--tom
--
Sorry. My testing organization is either too small, or too large, depending
on how you look at it. :-)
--Larry Wall in <1991Apr22.175438.8564@jpl-devvax.jpl.nasa.gov>
------------------------------
Date: Sun, 21 Jun 1998 21:31:59 +0100
From: Andrew Lovell <andy@studioware.pt>
Subject: Dbi Informix driver
Message-Id: <358D6DBF.FC92508F@studioware.pt>
Has anyone tried the Dbi Informix driver, if so what was it like?
stable? fast? slow?
Thanks
Andy Lovell
------------------------------
Date: 22 Jun 1998 02:48:35 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Excel - Perl conversion
Message-Id: <6mkgm3$ebo$1@comdyn.comdyn.com.au>
In article <6mbd73$l76$1@news.cs.tu-berlin.de>,
Martin Schwartz <schwartz@cs.tu-berlin.de> writes:
> Alexander Farber <eedalf@eed.ericsson.se> wrote:
>
>>>> I am looking for a script that will convert excel into perl.
>
>>> It's like asking for a tire that will convert your chair into a banana.
>
>> i think there's no such script yet. But maybe Laola can help -
>> see http://wwwwbs.cs.tu-berlin.de/~schwartz/pmh/index.html
>
> There's in fact a tire converting a chair into a banana, and in fact
> it can be found at the above address. Laola got a perl 5 successor
> called OLE::Storage and is shipped with a utility "herbert" that
> converts Excel-Sheets to HTML.
That lets perl scripts access excel documents. IT does NOT convert
spreadsheets to perl. And that is what was asked.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm desperately trying to figure out
Commercial Dynamics Pty. Ltd. | why kamikaze pilots wore helmets - Dave
NSW, Australia | Edison
------------------------------
Date: Mon, 22 Jun 1998 02:05:10 GMT
From: "Judson McClendon" <judmc123@bellsouth.net>
Subject: Re: first language
Message-Id: <qZij1.5121$7L1.4298377@news1.atl.bellsouth.net>
John Beppu wrote:
>
> I feel like putting in my own 2 yen here.
>
>
> I am of the opinion that the best way to become familiar with
> pointers is to learn an assembly language of the architecture
> you use most often. I knew x86 assembly before I knew C, but
> moving to C from assembly was not a problem. A lot of times,
> I found myself thinking, "this is kinda like assembly" while
> learning C.
>
> If I ever taught anyone to program, I'd get some Assembly in
> early on to harden them and make them fearless. ;)
I completely agree, John. My first language was assembler, and I believe
that I have profited from that throughout my 30 year career. The problem
is that many people won't spend the time and effort to go that rout. This
is the reason I didn't recommend that in my post.
--
Judson McClendon This is a faithful saying and worthy of all
Sun Valley Systems acceptance, that Christ Jesus came into the
judmc123@bellsouth.net world to save sinners (1 Timothy 1:15)
(please remove numbers from email id to respond)
------------------------------
Date: Mon, 22 Jun 1998 02:25:40 GMT
From: "Judson McClendon" <judmc123@bellsouth.net>
Subject: Re: first language
Message-Id: <Egjj1.5124$7L1.4307317@news1.atl.bellsouth.net>
firewind wrote in message ...
>
>I started with BASIC and, while I eventually overcame the myraid and horrendous
>flaws it instilled in me (or so I'd like to think; I'm sure there are many in
>this newsgroup who would probably care to debate that fact) it was not
>pleasant, it was not easy, and it was not fun. It took some time. Time that,
>for certain, could have been better spent. Had I started with a real,
>non-braindamaged language first, I am conviced I would have faired much better.
>
>Don't start with BASIC. While it might not leave -permanent- brain-damage, it
>just isn't worth it.
I suspect your problem was not that you started with BASIC, but that you had no,
or little, instruction in good structured programming technique, and possibly a
version of BASIC which did not support good structured constructs. With the
proper instruction, QuickBasic is almost as good a programming language as Pascal,
perhaps better in some respects. Though QuickBasic does not enforce the structure
as Pascal does, QuickBasic supports it. You have subroutines and functions, with
formal declarations and data typing, flexible global and local variables, parameter
passing by reference or value (in PDS 7.1), etc. This is quite enough to teach and
learn good fundamental programming skills. And with the advantage that programming
in BASIC is *quick* and *easy*. I would not choose BASIC to write a large
application, but I write small utilities in BASIC all the time. I can often write
and run a small utility in BASIC before I could fire up my VC++ or VB compilers and
begin coding. My major complaint about BASIC is the implicit declaration of
variables as encountered. While convenient for 'quick and dirty' small programs, it
can be a serious disadvantage on large programs. Like VB, every BASIC should have
an option to require explicit variable declarations. A similar characteristic in
FORTRAN caused a Venus probe to go astray many years ago. This was one of the
triggering events which caused the U.S. DOD to develop Ada.
Now, if you want to discuss languages which *can* leave permanent brain damage if
learned as a first language, I suggest RPG and APL as top contenders. ;-)
--
Judson McClendon This is a faithful saying and worthy of all
Sun Valley Systems acceptance, that Christ Jesus came into the
judmc123@bellsouth.net world to save sinners (1 Timothy 1:15)
(please remove numbers from email id to respond)
------------------------------
Date: 21 Jun 1998 22:49:31 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: first language
Message-Id: <6mkgnr$38m$1@monet.op.net>
In article <6mf1o8$nc4$1@monet.op.net>,
mjd@op.net (Mark-Jason Dominus) wrote:
>> Consider a language that supports both call-by-value and
>> call-by-reference semantics, say Pascal. You will have to explain
>> to the students why one and not the other must be used in a case
>> like this, and the explanation will be nearly identical to the
>> explanation of why scanf arguments are preceded by & in C. So
>> pedagogically, there is very little difference between these two
>> things.
In article <6mka4n$n1j$1@nnrp1.dejanews.com>, <raw@cs.wisc.edu> wrote:
>This is wrong.
>
>In Pascal, read and write have the same syntax (except for optional
>formatting in write). Call by value and call by reference are
>distinguished when defining a function or procedure, not when calling
>it. Since C does not have call by reference, it must simulate it
>with explicit pointers; and this is relevant for calls of standard
>functions like scanf, which look very different from printf.
I must be missing something fundamental here. You begin with `this is
wrong', and then you say a bunch of things that I think are evidently
true.
The contradiction is not apparent to me, and I am not sure what your
point is. If you are refuting me, could you say what it is you are
refuting?
------------------------------
Date: Mon, 22 Jun 1998 01:59:46 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Help with guestbook PLEASE
Message-Id: <Pine.GSO.3.96.980621185703.6898J-100000@user2.teleport.com>
On Mon, 22 Jun 1998, Bill wrote:
> Newsgroups: comp.lang.perl, comp.lang.perl.misc
If your news administrator still carries comp.lang.perl, please let him
or her know that that newsgroup has not existed since 1995. If you
have such an outdated newsgroup listing, you are probably missing out
on many other valid newsgroups as well. You'll be doing yourself and
many others a favor to use only comp.lang.perl.misc (and other valid
Perl newsgroups) instead.
> Hi, I am trying to make a guestbook perl file work. I keep getting an
> error
When you're having trouble with a CGI program in Perl, you should first
look at the please-don't-be-offended-by-the-name Idiot's Guide to solving
such problems. It's available on CPAN.
http://www.perl.com/CPAN/
http://www.perl.org/CPAN/
http://www.perl.org/CPAN/doc/FAQs/cgi/idiots-guide.html
http://www.perl.org/CPAN/doc/manual/html/pod/
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 Jun 1998 00:12:58 -0500
From: Dave Knight <lucasdave@hotmail.com>
Subject: How to make 2D indexed array of hash?
Message-Id: <358DE7DA.402D@hotmail.com>
I would appreciate some advice on working with a 2D array, where I would
like to create a 2D array which is basically an indexed array of hash
arrays. Could someone please show me a few examples of defining this
array, getting to various fields in it, and passing it to a subroutine.
I need to use this array to access structures similar to records or
structures (like those used in Pascal and C++) and have heard that hash
arrays should be used as records. I then will have an indexed array of
these hash arrays.
Thanks for your help
Dave
ie. should I set something up like @foo = ([a => 'A', b => 'B'] [c =>
'C', d => 'D'])
so would $foo[0][a] = 'A' ?
------------------------------
Date: Mon, 22 Jun 1998 00:14:10 -0500
From: Dave Knight <lucasdave@hotmail.com>
Subject: How to make 2D indexed array of hash?
Message-Id: <358DE822.3C73@hotmail.com>
I would appreciate some advice on working with a 2D array, where I would
like to create a 2D array which is basically an indexed array of hash
arrays. Could someone please show me a few examples of defining this
array, getting to various fields in it, and passing it to a subroutine.
I need to use this array to access structures similar to records or
structures (like those used in Pascal and C++) and have heard that hash
arrays should be used as records. I then will have an indexed array of
these hash arrays.
Thanks for your help
Dave
ie. Is this correct? I set a 2D array up like @foo = ([a => 'A', b =>
'B'] [c => 'C', d => 'D']), and then access it like this $foo[0][a] =
'A' ?
------------------------------
Date: 22 Jun 1998 03:39:27 GMT
From: mikep@rt66.com (mikep)
Subject: Re: HTML Forms - Checkbox data
Message-Id: <6mkjlf$91c$1@news.rt66.com>
In article <6mhmso$mp0$1@nnrp1.dejanews.com>
lhiller@compupartner-edm.com writes:
> What is the value sent to a perl "form-fetching" script when a checkbox is on
> or off? Is this constant with all browsers?
I think the values are "on" and "off". Now this is with netscape. I
suppose you could take netscape and ie and see how they compare. Since
scripts fetching values are "backend" and not server related perse, I
would be more inclined to think this has more to do with the web server
that is running and how it is configured. But don't quote me on that.
===========================
Mike Powell
mikep@rt66.com
http://www.rt66.com/~mikep/
------------------------------
Date: 22 Jun 1998 04:54:20 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Pod::Text -- Unix only?
Message-Id: <898491774.831236@thrush.omix.com>
lvirden@cas.org wrote:
: This is a common problem on Unix / X window system environment. For instance,
: stty -a isn't of much use when I telnet from my workstation into
: someone else's, unless I specifically have hand set stty to reflect my
: rows and columns.
It's not a common problem. Your telnet is broken or misconfigured.
Try rlogin, it sometimes works in places where telnet is being
lame.
: The same goes for expecting to find environment
: variables of ROWS and COLUMNS.
Yes, these must be user set, most commonly via the resize command.
: Wouldn't it be nice if xterm/rxvt/dtterm and so forth had an escape
: sequence to report it's size....
I don't think it's done via escapes, but it does work. Here is
my stty output as I change the size of my xterm:
$ stty
speed 9600 baud; -parity
rows = 24; columns = 80; ypixels = 484; xpixels = 819;
erase = ^h; swtch = <undef>;
brkint -inpck -istrip icrnl -ixany imaxbel onlcr
echo echoe echok echoctl echoke iexten
$ stty
speed 9600 baud; -parity
rows = 36; columns = 94; ypixels = 724; xpixels = 959;
erase = ^h; swtch = <undef>;
brkint -inpck -istrip icrnl -ixany imaxbel onlcr
echo echoe echok echoctl echoke iexten
If you want COLUMNS/ROWS set, you'll need to manually eval resize:
eval `resize`
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 21 Jun 1998 22:43:30 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Problem with flock()
Message-Id: <ogvmt82l.fsf@mailhost.panix.com>
Here's my code:
sysopen(POLL_HTML, $poll_html, O_RDWR|O_CREAT, 0644)
or die "Can't open $poll_html for read/write: $!";
flock(POLL_HTML, LOCK_EX)
or die "Can't lock $poll_html exclusive: $!";
It dies at the flock with this error, which is documented neither in
perldiag (which is unsurprising, since it seems to be an os error) nor
in man flock on this IRIX box:
Can't lock /the/path/edited/for/employment/reasons/poll.html
exclusive: No record locks available at ./create_poll_html.pl
line 41.
Can someone elucidate? tchrist? rootbeer? What does it think I'm
trying to do that involves "records?" Oooh, I've just examined the
lockf manpage, and see that it works with records, which suggests to
me that perl was mis-configured by the sysadmin during compilation,
and is using the flock emulation, rather than le vrai flock(). Hmm.
The fcntl manpage suggests that an error such as the one reported
might be the function of lockd running without statd, but neither is
running on my box, and neither is even documented in the local
manpages. What the fsck is going on?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: Mon, 22 Jun 1998 03:07:21 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Problem with flock()
Message-Id: <Pine.GSO.3.96.980621195335.6898M-100000@user2.teleport.com>
On 21 Jun 1998, Jonathan Feinberg wrote:
> Can't lock /the/path/edited/for/employment/reasons/poll.html
> exclusive: No record locks available at ./create_poll_html.pl
> line 41.
Like you, I also suspect that your perl is miscompiled. (But we could
easily be wrong on this, of course...) I don't find any tests of flock in
the standard test suite, alas. So see whether recompiling with proper
settings does any good. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 Jun 1998 02:01:14 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: problems with flock
Message-Id: <Pine.GSO.3.96.980621190003.6898K-100000@user2.teleport.com>
On 21 Jun 1998, Brian L. Matthews wrote:
> |But I do know that you should *not* unlock the files.
>
> Why not? Yes, if you're just going to immediately close a file, it's not
> *necessary* to unlock the file first, but it doesn't really hurt
Not so; there are hidden buffering issues to consider. You should release
the lock only if you understand everything about what's going on behind
the scenes. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 22 Jun 1998 12:02:56 +1000
From: Jaime Metcher <metcher@spider.herston.uq.edu.au>
Subject: Re: Question(s) about lexically scoped variables under 'use strict'
Message-Id: <358DBB50.8D415081@spider.herston.uq.edu.au>
Stephan Carydakis wrote:
>
<snip>
> P.S. just a tit-bit. 'pragma' is a greek word meaning 'thing'
> _______________________________________________________________
Huh? Doesn't pragma mean "action"? Dogma = theory, pragma = practice.
(pragma, praxis, practice, practical vs dogma, doxis, orthodox,
doxology)
--
Jaime Metcher
------------------------------
Date: 22 Jun 1998 03:20:05 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Qustion for contract Perl scripters
Message-Id: <6mkih5$ebo$3@comdyn.comdyn.com.au>
In article <358C3C62.C71530D8@pacbell.net>,
fistful <fistful@pacbell.net> writes:
> How many hours does it take for you to usually develop a script
> to create:
> 1) a login/password page (for 100 different users)
What's a page? You mean a HTML page? No time needed. It's HTML, not perl.
Logins/passwords are normally taken care of by the server. No need to
script. if for some reason you don't want that, and you do require
some script, it depends on what you want, where it needs to be stored,
etc.. etc..
Anything from a few minutes to weeks.
> 2) an email with information included from a form with
> the job # in the subject line
What does that mean?
If you mean that you have some html form, and you want an email sent
to someone when users press some button, with something in it that has
some form element's value in it; it's trivial.
> 3) a script that takes information from a form and posts
> it in a schedule table online
A few minutes to 16 days, depending on the complexity.
> I'm trying to get an idea of how much money it would take to get these
> things done. Any
> advice would be greatly appreciated.
Really, what you provide does not at all make it possible to make any
estimate. Instead of what you're trying to do here, you should contact
someone who would be willing to do the work, explain exactly waht you
want, let them make you an offer, and look at that. Do this with
several people. Pick the one that looks best.
> fistful
Odd name. Your parents must have a weird sense of humour.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | In a world without fences, who needs
Commercial Dynamics Pty. Ltd. | Gates?
NSW, Australia |
------------------------------
Date: 22 Jun 1998 03:05:21 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: system() fails with 65280
Message-Id: <6mkhlh$ebo$2@comdyn.comdyn.com.au>
In article <35892E89.59C1ACDD@mesasys.com>,
Lou Bershad <lrb@mesasys.com> writes:
> I have a perl script that does a lot of processing and file I/O.
> Approximately every minute I execute two system() calls (one calls zip,
> the other calls ps). At tenth invocation, the system calls fail. I get
>
> no output from either of the calls and the system variables have the
> following values:
> $! = 65280 (0xFF00)
> $? and $@ are blank.
yes.. And what did system return?
# perldoc -f system
[snip]
The return value is the exit status of the program as returned by the
wait() call. To get the actual exit value divide by 256. See also
L</exec>.
[snip]
Do this, and see what it is. Consult the documentation of the command
to find out what the exit value actually means.
$! just returns errno, which might have nothing to do with why
system() fails.
Have you read the man page for this?
# perldoc perlvar
[snip]
$! If used in a numeric context, yields the current
value of errno, with all the usual caveats. (This
means that you shouldn't depend on the value of "$!"
to be anything in particular unless you've gotten a
specific error return indicating a system error.)
[snip]
Note that 'system' in this does NOT refer to the perl builtin system()
function. It refers to system calls, which is a different sort of
thing alltogether.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Unix is user friendly. It's just
Commercial Dynamics Pty. Ltd. | selective about it's friends.
NSW, Australia |
------------------------------
Date: 22 Jun 1998 05:29:34 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: What "mini" database (text?) to use?
Message-Id: <898493888.707321@thrush.omix.com>
Kay Molkenthin <molkiheg@sp.zrz.tu-berlin.de> wrote:
: I just started with perl and wrote an adress book for my webserver.
: Because I want to learn more about perl I like to store the datas in a
: database, now I store them in a text file.
:
: For this project I only need a small database application. I heared of a
: text based perl database. What is the name and what do I need?
Information on DBM style databases can be found via
perldoc AnyDBM_File
If you want a text style database system with SQL style access,
check out the DBI system and the DBD::CSV driver, or the Sprite
module. All available at CPAN.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 2930
**************************************
