[10058] in Perl-Users-Digest
Perl-Users Digest, Issue: 3651 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 7 08:07:09 1998
Date: Mon, 7 Sep 98 05:00:32 -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 Mon, 7 Sep 1998 Volume: 8 Number: 3651
Today's topics:
Re: a better read()? <lembark@wrkhors.com>
Re: Authentication <lembark@wrkhors.com>
Re: cannot find <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: COBOL and Perl (Shaun C. Murray)
Re: core dump from perl. Don't know why... dow.jones@home.se
Re: Getting rid of excess file space within a file with <lembark@wrkhors.com>
Re: Getting rid of excess file space within a file with (Larry Rosler)
How do you supply cleartext password and be secure in P <leachcj@bp.com>
Re: I have too much free time..... <lembark@wrkhors.com>
Re: IO::File Permissions - Revisited (Lack Mr G M)
milliseconds? <poyopoyo@gol.com>
Re: milliseconds? (Roberto)
Re: milliseconds? (Jean-Damien Durand)
Novell - Perl 5 Help <b0th@geocities.com>
Re: Novell - Perl 5 Help (Fred Melssen)
Re: Pattern matching specific <lembark@wrkhors.com>
Re: Printing images <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Q: symlink under NT possible? <lantrewi@do.isst.fhg.de>
Re: Text::CSV parsing sporadically <lembark@wrkhors.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 07 Sep 1998 02:54:29 -0500
From: Steven Lembark <lembark@wrkhors.com>
Subject: Re: a better read()?
Message-Id: <35F39135.8F1DEF63@wrkhors.com>
Sam Wang wrote:
>
> i think it kinda sucks how you have to specify how big the buffer is for
> read(). if you specify it too big, perl'll quit with an out of memory
> error, too little and it might not be enough. is there a way around
> this?
use <> for delimeted input. sysread and friends are for times
when you know how much data to read. if you're stuck with
sysread or read then at *worst* you can read multiple smaller
buffers and append them into a single variable:
my $buffer = '';
LOOP:
for(;;)
{
last LOOP unless my ( $readable, $timeleft ) = select( blah );
$buffer .= $buff if $sysread $fh, $buff, 8192;
}
$buffer;
works nicely for me handling fd's from open2 or open3.
8192 and 4096 are nice read sizes, depending on the size of
the standerd i/o page on your system -- usually either 8192
or 4096.
--
Steven Lembark 2930 W. Palmer St.
Workhorse Computing Chicago, IL 60647
lembark@wrkhors.com 800-762-1582
---------------------------------------------------------------------
The opinions expressed here are those of this company.
I am the company.
---------------------------------------------------------------------
------------------------------
Date: Mon, 07 Sep 1998 02:56:13 -0500
From: Steven Lembark <lembark@wrkhors.com>
Subject: Re: Authentication
Message-Id: <35F3919D.FCF9A92B@wrkhors.com>
> I am using Apache to require password authentication for a CGI system I've
> coded in PERL. I was hoping someone could explain how I can retrieve the
> username of the person who has been authenticated in PERL. Thanks!
they normally have to type in a user name to get access, no?
you can never trust any kind of username, etc, that comes from
the remote system since the messages may themselves be hacked.
--
Steven Lembark 2930 W. Palmer St.
Workhorse Computing Chicago, IL 60647
lembark@wrkhors.com 800-762-1582
---------------------------------------------------------------------
The opinions expressed here are those of this company.
I am the company.
---------------------------------------------------------------------
------------------------------
Date: 07 Sep 1998 09:10:55 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: cannot find
Message-Id: <7xlnnw2y9s.fsf@vcpc.univie.ac.at>
Re: cannot find, ananth <ananth@lankacom.net> said:
ananth> i am lost. can somebody tell me which is the the
ananth> perl library, so that readParse will create the perl
ananth> associative array called $IN which contains the
ananth> values assigned to every form variable when the user
ananth> fills out the form. I am usin perl5 in AIX(IBM
ananth> RS6000) platform
If I were you, use CGI; instead.
much more fun...
otherwise the library you're after is cgi-lib.pl (although
CGI.pm will operate in back-compat mode).
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: 7 Sep 1998 10:47:28 GMT
From: scm@enterprise.net (Shaun C. Murray)
Subject: Re: COBOL and Perl
Message-Id: <6t0dk0$ep5$4@news.enterprise.net>
In article <tglnnz8roi.fsf@noise.bsd.uchicago.edu>,
d-edwards@nospam.uchicago.edu says...
>
>scm@enterprise.net (Shaun C. Murray) writes:
>
>>
>> In article <tgu32qv43y.fsf@noise.bsd.uchicago.edu>,
>> d-edwards@nospam.uchicago.edu says...
>> >
>> >Obviously if one doesn't know the syntax of a language, getting
>> >semantics out of a particular utterance in the language is going
>> >to be tricky; that doesn't seem to me to be peculiar to perl though.
>>
>> Sure but designing a language that involves cryptic symbols which have to be
>> learned rather than english words seems a bit silly to me.
>
>Well, I think that depends on the problem domain the language is
>designed to handle. Again, I don't think this criticism is particular
>to perl; similar arguments could be made about most computer languages,
>mathematical notation, etc. Usually the symbols are not intended
>to deceive or be "cryptic," but to make the commonly used "idioms"
>of the language... what's the word I'm looking for... succinct.
as I said, shorthand.
>
>Silly e.g.: I don't think "a*b" is much more cryptic than "a times b,"
>but then I wouldn't call the latter "much more verbose." As the
>problems you typically deal with get more and more complicated than
>multiplication, though, the dilemma of choosing between "more cryptic"
>and "more verbose" (farther from / closer to the "English description"
>of the operation the notation stands for) gets harder and harder.
But thats just for maths you're describing. There is a well known notation for
that that's evolved over 100's of years.
[snip more maths]
>
>If I say that I really don't understand whether "test-data" and
>"data-rec" here are builtin operators, user-supplied functions, or
>actual data chunks, I hope you won't think I'm being facetious.
You're inferring your knowledge of other computer languages on the example. ie.
you know about operators, user-supplied functions etc from other languages. Try
just reading it as English.
btw, it wasn't supposed to be a whole program just a few sections of code.
> I
>mean yes, I have a vague idea of what's going on... the loop is
>counting the records in the data-file, yes? But if it's doing more
>than that I honestly missed it.
Nope that's all it was doing and you had more than a vague idea. From not
seeing any COBOL before, you know what the program segment was doing. Does that
prove my point?
> Is data-file the actual filename, or
>is it a variable for a filename supplied elsewhere?
In this case it wasn't explicit as I didn't include the File Section which
defines the file. It isn't important to the understanding of the program - you
understood it was a file.
> Is this supposed to
>print anything other than "hello" & "end of file"? I was expecting it
>to print out rec-no at some point, is that var. just for the program to
>keep track of where it is in the file?
as I said, it was just a collection of code fragments as an example.
>
>Obviously I could learn all of these things about COBOL, just
>as you could learn enough about perl to understand the tab-splitting
>example from a few posts back.
Actually, I thought that example was pretty lame. It was supposed to show a
flaw in COBOL that the original programmer couldn't cope with non-fixed length
fields yet the Perl example had the fields locations specified.
>
>> It's verbose but then so is English. The punctuation makes sense.
>
>perl punctuation makes sense if you know perl. :)
COBOL punctuation makes sense if you know English.
> Seriously, let's
>take a simple example: line-termination chars vs. line-continuation
>chars.
COBOL doesn't have line termination of line continuation characters except in
the case where you want to continue a long string. You stick a hyphen at the
beginning of the next line.
Otherwise the compiler is intelligent enough to parse more than one line and
work out that the next statement terminates the previous one. eg.
move 10 to var-a
5 to var-b
2 to var-c
subtract var-b from var-a
display "finished"
That's three seperate statements and the compiler can work out that 'subtract'
is a new statement. Where you would use {}, begin/end etc in other languages,
you have END- scope delimiters eg.
if var-a is greater than var-b then
add var-a to var-b
add var-c to var-b
else
display "fail"
display "var-a is less"
end-if
> Since I don't see any of the former in your example, I'm gonna
>guess that COBOL uses some punctuation to denote that a line is
>continued on the next, i.e. that two or more lines of source code should
>be treated as a "unit"
See above. That's a wrong assumption. If I write a long sentance than continues
onto another line I can work out that it continues by parsing it. Why can't a
computer?
>. E.g. in matlab you'd end the line with
>an ellipsis (...), in FORTRAN you'd start the next line with a "*".
>So it'd be unfair of me to criticize COBOL just for using
>punctuation for this (COBOL's not alone in this)
You're wrong.
>, just as I
>think it's unfair to criticize perl for using a semicolon
>to end a line (perl's not alone in this).
No, Pascal for one. COBOL uses periods to terminate a 'unit' ie. Sentance but
they are ambiguous in most cases so people tend to use scope delimiters such as
end-if, end-string, end-evaluate etc
>
>> No curley braces, semi-colons or colons in sight.
>
>To sum up an already long post: I don't think this is a criticism
>of perl per se (these features are shared by many languages).
>While some problems might be readily, even preferably, tackled
>using a very English-like language, for other problems this approach
>can become at best tedious, at worst frustratingly complex.
Speaking with my support programmer hat on - Keep It Simple Stupid -
Simplification makes it much easier to understand other peoples code.
>
>> I don't want to learn shorthand as
>> only people who know shorthand can read it.
>Even if you needed to take lots+lots of notes realtime?
>E.g. med school, legal secretary? :) IMHO it depends on what one's doing.
I'm a programmer not a secretary. My shorthand is a collection of object
frameworks, a growing repository and a searchable database of tried and tested
code that I can understand years after I or someone else has written it.
--
Shaun
scm@enterprise.net PGP Key available
------------------------------
Date: Mon, 07 Sep 1998 11:24:32 GMT
From: dow.jones@home.se
Subject: Re: core dump from perl. Don't know why...
Message-Id: <6t0fpg$hj6$1@nnrp1.dejanews.com>
I've issued the command "gdb -c core" which gives the following result:
zeus:~/cgi-bin$ gdb -c core
Core was generated by `perl nph-main'.
Program terminated with signal 11, Segmentation fault.
#0 0x1af238 in ?? ()
(gdb)
what does a segmentation fault means and how can i find more information about
what exactly happened?
// Daniel
In article <6rubio$pds$1@nnrp1.dejanews.com>,
huntersean@hotmail.com wrote:
> In article <6ru8an$m7k$1@nnrp1.dejanews.com>,
> dow.jones@home.se wrote:
> > Hi,
> >
> > I've got a program that is run from Internet. Sometimes it generates a large
> > (4 Mb) 'core' file. I have tried with the -w flag but I don't get any errors
> > at all.
> >
> > Is it possible to look at the core-file to see what the problem was?
> >
> > // Daniel
>
> Yes. In general, you need to use a debugger (such as gdb) to look at core
> files. Having said that, your perl script shouldn't coredump, so
perhaps you
> should run your script through the perl debugger ("perl -d") and find out
> what's really going wrong.
>
> Sean Hunter
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 07 Sep 1998 02:35:31 -0500
From: Steven Lembark <lembark@wrkhors.com>
Subject: Re: Getting rid of excess file space within a file without closing and reopening
Message-Id: <35F38CC3.D26F95F1@wrkhors.com>
> I am looking for some info on files and copying while locked with flock.
> I have a file which gets parsed for lines that need to be deleted, and
> the lines which have to be kept are written to a temp file. Once the
> entire file is parsed, the situation is reversed and the temp file
> contents are copied to the original file. I have to use locking and the
> code I have come up with is as follows, running on a Linux 2.0.35 box
> and Perl 5.004.
sounds like you'd rather just use perl -i (i.e., in-place edit).
e.g., perl -i~ -n -e 'print if $blah' myfile
will move your existing myfile to myfile~, open a new copy of
myfile and put the items you want into it. done. if you
want to make sure noone else is using it during the filter
phase then use:
mv myfile _myfile;
perl -i~ -n -e 'print if $blah' _myfile;
mv _myfile myfile;
since people would be locked out of the file anyway moving it
has no real effect.
--
Steven Lembark 2930 W. Palmer St.
Workhorse Computing Chicago, IL 60647
lembark@wrkhors.com 800-762-1582
---------------------------------------------------------------------
The opinions expressed here are those of this company.
I am the company.
---------------------------------------------------------------------
------------------------------
Date: Mon, 7 Sep 1998 01:13:36 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Getting rid of excess file space within a file without closing and reopening
Message-Id: <MPG.105d358f1df765df989830@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <35F37C28.D288E7C0@ml.petech.ac.za> on Mon, 07 Sep 1998
08:24:41 +0200, Bruce Smith <9401962@ml.petech.ac.za> says...
...
> open(LOG, "+</log/death.log");
> open(TMP, "+>/tmp/death.log/tmp");
How do you know that these requests for operating-system services
succeeded? (There are many other requests in this snippet that you might
want to check also, but 'open' is the most critical.)
> flock(LOG, LOCK_EX);
> flock(TMP, LOCK_EX);
> while (<LOG>) {
> if (!(m/$Test/)) {
> print TMP "$_";
> }
> }
Idiomatically, the five-line loop could just be:
/$Test/o or print TMP while <LOG>;
The quotes around the single variable "$_" are misleading, and in fact
the use of $_ is the default, and the 'o' asks that the regex not be
compiled for every line read.
> seek(LOG, 0, 0);
> seek(TMP, 0, 0);
> while (<TMP>) {
> print LOG "$_";
> }
As above, 'print LOG while <TMP>;'
> close(LOG);
> close(TMP);
> unlink(TMP);
>
> What happens with this is that the lines get removed as per spec, but
> the last lines of the file, ie the difference between the old file size
> and the new file size remain. Is there any way to get around this, by
> clearing the file before the second while loop, that does not release
> the locks.
See if the 'truncate' function is implemented on your system. (From what
you say, it probably is.) Then add
truncate LOG, 0;
after you rewind it and before you write on it.
If not, you may have to use a third resource (temp directory or file) to
lock the whole operation, so you can close and reopen the LOG file
without the '+'. But as all the processes writing to the log file
'/log/death.log' must cooperate in any case by testing the same locks,
wouldn't just the lock on the temp file '/tmp/death.log/tmp' suffice (if
you rearrange the start so that is locked first)?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 07 Sep 1998 18:36:22 +1000
From: Chris Leach <leachcj@bp.com>
Subject: How do you supply cleartext password and be secure in Perl (was Perl compiler)
Message-Id: <35F39B06.914128B0@bp.com>
I've been reading the "Perl Compiler" thread had a look at a few FAQ but
have not seen offered the secure way to supply a perl script a password
which it will need to supply in clear text. This occurs often enough
that
I would have thought there would be a canned solution available.
How do people supply there FTP, SQL etc scripts with that all important
password?
Regards,
Chris Leach
PS Since this is not specific to modules I've set followups to misc.
Ky Nguyen wrote:
>
> Bart Lateur wrote:
>
> > Lily Y. Fu wrote:
> >
> > >I didn't want them to read the text, simply
> > >because I have password embedded in the program
> > >in clear text.
>
> Even if you hide it in a compiled binary, if you let the usersread it,
> they can strings (in Unix) to find out what that is.
>
> > >I would appreciate you guys help me out
> > >on "protecting the password" issue...
> >
>
> We had big debate about "security" on our site similar to what
> going on on this thread. The way I see it is security is like a
> bolt lock at your door. Most people look at this and assume
> that the house is locked. Few might want to enter and then
> realize that the house is actually locked. Among these people,
> some might want to gain access. And if they are good enough
> they can -- specially those that make the bolt lock.
>
> PS: I think the "compile vs non-compile" topic is within perl
> newsgroup but the "security" topic is not.
------------------------------
Date: Mon, 07 Sep 1998 02:46:13 -0500
From: Steven Lembark <lembark@wrkhors.com>
Subject: Re: I have too much free time.....
Message-Id: <35F38F45.2D331D4@wrkhors.com>
> Unix(untested):
> perl -e 'use integer;$_ = "Just another perl guy";@f=("al","uy");s/(.*)(G|g).*/$1${2}$f[rand(2)*1]/;print'
you forgot the trailing newline, looks lousey glued to the
front end of my shell prompt...
--
Steven Lembark 2930 W. Palmer St.
Workhorse Computing Chicago, IL 60647
lembark@wrkhors.com 800-762-1582
---------------------------------------------------------------------
The opinions expressed here are those of this company.
I am the company.
---------------------------------------------------------------------
------------------------------
Date: Mon, 07 Sep 1998 10:37:08 BST
From: gml4410@ggr.co.uk (Lack Mr G M)
Subject: Re: IO::File Permissions - Revisited
Message-Id: <1998Sep7.103708@ukwit01>
In article <35F31417.77103552@sneex.fccj.org>, Bill 'Sneex' Jones <sneaker@sneex.fccj.org> writes:
|>
|> Perl IO::File Bug?
Hmmm....looks like it...
But it could be misleading documentattion...
|> my $file = "test.File";
|> my $fh = new IO::File $file, "a", "0600";
The permissions should be a number, not a string (ie. remove the
quotes from around 0600).
However, if you actually look at the source of IO::File (it's very
short...) you will see that the PERMS parameter is *only* used iff the
MODE parameter is numeric.
> if (@_ > 2) {
> my ($mode, $perms) = @_[2, 3];
> if ($mode =~ /^\d+$/) {
> defined $perms or $perms = 0666;
> return sysopen($fh, $file, $mode, $perms);
> }
> $file = './' . $file if $file =~ m{\A[^\\/\w]};
> $file = IO::Handle::_open_mode_string($mode) . " $file\0";
> }
> open($fh, $file);
Presumably the problem is that the only way to open a file with a
PERMS option is to use sysopen, and that needs umeric MODEs. However,
this seems to be missing from the documentation.....
The workaround is to wrap your opens in umask changes, something like
this:
sub my_open {
my ($file, $mode, $perms) = @_;
my $omask = umask $perms;
my $fh = new IO::File $file, $mode;
umask $omask;
return $fh;
}
--
----------- Gordon Lack ----------------- gml4410@ggr.co.uk ------------
The contents of this message *may* reflect my personal opinion. They are
*not* intended to reflect those of my employer, or anyone else.
------------------------------
Date: Mon, 07 Sep 1998 07:49:20 GMT
From: Joe Petrow <poyopoyo@gol.com>
Subject: milliseconds?
Message-Id: <Pine.BSI.3.96.980907164501.15452C-100000@gol1.gol.com>
How do get the milliseconds unit of current time using Perl?
Joe Petrow
poyopoyo@gol.com
------------------------------
Date: 7 Sep 1998 07:56:26 GMT
From: roberto@toutatis.net (Roberto)
Subject: Re: milliseconds?
Message-Id: <roberto-ya02408000R0709980957260001@news.euronet.nl>
In article <Pine.BSI.3.96.980907164501.15452C-100000@gol1.gol.com>, Joe
Petrow <poyopoyo@gol.com> wrote:
> How do get the milliseconds unit of current time using Perl?
>
> Joe Petrow
> poyopoyo@gol.com
use builtin qw(clock);
avaliable at CPAN
--
roberto@toutatis.net
------------------------------
Date: 7 Sep 1998 08:09:39 GMT
From: ddurand@hpplus14.cern.ch (Jean-Damien Durand)
Subject: Re: milliseconds?
Message-Id: <6t04c3$8fi$1@sunnews.cern.ch>
An also in `man perlfaq8`, "How can I measure time under a second?".
> > How do get the milliseconds unit of current time using Perl?
> >
> > Joe Petrow
> > poyopoyo@gol.com
>
> use builtin qw(clock);
Cheers, Jean-Damien.
--
*******************************************************
* Jean-Damien Durand (Jean-Damien.Durand@cern.ch) *
* www : http://wwwinfo.cern.ch/~ddurand/ *
*******************************************************
------------------------------
Date: Mon, 7 Sep 1998 10:46:40 +0100
From: "Andrew Robinson" <b0th@geocities.com>
Subject: Novell - Perl 5 Help
Message-Id: <6t0a23$1j0$1@probity.mcc.ac.uk>
I have recently moved some Perl 5 scripts to a novell netware webserver 3.x
from an apache webserver. The scripts do not appear to run on the NNWS 3.
The sample scripts run okay on the server but not the ones I have moved to
it (these scrpits basicly involve online forms). The scrpits don't contain
any unsupported commands (according to the on-line documentation).
Is there any "Generic" solution to this problem ie, using differnet libaries
etc or will the scripts have to rewritten from scratch to work with NNWS3 ?
yours in anticipation
Andrew Robinson
------------------------------
Date: Mon, 07 Sep 1998 11:16:48 GMT
From: f.melssen@inter.nl.net (Fred Melssen)
Subject: Re: Novell - Perl 5 Help
Message-Id: <35f3bee1.14659523@news.Leiden.nl.net>
I can't think of a generic solution. Novell uses its own libraries.
One of them 'cgi-lib.pl' contains the routine 'PrintHeader' which
handles environment variables slightly different than Unix servers.
Can you send me one of those scripts?
-fred
On Mon, 7 Sep 1998 10:46:40 +0100, "Andrew Robinson"
<b0th@geocities.com> wrote:
>I have recently moved some Perl 5 scripts to a novell netware webserver 3.x
>from an apache webserver. The scripts do not appear to run on the NNWS 3.
>
>The sample scripts run okay on the server but not the ones I have moved to
>it (these scrpits basicly involve online forms). The scrpits don't contain
>any unsupported commands (according to the on-line documentation).
>
>Is there any "Generic" solution to this problem ie, using differnet libaries
>etc or will the scripts have to rewritten from scratch to work with NNWS3 ?
>
>yours in anticipation
>
>Andrew Robinson
------------------------------
Date: Mon, 07 Sep 1998 02:36:26 -0500
From: Steven Lembark <lembark@wrkhors.com>
Subject: Re: Pattern matching specific
Message-Id: <35F38CFA.FB1BE4A7@wrkhors.com>
> >I have a file that has the following information for example
> >
> >One Two Three Four Five
> > xyz P019
> > 2 C12345
> >
> >I need to get the information from under the heading Four.
> >It isn't always the same and neither is the text before the part I need.
> >
> >The last dilemma is that the field after the 4th column is not always
> >empty.
> >Is there a pattern match that specifies the characters literally.
> >What I need is the 26th through the 31st characters of each line.
> >I can't seem to find anything about how to match specific parts of a
> >line without
> >knowing there content to give pattern by.
> >Please help
what about using unpack?
--
Steven Lembark 2930 W. Palmer St.
Workhorse Computing Chicago, IL 60647
lembark@wrkhors.com 800-762-1582
---------------------------------------------------------------------
The opinions expressed here are those of this company.
I am the company.
---------------------------------------------------------------------
------------------------------
Date: 07 Sep 1998 09:08:34 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Printing images
Message-Id: <7xn28c2ydp.fsf@vcpc.univie.ac.at>
Re: Printing images, A <dodge@aloha.net> said:
A> Hi, Is there a simple way to print three small gif files
A> on the outsides of hidden named fields?
[html snipped]
A> Have two more gif files I want printed to my forms.
A> Any easy way to do this? I tried img src="name1.gif"
That's the way to do it (as Mr. Punch would say).
(Don't forget the ALT tags.)
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Mon, 07 Sep 1998 13:31:54 +0200
From: Boris Lantrewitz <lantrewi@do.isst.fhg.de>
Subject: Re: Q: symlink under NT possible?
Message-Id: <35F3C42A.E2F8EE42@do.isst.fhg.de>
Symlink on native NT is not possible,
but with the Win32::Shortcut Module the creation of
Explorer-shortcuts is Possible ( the Icons one sees on
the Desktop or in the Taskbar.) These, of course are
very limited in functionality, i.e. linking to ..\fred.exe is
impossible, but c:\winnt\fred.exe is correct.
The module is to be found on CPAN in Aldo Calpini's section and
Part of Gurusamy Sarathy's bindist of Perl for Win32 5.004_02.
Documentation is hard to find. You may find some illustrating
examples as test files on the Autors Home site, namely:
<http://www.divinf.it/dada/perl/>.
--
-view with fixed width font, please ------------------------------
__________________________________________________________________
___ ___ _ _ _ _
| | |_|_|_|_|
|___|___|_|_|_|_|
| | |_|_|_|_| Boris Lantrewitz
|___|___|_|_|_|_|
| _ _ ___ |
| | |_ |_ | |
| | _| _| | | email: <mailto:lantrewi@do.isst.fhg.de>
|_______________| www : <http://www.isst.fhg.de>
Fraunhofer
Institut fuer
Software- und address:
Systemtechnik Joseph-von-Fraunhofer-Strasse 20
44227 Dortmund
____________________________________________________________________
------------------------------
Date: Mon, 07 Sep 1998 02:42:46 -0500
From: Steven Lembark <lembark@wrkhors.com>
Subject: Re: Text::CSV parsing sporadically
Message-Id: <35F38E76.94B92CA7@wrkhors.com>
> Hi. I'm trying to read data from a CSV file that's been exported from MS
> Access with the perl module CSV.pm. The problem is that on a file of about
> 450 records about 360 were parsed ok and 80 were marked as corrupt. On a
> hunch I exported to temporary file from access and tried to import straight
> back in and it marked 12 as corrupt. The "truncation error" seemed to
> indicate some fields are longer than 255 characters but doesn't explain why
> the perl module doesn't like the other 80 records. Is Access exporting in a
> non-compliant way or is the problem more likely with CSV.pm? I've included
> one of the lines marked as bad (with wrapping to 80 char) in the hope that
> someone can tell me what's breaking here.
>
> RECORD...
>
> 7107,"Sunley","H",,"Mr & Mrs H----",,,"29 ----- Avenue, Collingwood Park",,"
> IPSWICH","Qld","4301",,"07.111.11111",,,"2ad","bungalow 153sm 3bd 1ba","5
> persons","hmx","AUSTRALASIA","AUSTRALIA","QUEENSLAND","IPSWICH","suburban","
> Brisbane - 40km","Retired Maintenance Supervisor:","Weather
> July-August-September like British summer 150 - 260C. East access to Gold
> Coast - Queensland. Beautiful one day, perfect the next. We require
> accommodation for the dates 10 August - 22 September '98, but will be quite
> happy for a family to occupy our home for a longer period up to the 3
> months duration. Sauna/jacuzzi available.","Washer/Drier, Television, Car
> Exchange","BRITAIN, (England, Scotland, Wales, Open to offers) flexible","3
> months","01/Jul/98-22/Sep/98","Yes","GT-982-AUQD-0248p",,,,,"7",,,,,,,,,,,,,
> ,"'",,,,,,,,,,,,,,
>
if i had to guess it'd seem that microsoft is more likely to
screw you w/ nonstandard behavior than perl. you might want
to try wandering through the Access Annoyances book and see
if there is anything oddball about the way it exports .csv
file. at my current site we've had all sorts of problems
making it import standard .csv files in any predictable way.
if accell is exporting things it cannot re-import that makes
it seem like micro- has -shafted you in exporting bogus rows.
process of elimination -- re-exporting the imported copy
and diffing it with the original copy -- should be able to
tell you what is getting rejected. eyeball that and see
what it gives.
there is a rather complete regex for .csv files in Friedl's
Mastering Regular Expressions. might just want to see if it
helps you. if nothing else you might be able to manhandle it
into something that detects bogus rows.
--
Steven Lembark 2930 W. Palmer St.
Workhorse Computing Chicago, IL 60647
lembark@wrkhors.com 800-762-1582
---------------------------------------------------------------------
The opinions expressed here are those of this company.
I am the company.
---------------------------------------------------------------------
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3651
**************************************
