[16249] in Perl-Users-Digest
Perl-Users Digest, Issue: 3661 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 14 03:05:34 2000
Date: Fri, 14 Jul 2000 00:05:18 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <963558318-v9-i3661@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 14 Jul 2000 Volume: 9 Number: 3661
Today's topics:
Re: @ not piped in print << -> must escape as \@ (Tad McClellan)
Re: [Perl] get email content from unix a/c (Tad McClellan)
Alternative to Format (Stearns25)
Re: Alternative to Format <nj.lee-web@kiwa.co.nz>
Re: Alternative to Format (Tad McClellan)
Re: ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!! (Craig Berry)
Re: ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!! (Philip Lees)
Re: Beginner Question <nospam@nospam.com>
Re: Bizarre BEGIN block problem <dennis_marti@yahoo.com>
blocking read operations from a socket <Hajo.Wuellner@ascad.de>
Re: cgi Help (HiTekHick)
DBI/Oracle/bind_param/boolean grfalk@my-deja.com
Re: how to convert "1.2.3.10" to "01020310"? <debjit@oyeindia.com>
Re: how to convert "1.2.3.10" to "01020310"? <debjit@oyeindia.com>
Re: how to convert "1.2.3.10" to "01020310"? (jason)
Re: how to convert "1.2.3.10" to "01020310"? (Craig Berry)
Re: how to convert "1.2.3.10" to "01020310"? <akurczyn@usa.net>
Re: NET::SMTP sanity check please <dburch@teleport.com>
onclick option valid? <chaptera@hotmail.com>
perl array references woes... <colinrei@oz.net>
Re: Perl Rocks!(OT?) (Tad McClellan)
Re: Qs for professional Perl/CGI developers (Tad McClellan)
Reading fixed-length fields from a record <akurczyn@usa.net>
Semaphore-ish File Sharing <jheide@sprint.ca>
Sorry:onclick option valid? <chaptera@hotmail.com>
SPAM blocking (was Re: Bizarre BEGIN block problem) (Tad McClellan)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 14 Jul 2000 00:43:32 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: @ not piped in print << -> must escape as \@
Message-Id: <slrn8mt6jk.cr4.tadmc@magna.metronet.com>
On Fri, 14 Jul 2000 02:17:08 GMT, Shannon Jacobs <shanen@my-deja.com> wrote:
>Okay, I've spent at least an hour trying to understand this without
>success. FAQs, newsgroups, camel, etc.
perldoc perldiag
--------------------------------
=item In string, @%s now must be written as \@%s
(F) It used to be that Perl would try to guess whether you wanted an
array interpolated or a literal @. It did this when the string was first
used at runtime. Now strings are parsed at compile time, and ambiguous
instances of @ must be disambiguated, either by prepending a backslash to
indicate a literal, or by declaring (or using) the array within the
program before the string (lexically). (Someday it will simply assume
that an unbackslashed @ interpolates an array.)
--------------------------------
>Situation: Static Web page designed with TopPage. Includes some email
>references. Converted it to dynamic page by cutting it up with print <<
>for the static parts,
You should use single quotes for constant strings. Single-quoted
strings don't care about @ signs.
You can get single-quoted here-docs too:
print <<'HEREDOC';
shanen@my-deja.com
tadmc@metronet.com
HEREDOC
>then use Perl in the gaps for the dynamic stuff.
>(Mostly form options with time or data file contingencies.) Technique
>is lazy and impatient, but @ from HTML source requires backslash. Why?
^^^^
Ah, finally. I was beginning to wonder if you were going to
actually ask a question.
I think the docs answer it though?
>Appears to be related to invocation via Web
>server (Apache under AIX).
I wouldn't know about that.
>However, probably similar problem disables
>perldoc--error is "In string, @sys now must be written as \@sys at...."
Huh?
>Hypothesis: weird@.
Use the docs, Luke.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 14 Jul 2000 00:48:13 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: [Perl] get email content from unix a/c
Message-Id: <slrn8mt6sd.cr4.tadmc@magna.metronet.com>
On Fri, 14 Jul 2000 02:14:38 GMT, Raymond <raymondchanth@my-deja.com> wrote:
>I want to run a perl script if somebody send email to my email a/c:
Wow!
Your email has air conditioning?
Mine has to make do with fans. :-(
>username@myserver.com
>and I want to get the subject, sender, content, datetime of the email,
Get a module for processing mail, such as the MailTools bundle
from CPAN.
>then open a new ticket and insert the data into database.
use DBI;
>I know I can
>add "\username,script.pl" to .forward in unix such that the script.pl
>can be triggered when email is received. But how can I get the
>information of that email from the perl script ? Thank you very much.
If you really want to do it all again, you can see this example:
http://www.perl.com/pub/2000/02/spamfilter.html
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 14 Jul 2000 04:25:20 GMT
From: stearns25@aol.com (Stearns25)
Subject: Alternative to Format
Message-Id: <20000714002520.07667.00001249@ng-ch1.aol.com>
Hello all,
We developed an intranet application using entirely Perl/DBI. Now we need to
generate reports from within the application. Although using format/write
of Perl gives the report layout we want, we can't do any formatting (e.g bold,
italic, changing font size, etc).
Another than the 'format/write' and TeX/LaTex approach, is there other
alternative? Is there any Perl module similar to the Crystal Report in the VB
world?
Thanks for info and suggestions.
-Stearns
------------------------------
Date: Fri, 14 Jul 2000 16:54:26 +1200
From: "Nicholas Lee" <nj.lee-web@kiwa.co.nz>
Subject: Re: Alternative to Format
Message-Id: <963550752.672093@shelley.paradise.net.nz>
I'd be interested in hearing what other suggestions you get.
The only suggestions I have is using the something based on XML/XSL
(non-perl based example: http://www.mutinybaysoftware.com/metaphrast.html)
or something like http://www.pdflib.com/ and it's perl binding. I think
there is another (freer) pdf library around.
Nicholas
------------------------------
Date: Fri, 14 Jul 2000 00:34:56 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Alternative to Format
Message-Id: <slrn8mt63g.cr4.tadmc@magna.metronet.com>
On 14 Jul 2000 04:25:20 GMT, Stearns25 <stearns25@aol.com> wrote:
>Another than the 'format/write' and TeX/LaTex approach, is there other
>alternative?
>Thanks for info and suggestions.
If you render it to HTML you have several options.
Or, format it in POD, and use the pod2* converters (or write your own).
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 14 Jul 2000 07:03:29 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!!
Message-Id: <smteq181nd695@corp.supernews.com>
Elaine -HFB- Ashton (elaine@chaos.wustl.edu) wrote:
: I don't come around here to wank my ego and I've got enough things as it
: is. However, I do believe someone is, in fact, working on something of
: this nature which will force some of you to bitch about something else
: for a change maybe.
I'd welcome the opportunity. This one is getting stale.
--
| Craig Berry - http://www.cinenet.net/users/cberry/home.html
--*-- "Beauty and strength, leaping laughter and delicious
| languor, force and fire, are of us." - Liber AL II:20
------------------------------
Date: Fri, 14 Jul 2000 07:01:15 GMT
From: pjlees@ics.forthcomingevents.gr (Philip Lees)
Subject: Re: ATTENTION PERL MACHOES!!!!!!!!!!!!!!!!!!!
Message-Id: <396eba16.5391933@news.grnet.gr>
On 13 Jul 2000 18:31:02 GMT, dha@panix.com (David H. Adler) wrote:
>On 12 Jul 2000 13:33:55 GMT, Young H Lee <yhlee@mail.med.upenn.edu> wrote:
>>But her post is not entirely false.. I mean, I am not stupid but when it
>>comes to programming, it is like trying to learn math (i'm bad at math
>>too). I have difficulty even understanding the perldocs and it gets
>>really old when you ask someone a question and they say "look at perldoc
>>this or that."
>Unfortunately, many, if not most, people who have this difficulty
>appear to show up and not point that out. They merely ask the same
>question that is answered in the docs instead of saying "I've read the
>docs and don't understand [insert specific point of misunderstanding
>here]".
Even if you do that, it doesn't help. I posted a (beginner's) question
recently. I had read the relevant docs and said so in my post.
However, it appeared that many of the regular posters here hadn't read
the post carefully enough to notice that and just responded with the
kneejerk RTFM response. When I got pissed off by that I got killfiled.
I'm struggling on with Perl, but I don't expect to get any help from
this newsgroup.
Phil
--
Philip Lees
ICS-FORTH, Heraklion, Crete, Greece
Ignore coming events if you wish to send me e-mail
'The aim of high technology should be to simplify, not complicate' - Hans Christian von Baeyer
------------------------------
Date: 14 Jul 2000 04:30:25 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: Beginner Question
Message-Id: <8km511$jn9$0@216.155.32.161>
In article <76bsms0rgeg5g9ihr6jksvc8hfg66n33eb@4ax.com>, Bart Lateur
<bart.lateur@skynet.be> wrote:
| $complextable{key1}{subkeyA}[0];
|
| Note that your third "hash of a" comes between a key and it's value,
| which isn't a hash. It's like saying:
|
| %hash = ( # hash of a
| 'key' => # hash of a
| 'value' # scalar
| )
|
| which looks like this would be a hash of hashes of scalars. Yet, it's
| just a simple hash. So the comments go wrong, somewhere.
hmm.. I'll mull it over and keep that in mind.. thanks for the heads-up.
:)
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Fri, 14 Jul 2000 00:38:42 -0400
From: Dennis Marti <dennis_marti@yahoo.com>
Subject: Re: Bizarre BEGIN block problem
Message-Id: <dennis_marti-1E8015.00384214072000@news.starpower.net>
In article <mJrb5.548$dT5.4220@newsread2.prod.itd.earthlink.net>, "Ed
Foy" <ed@nospam.com> wrote:
> competency in professional fields. Those who cannot conduct themselves
> in a professional manner in a professional forum will behave the same
Fuck. I'm in the wrong place. Where's the technical forum?
Dennis
------------------------------
Date: Fri, 14 Jul 2000 07:20:26 +0200
From: Hajo Wuellner <Hajo.Wuellner@ascad.de>
Subject: blocking read operations from a socket
Message-Id: <396EA31A.7483D53D@ascad.de>
Hi there,
I have a problem to implement code for blocking read operations from a socket.
I have a server that receives data and should wait (block) until there
is new data from the client.
I tried
$client->recv($data,$MAXLEN,0);
but that doesn't block.
Then I tried IO::Select added the client-socket and called the select method.
$select=IO::Select->new();
$select->add($client);
$select->can_read(10) ( timeout 10 seconds)
and
$select->can_read(undef) (documented as: block until data is
available)
but the commands return immediately.
I tried the 'raw' select command (not from IO::Select) but this does not work
either.
Isn't it possible to do blocking reads with send and recv or what have I done
wrong.
--
Thanks in advance,
Hajo
------------------------------
Date: 14 Jul 2000 01:44:06 -0500
From: HiTekHick@hillbilly.com (HiTekHick)
Subject: Re: cgi Help
Message-Id: <8F7115642newsid7759367@216.65.3.131>
>Hi can anyone help me I am a newcommer to CGI and am looking for help
>writing some scripts including Guestbooks, Message Boards, Form to E
>Mail scripts counters and Link Counters and a File Upload page any help
>would be greatly appreciated. Thanks very Much
>
>
>
>
try www.useractive.com ... I wouldn`t have known where to begin learning
Perl if not for the tutorials on that site.
------------------------------
Date: Fri, 14 Jul 2000 04:47:21 GMT
From: grfalk@my-deja.com
Subject: DBI/Oracle/bind_param/boolean
Message-Id: <8km60q$563$1@nnrp2.deja.com>
Help!
Using DBI and DBD::Oracle, how do you use the
bind_param_inout method to associate a local Perl
variable to a BOOLEAN type parameter in a stored
procedure call, or to a stored function's return
value that is of type BOOLEAN? There appears to
be no DBD variable type associated with the
Oracle BOOLEAN variable type. No matter what DBI
variable type I use in the bind_param_inout
method call, I always receive the following error
upon execution of the SQL statement: "PLS-00306:
wrong number or types of arguments in call
to '<stored procedure/function name>'". If I
change the BOOLEAN variable in the stored
procedure to VARCHAR2 or NUMBER, everything works
fine.
Is this possible to do? I find it hard to believe
that it's not. Thank you in advance for your
responses!
Gary
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 14 Jul 2000 10:12:43 +0530
From: "Debjit" <debjit@oyeindia.com>
Subject: Re: how to convert "1.2.3.10" to "01020310"?
Message-Id: <8knak1$kok$1@news.vsnl.net.in>
This seems to work.
my $str = '2.1.3.14';
my $newstr = join '', map{$_ = ($_<10)? "0$_":"$_"}split(/\./,$str);
print $newstr;
ethan wrote in message <8klso6$fdr$1@nnrp1.deja.com>...
>Hi,
>Hope there someone who can help me with this. I am new to PERL and am
>facing the problem of convert a string of "2.1.3.14" format
>to "02010314" format.
>Do I have to use regression expression?
>
>Thank for your help!!
>Ethan.
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
------------------------------
Date: Fri, 14 Jul 2000 10:13:10 +0530
From: "Debjit" <debjit@oyeindia.com>
Subject: Re: how to convert "1.2.3.10" to "01020310"?
Message-Id: <8knakv$kon$1@news.vsnl.net.in>
my $str = '2.1.3.14';
my $newstr = join '', map{$_ = ($_<10)? "0$_":"$_"}split(/\./,$str);
print $newstr;
ethan wrote in message <8klso6$fdr$1@nnrp1.deja.com>...
>Hi,
>Hope there someone who can help me with this. I am new to PERL and am
>facing the problem of convert a string of "2.1.3.14" format
>to "02010314" format.
>Do I have to use regression expression?
>
>Thank for your help!!
>Ethan.
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
------------------------------
Date: Fri, 14 Jul 2000 04:55:16 GMT
From: elephant@squirrelgroup.com (jason)
Subject: Re: how to convert "1.2.3.10" to "01020310"?
Message-Id: <MPG.13d93a85f88422b89896a5@news>
Debjit wrote ..
>This seems to work.
>my $str = '2.1.3.14';
>my $newstr = join '', map{$_ = ($_<10)? "0$_":"$_"}split(/\./,$str);
>print $newstr;
egads !! .. get ye to the docs
perldoc -f printf
perldoc -f sprintf
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Fri, 14 Jul 2000 06:14:26 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: how to convert "1.2.3.10" to "01020310"?
Message-Id: <smtbu2n6nd6140@corp.supernews.com>
ethan (woowk@my-deja.com) wrote:
: Hope there someone who can help me with this. I am new to PERL and am
: facing the problem of convert a string of "2.1.3.14" format
: to "02010314" format.
: Do I have to use regression expression?
That's "regular expression", often abbreviated as "regex". And you don't
have to. Here's how I'd do it:
$oldForm = '2.1.3.14';
$newForm = join '', map { sprintf '%02d', $_ } split /\./, $oldForm;
Reading that right to left, it basically says "Take the old form string,
split it into its component numbers, create a new list by reformatting
each number with two digits (adding a leading zero if necessary), and join
these reformatted numbers into a new string with no extra characters
between them."
--
| Craig Berry - http://www.cinenet.net/users/cberry/home.html
--*-- "Beauty and strength, leaping laughter and delicious
| languor, force and fire, are of us." - Liber AL II:20
------------------------------
Date: Fri, 14 Jul 2000 01:05:06 -0500
From: "Alejandro Kurczyn" <akurczyn@usa.net>
Subject: Re: how to convert "1.2.3.10" to "01020310"?
Message-Id: <396ead01_2@excalibur.gbmtech.net>
Isn't this as simple as:
$old = "2.1.3.14";
$new=sprintf("%02d%02d%02d%02d",split(/\./,$old));
Regards,
Alejandro
"ethan" <woowk@my-deja.com> escribió en el mensaje
news:8klso6$fdr$1@nnrp1.deja.com...
> Hi,
> Hope there someone who can help me with this. I am new to PERL and am
> facing the problem of convert a string of "2.1.3.14" format
> to "02010314" format.
> Do I have to use regression expression?
>
> Thank for your help!!
> Ethan.
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Thu, 13 Jul 2000 21:46:32 -0700
From: Dan Burch <dburch@teleport.com>
Subject: Re: NET::SMTP sanity check please
Message-Id: <396E9B28.A48B7254@teleport.com>
> I have a stand-alone NT server that I'm hosting a company site on and
> the only smtp server that it has access to is mail.mindspring.com.
>
Not really a perl question and I'm no expert, but...
What is the URL of the site? You should be able to install a mail server
if you are running a web server. If you have www.yourdomain.com on your
own box you should be able to do mail.yourdomain.com on the same box.
There may be a firewall problem recieving mail, but you should be able
to at least send mail. Maybe look at sendmail for windows.
Dan Burch
------------------------------
Date: Fri, 14 Jul 2000 13:31:32 +0800
From: Tom <chaptera@hotmail.com>
Subject: onclick option valid?
Message-Id: <396EA5B4.709A328D@hotmail.com>
Dear all,
Can I do that on the *.pl for generate the html page?
.....
print checkbox(-name=>'test1',
-value=>'',
-label=>'test1',
-onClick='function()'
);
.......
Thanks
--
Tom
------------------------------
Date: 14 Jul 2000 06:34:04 GMT
From: "Colin Reinhardt" <colinrei@oz.net>
Subject: perl array references woes...
Message-Id: <8kmc8s$7om$0@216.39.148.120>
I just can't figure out what is wrong here...
This is an excerpt...
### load up array
while ( @arrayref = $sth->fetchrow_arrayref ) {
$count++;
push @stash, [ @$arrayref ]; # copy the contents, not a ref
}
### try to put the first element of each array into a comma-separated
string
for( $i = 0; $i < $count; $i++ )
{
$accounts = $accounts . $stash[$i][0] . ","; ### here's where it dies
}
If I print the value of $stash[0][0] I see what I want (the first element
of the first array).
So why doesn't my for loop work???
I've also tried:
foreach $ref ( @stash ) {
$accounts = $accounts . @$ref[0] . ","; ### also $$ref[0]--not sure which
is right, both fail.
}
This fails the same way.
This is in a CGI script and the server just returns an error code...
__need__help__. Thanks!
Colin
------------------------------
Date: Thu, 13 Jul 2000 23:20:37 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Perl Rocks!(OT?)
Message-Id: <slrn8mt1o5.cjh.tadmc@magna.metronet.com>
On Fri, 14 Jul 2000 02:15:37 +0100, Rage Matrix <Rage@matrix13.freeserve.co.uk> wrote:
>I don't know if this is off-topic for this NG,
It is not about <modules> or <tk>
I suppose it could be an <announce> (but it wouldn't be approved
'cause the moderator is a meanie and his name is hard to spell
(correctly) :-) :-)
You might try <moderated>, but that wouldn't be approved, because
advocacy is not allowed there (and because they are a bunch of
curmudgeons (sp?) too).
There is a mailing list for Perl advocacy though.
Since it doesn't fit into any of the other newsgroups, and
it is about the <comp>uter <lang>uage <Perl>, it is on-topic!
So let's have it...
>This was my first interview and I got the job even though I made it
>clear that I knew nothing about Perl. Working is MUCH better than
>university. I get to code all day and I actually get paid for it. Its like
>getting paid for your hobby. Awesome!
Shhhhhh.
We try to not let that get around (else there would be way more
competition (and competition is bad if you happen to be a
competitor)).
>Anyway, I have come to the conclusion that Perl ROCKS!
That's not going to get a rise out of anyone here.
Try it in the Python newsgroup ( just kidding! )
>I don't see much
>point in using it on a non-UNIX based machine,
Eh?
The more crippled the machine, the more tools you need (because
they are not provided).
Perl is good for writing tools (http://language.perl.com/ppt/).
Folks on non-Unix systems need Perl *more* than Unix(ites?) do.
>but the language integrated
>so well with Linux and I LOVE it!
Bwwhaahaa.
Another convert to the (one of many) True Way.
>I always considered UNIX OS's to be less
>of a technology and more of an art form and Perl simply makes this art form
>a richer experience.
We already know that here :-)
>I just wanted to tell the world that!
Using Perl makes me shake my head in wonderment at what can be
done in relatively little time.
It does this to me often.
Must be that I have some of Larry's third virtue going there...
(see the end of: perldoc perl)
>BTW, as I have never posted to this NG before,
You really should lurk for a while before posting.
>The motto that I have learnt so far is: Never assume anything. (This is
>regarding bugs in Perl programs).
Make sure you always do these two (three if doing CGI) things:
1) enable warnings with -w
2) use strict;
3) enable taint checking with -T
>Sorry for the rant, but I'm very happy with working with Perl!!
Shhhhhh. There you go again. Come on man, you'll give it away...
>Jonathan M Baker
>Software Engineer, Semantico Ltd (www.semantico.com)
^^^^^^^^^^^^^^^^^
That sure sounds a lot better than "Student".
Congratulations!
--
Looking back on what I wrote, I get the
(feeling that (I've been doing too (much scheme (programming lately))))
:-(
------------------------------
Date: Thu, 13 Jul 2000 22:39:22 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Qs for professional Perl/CGI developers
Message-Id: <slrn8msvaq.cjh.tadmc@magna.metronet.com>
On Fri, 14 Jul 2000 00:01:47 GMT, Pjtg0707 <Pjtg0707@Netscape.net> wrote:
>I am wondering how many of you guys are professional Perl/CGI developers?
I have been a professional Perl developer for six years
(contracting for 3 1/2 of those).
I have never written a CGI program though (except as a hobbiest).
Does that mean I can't play?
>If you work as a contractor, how do you make sure you don't get stiffed
>by your clients?
There is no Perl-specific component to that question.
So it is off-topic here. You will get way more feedback from
a newsgroup where such things are discussed, such as:
misc.business.consulting
Where this topic comes up a couple of times a week :-)
Do a deja.com search, and you won't even have to wait for the answers!
(the short answer is: get as much money upfront as you can)
If you instead want to know how to avoid stiffness when
"working across the web" (still off-topic here) then
you should ask in a newsgroup that is in some way related
to the web, such as:
comp.infosystems.www.authoring.cgi
(though I have also seen the web angle discussed on m.b.c)
>Have you ever been stiffed before?
Yes.
>Is Perl the only thing you do?
No.
>What is the general going rate for a Perl developer?
I didn't look _this_ year, but Contract Professional
magazine did a rate survey. I think I posted the Perl results
here then.
Yep:
http://www.deja.com/=dnc/[ST_rn=ps]/getdoc.xp?AN=555378426
And there is this well respected web site:
http://www.realrates.com/
I learned all this and more in m.b.c
You really should be lurking there if these things interest you,
there is wisdom just dripping off of a high percentage of
the posts there. (or there used to be anyway, I haven't been
to m.b.c for several months, (I'm too busy here answering FAQs
and sending mail bounces)).
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 14 Jul 2000 01:30:46 -0500
From: "Alejandro Kurczyn" <akurczyn@usa.net>
Subject: Reading fixed-length fields from a record
Message-Id: <396eb2ff_2@excalibur.gbmtech.net>
Can anyone recommend a good way to split fixed-length records ?
Let's say I have these records on a file:
|-------|----------|-----------|
1234 Someone Somewhere
66755 Any Where
I wan to read one at a time and split them into several scalars (ala
'split()'), please give me some ideas before I start using substring :-)
regards,
Alejandro
------------------------------
Date: Thu, 13 Jul 2000 23:09:36 -0700
From: "Glen Heide" <jheide@sprint.ca>
Subject: Semaphore-ish File Sharing
Message-Id: <L9yb5.8821$_J1.79619@newscontent-01.sprint.ca>
Ok, here's the scoop,
I got a txt file in my cgi-bin directory where my cgi scripts get access to
user profiles and such. When multiple users READ from the file, I know that
this won't cause a problem. In perl though, is there any problems that
might happen if users changed their password at exactly the same time as
another person was reading the file or changing their password? It's very
unlikely, I open the file, read what I need, then close it, but I'd like to
be on the safe side.
I use the simple OPEN command. So, will any problems arise? And if so, are
there any solutions?
--
Yours Truly,
Glen Heide
------------------------------
Date: Fri, 14 Jul 2000 13:38:12 +0800
From: Tom <chaptera@hotmail.com>
Subject: Sorry:onclick option valid?
Message-Id: <396EA744.9E1CD767@hotmail.com>
Sorry for all,
I found my careless mistake on typing....
print checkbox(-name=>'test1',
-value=>'',
-label=>'test1',
-onClick='function()'
^^^ missing >
:P
);
.......
------------------------------
Date: Fri, 14 Jul 2000 00:11:16 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: SPAM blocking (was Re: Bizarre BEGIN block problem)
Message-Id: <slrn8mt4n4.cjh.tadmc@magna.metronet.com>
On Thu, 13 Jul 2000 17:53:05 GMT, Ed Foy <ed@nospam.com> wrote:
>
>Tad McClellan wrote in message ...
>>
>>You asked me to look at that post, so I did.
>>
>>What I had to say was better said in email, so I sent you one.
^^^^^^^^^^^^^^
After pinging 'nospam.com' and 'mail.nospam.com'.
(because it looked like it might be bogus).
But it was not bogus!
There is a machine servicing that domain, so _then_ I sent an
email message.
>>It bounced.
I hope you have permission from nospam.com to be spending
_their_ cycles on _your_ bounces. But maybe that's a service
that they provide? I could not find anything to that effect
on their website...
>>So I went back to your post to find the correct email address.
I have never unmunged an address before.
When it bounces, it gets forgotten.
But I was going to make my first exception with you, because
you *asked* me to look at your post, and I wanted to let
you know that I had.
Since I could offer no help, posting it to the newsgroup would
have had no benefit.
So I needed to email it.
>>There was none.
No directions on how to change the address.
No note like "The address above does not work".
No "word directions" for making an address:
my login is 'tadmc'.
my ISP is 'metronet.com'.
put the appropriate punctuation character between them to send email.
No nothing.
>>You cannot be reached by email.
>>
>>I have a hard and fast rule about such situations.
Because you have already spent more of my question answering
time than I am willing to give. Others are waiting.
If you had
ed@nospam.com.invalid
(this one has a triple advantage.
1) people know not to try and send mail to it
2) routing knows to bounce non-existant TLDs
right away, so there is less traffic on the Internet.
3) you don't inadvertently steal someone else's resources,
by using a real domain.
)
or any other of the frequently recommended mechanisms for
avoiding fooling humans, then NONE of this would have happened.
Which is, of course, why so many of the FAQs caution against
just that.
But you did not do any of that.
You didn't do it right.
>>I gotta give you your own personal killfile entry.
>
>I also have a hard and fast rule: never put private email addresses in
>newsgroups.
You can be "reached by email" without putting your email address
in newsgroups.
They are not mutually exclusive.
And if it is the "private" part that concerns you, then get
a free throw-away email account (e.g. hotmail) to use on Usenet.
>This policy keeps the SPAM to a low roar so I spend much
>less time wading through junk mail and updating TWIT filters. It's
>called an ounce of prevention.
_I_ understand spam well enough.
But you are not spam-blocking correctly.
The primary rule is to make your address obviously (to a human)
undeliverable.
If you had done that, I would not have spent my time on trying
to send it. I would have instead spent my time answering
some other question (which may have gone unanswered).
You have hurt more than one of the posters in this newsgroup
by not following that rule.
This is not good for "community".
Nearly all of the other spam-blockers here have the courtesy
to make an effort to avoid wasting other's time (by making it
obvious that the address is undeliverable).
>>I (and probably everybody else) have no interest in potential bugs
>>in two year old software.
>That is what my ISP provides. That is what I must use until they
>upgrade. For better or worse, the real world doesn't upgrade just
>because there is something newer available.
Of course not.
They do usually upgrade when it gets to be 2 or 3 versions
behind current though.
There have been 5 major revisions since 5.004.
It has been superceded 5 times.
Or are there still companies out there using Word 2.0 or whatever?
>"Newer" doesn't mean better,
I never said, or even implied, that.
I did not say anything about quality.
I said something about the likelihood of being able to get
support and help.
If your ISP has decided to go it alone (5.004 is no longer
maintained) then so be it, they are alone.
They find and fix bugs themselves, or they live with the bugs.
(or they upgrade, which begins to not sound so bad)
>just a different set of bugs to contend with.
Err, yes. But _your_ bug (remember that, heh heh) won't be there,
because it was fixed many months ago.
So you should be _wanting_ an upgrade. It solves the problem
that is the root of this thread!
(I understand that "you wanting" and "ISP doing" are likely
not closely coupled. The ISP biz is pretty cutthroat, they
wouldn't want you jumping ship over this "unsupported software"
thing, would they?
)
>Witness: everything
>Microsoft has produced from day one.
I see their ads on TV and read about them in the paper.
But I only see them on a CRT when I want to play a shoot-em-up game.
:-)
>Does this comment mean SGML Consulting will only work with the "Latest
>and Greatest" implementation of something or reinvents the wheel because
>the original wheel doesn't use the latest set of bugs?
No.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 3661
**************************************
