[10489] in Perl-Users-Digest
Perl-Users Digest, Issue: 4081 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 27 11:05:49 1998
Date: Tue, 27 Oct 98 08:00:18 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 27 Oct 1998 Volume: 8 Number: 4081
Today's topics:
Re: About CGI database (Daniel Beckham)
Re: Catching aborted Perl script <tonylabb@infonline.net>
Re: CGI database <stefan.haller@ascom.ch>
Re: CGI database (Daniel Beckham)
Re: CGI database? <perlguy@technologist.com>
Dynamic Function Calls???? karl.dyson@in-linea.com
Re: error handling <dgris@rand.dimensional.com>
Re: error handling <barnett@houston.Geco-Prakla.slb.com>
Re: Forcing perl to garbage collect droby@copyright.com
Re: Mail from Perl on NT (Daniel Beckham)
Re: Not to start a language war but.. <akuchlin@cnri.reston.va.us>
Re: Not to start a language war but.. <hyoon@bigfoot.com>
Re: Not to start a language war but.. <garry@sage.att.com>
Re: Not to start a language war but.. (Walter Tice USG)
Re: Not to start a language war but.. (Paul Jackson)
Re: Perl & Y2K - booby trap code jkane@my-dejanews.com
Re: Perl & Y2K - booby trap code jkane@my-dejanews.com
Re: Perl & Y2K - booby trap code (Matthew Bafford)
Re: Perl Insert or Update Command <tbriles@austin.ibm.com>
Re: Repost from Data <dgris@rand.dimensional.com>
RFC - Signature <webmaster@fccj.org>
Re: Sending mail using perl (Daniel Beckham)
Re: Sending mail using perl (Greg Bacon)
Re: Sending mail using perl (Greg Bacon)
Re: Size of JPEG and GIF (Daniel Beckham)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 27 Oct 1998 09:24:51 -0500
From: danbeck@eudoramail.com (Daniel Beckham)
Subject: Re: About CGI database
Message-Id: <MPG.109fa1bb693a768d9896ac@news.supernews.com>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
Not to be ugly or anything, but it's obvious that you have no idea what
CGI is, etc. I would strongly suggest that you find out what the CGI
spec is how you can use it. You could start at www.cgi-resources.com or
search the major search engines for cgi and specification. (Someone have
an official URL here?)
Also, if you are new to perl and that is the language you wish to use, I
would suggest that you run, not walk, to your local book seller and
pickup a copy of "Learning Perl" published by O'Reilly (www.ora.com).
And lastly, you really posted this in the wrong newsgroup. This is
neither a CGI or Database related newsgroup.
Regards,
Daniel Beckham
In article <3635C821.2BAD@yahoo.com>, msl1997@yahoo.com says...
> Dear All
>
> How can I write a CGI database? Which language can I use?(Perl, C++,
> Visual Basic,etc.)
>
> Best Regards
> William
>
------------------------------
Date: Tue, 27 Oct 1998 08:51:33 -0500
From: Tony Labbiento <tonylabb@infonline.net>
Subject: Re: Catching aborted Perl script
Message-Id: <3635CFE5.8F7F94CF@infonline.net>
I also use ActiveState's Perl. It never threw a SIG DIE on a control-C. You
want to catch a SIG{INT}.
Kevin Mattson wrote:
> How can I detect when a user has hit CNTRL-C or CNTRL-break from the
> keyboard? I'd like to catch this action and do some clean-up before
> exiting the script.
>
> I'm using ActiveState's ActivePerl Build 502 on Win NT. The previous
> version I was using (Build 316), threw a "__DIE__" signal when the user
> hit CNTRL-C, but it doesn't appear to do it anymore.
>
> Any ideas?
>
> Thanks,
> Kevin Mattson
--
****************************************
* Tony Labbiento *
* Infinity Online, Inc. *
****************************************
------------------------------
Date: Tue, 27 Oct 1998 15:11:58 +0100
From: Stefan Haller <stefan.haller@ascom.ch>
Subject: Re: CGI database
Message-Id: <3635D4AE.22013BB8@ascom.ch>
Hi
William wrote:
>
> Dear All
>
> How can I write a CGI database? Which language can I use?(Perl, C++,
> Visual Basic,etc.)
You can use nearly every language to build a
CGI-database-application...
important is only, that it can handle data-streams... (would mean:
Perl, C/C++ and a lot of other languages...)
Choose the one that fits your needs...
regards
Steven
--
"Those are my principles! And if you don't like them... well, I have
others..."
-- Groucho Marx
------------------------------
Date: Tue, 27 Oct 1998 09:25:28 -0500
From: danbeck@eudoramail.com (Daniel Beckham)
Subject: Re: CGI database
Message-Id: <MPG.109fa1e394d7e81c9896ad@news.supernews.com>
Posting multiple times will not get you quicker or better answers.
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
In article <3635CA56.750E@yahoo.com>, msl1997@yahoo.com says...
> Dear All
>
> How can I write a CGI database? Which language can I use?(Perl, C++,
> Visual Basic,etc.)
>
> Best Regards
> William
>
------------------------------
Date: Tue, 27 Oct 1998 15:17:45 GMT
From: Brent Michalski <perlguy@technologist.com>
Subject: Re: CGI database?
Message-Id: <3635E419.611AD2E6@technologist.com>
William wrote:
>
> Dear All
>
> How can I write a CGI database?
By writing the code to do what you want!
> Which language can I use?(Perl, C++, Visual Basic,etc.)
Any of the above.
I use Perl. I already wrote one and you can have it for free! It is
at:
http://webreview.com/wr/pub/98/10/23/perl/index.html
Have fun with it!
Brent
--
Java? I've heard of it, it is what I drink when I am hacking Perl. -me
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ Brent Michalski $
$ -- Perl Evangelist -- $
$ E-Mail: perlguy@technologist.com $
$ Resume: http://www.inlink.com/~perlguy $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
------------------------------
Date: Tue, 27 Oct 1998 14:37:50 GMT
From: karl.dyson@in-linea.com
Subject: Dynamic Function Calls????
Message-Id: <714lrv$g6u$1@nnrp1.dejanews.com>
Hello there,
I recently decided to write a MUD engine in Perl.
To make a flexible engine I realised it would need to have it's own
programming language
e.g. if enemy was killed, then this door can be opened etc. etc.
Except, writing a programming language is beyond my ability right now. Then I
thought - why can't I use Perl?
Is is not possible to have a Perl file for each location, with a load of
functions that can be called when certain things happen? Erm.. can I have a
variable/pointer that can be loaded with a function name dynamically and then
executed. So in one loop it might be loaded with "North32()" but on the second
"North50()"???
I'm not great with modules yet, but if you could give me a push in the right
direction I'd really appreciate it.
Thanks,
Karl
P.S. Sorry if this (or something similar by me) has been posted twice.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 27 Oct 1998 14:06:21 GMT
From: Daniel Grisinger <dgris@rand.dimensional.com>
Subject: Re: error handling
Message-Id: <m3pvbecdry.fsf@rand.dimensional.com>
"Rolf Rettinger" <rolf.rettinger@desy.de> writes:
> Is it possible to use the die() or warn() methods for error handling by
> system routines like
>
> system("scopy c:\\temp\\aaa c:\\temp\\aaa /a /o /s") ||
> die "scopy was not succesful\n";
Yes. But system returns 0 for success and the program's exit
value (sort of) for failure. So your tests need to be reversed.
system('something') && warn "Something failed\n";
> or is there a better utility to check if the command was succesful?
$? will be carrying the exit status of system after the call to it.
Personally, I'd check that. Read the system entry in perlfunc for
the details.
dgris
--
Daniel Grisinger dgris@perrin.dimensional.com
Supporter of grumpiness where grumpiness is due on clpm.
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Tue, 27 Oct 1998 08:11:49 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
To: Rolf Rettinger <rolf.rettinger@desy.de>
Subject: Re: error handling
Message-Id: <3635D4A5.A5D491D8@houston.Geco-Prakla.slb.com>
[courtesy cc to cited author]
Rolf Rettinger wrote:
>
> Is it possible to use the die() or warn() methods for error handling by
> system routines like
>
> system("scopy c:\\temp\\aaa c:\\temp\\aaa /a /o /s") ||
> die "scopy was not succesful\n";
>
> or by
>
> system("net user $UserName /add /domain\n") ||
> warn "$Username could not be created\n";
>
> or is there a better utility to check if the command was succesful?
>
> Thanks Rolf
perldoc -f system
has the answer(s) you're looking for.
Once you read that, come back here.....
Why, you are now asking, do you have to use
system ("$command") == 0 or die;
If system completes successfully, it has a 0 return code, just like most
unix commands that complete normally. Since system will never evaluate
to true if it completes successfully, both events will occur (because of
or (or ||) logic) whether system actually fails or not.
By checking return of system against 0 (successful completion) you will
end up with a result of 1, if it completes, and then die will never
happen. If the return value from system is other than 0 (meaning error
resulted), die will be triggered. The same logic applies for warn or
any other function you wish to call.
HTH.
Dave
--
Dave Barnett Software Support Engineer (281) 596-1434
If you ate pasta, and antipasta, would you still be hungry?
------------------------------
Date: Tue, 27 Oct 1998 14:25:16 GMT
From: droby@copyright.com
Subject: Re: Forcing perl to garbage collect
Message-Id: <714l4c$f5o$1@nnrp1.dejanews.com>
In article <712i4p$k14@mozo.cc.purdue.edu>,
gebis@fee.ecn.purdue.edu (Michael J Gebis) wrote:
> sbeck@cise.ufl.edu (Sullivan N. Beck) writes:
>
> }For security reasons (or paranoia if you prefer), we've been trying to
> }figure out a way to have a value completely removed from memory. To
> }illustrate, I create a file "z.in" containing "abc123" (so this string
> }doesn't appear anywhere in the perl script itself). Then I run the
> }script:
>
Paranoia is good for security. ;-) This may be overboard - it depends on
what you're securing.
> } #!/usr/local/bin/perl
> }
> } $i=`cat z.in`;
> } undef $i;
> }
> } `sleep 3000`;
>
> }While it's sleeping, I send it a signal to dump core, and then run "strings"
> }on the core file, and "abc123" is present.
>
> Out of curiosity, what happens if you add:
>
> $i =~ s/./\0/g;
>
> Right after the cat and right before the undef? I think that you will
> have cleared the memory, and "abc123" will not show up in the core.
> (I have not tried it, though.)
>
I was curious too, so I tried it. No go. In fact, it shows up twice with or
without the clearing attempt. If you substitute $i = 'abc123' for $i = `cat
z.in`, it reduces to one, so I guess one of them is a temporary copy created
by the ``. It might be that the s/./\0/g clears it but creates another
temporary copy in the process.
At any rate, it appears clearing memory isn't real easy in Perl. Now of
course, since I've said that, I'm sure someone will come up with a
self-clearing JAPH.
The point at any rate is clear. Garbage collection != sanitation.
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 27 Oct 1998 09:12:06 -0500
From: danbeck@eudoramail.com (Daniel Beckham)
Subject: Re: Mail from Perl on NT
Message-Id: <MPG.109f9ebe117d65c79896a9@news.supernews.com>
You're best bet is to use Mail::Sendmail from CPAN as this person has
suggested. I needed a sendmail equiv. some time ago for our NT box, but
although I found several, they were all "windows" style programs.
Meaning... extremly limited in what they could do and ill thought out and
prone to goofy problems and having hard to track down errors and poor
documentation and on and on and on.
BTW, if you can not find it, let me know and I'll send you a copy. It's
quite small.
Regards,
Daniel Beckham
In article <36356c0b.1757181@news.urbanet.ch>, pub @ alma . ch (M.)
says...
> >I'm new to Perl and CGI and have scripts which send mail and work on my
> >ISP's Unix server, using:
> >
> >$mailprog = '/usr/sbin/sendmail';
> >
> >open(MAIL, "|$mailprog $recipient")
> >then all the other print MAIL statements.
> >
> >My questions are:
> >
> >1) Will this work also on NT?
>
> No, there is no mail executable by default. You have to either get a
> Win32 command-line mailer, or change your scripts to use one of the
> Perl only mailing modules.
>
> Look at http://alma.ch/perl/mail.htm for a description of
> Mail::Sendmail and links to the other Perl and command-line mailers.
>
>
>
------------------------------
Date: Tue, 27 Oct 1998 13:59:02 GMT
From: "Andrew M. Kuchling" <akuchlin@cnri.reston.va.us>
Subject: Re: Not to start a language war but..
Message-Id: <13877.53043.29526.502753@amarok.cnri.reston.va.us>
Klaus Schilling writes:
>Would python or perl change severely if one replaced ref-counting with a real
>gc like Boehm's?
Some work on this has been done; see
http://puli.lib.bke.hu/~xr/ for one patch set which adds GC to Python
1.5.1, at a serious performance cost (but it's still early in
development). Someone also had a patch which used Boehm's GC (was it
Max Skaller?), and JPython uses whatever GC your Java VM has, of
course.
One nice thing about reference counting GC is that it gives
you some predictability about object destruction. That is, if you
have a function like:
def f():
file = open('/tmp/foo')
...
return # No file.close()!
With refcounting, the file object will be deallocated when the scope
is destroyed at function exit, but a true GC system might only
deallocate the object much later, occupying a file descriptor in the
meantime. There have been a few bugs in JPython programs where
programs run out of file descriptors before the GC collects all the
inaccessible file object. (Moral: always close your files
explicitly.)
--
A.M. Kuchling http://starship.skyport.net/crew/amk/
There are too many people, and too few human beings.
-- Robert Zend
------------------------------
Date: Tue, 27 Oct 1998 09:06:56 -0500
From: Hoon Yoon <hyoon@bigfoot.com>
Subject: Re: Not to start a language war but..
Message-Id: <3635D380.823B4D8B@bigfoot.com>
Ahhh...., Jane! STOP this Crazy Thing!
------------------------------
Date: Tue, 27 Oct 1998 09:45:13 -0500
From: "Garrett G. Hodgson" <garry@sage.att.com>
Subject: Re: Not to start a language war but..
Message-Id: <3635DC79.13043F23@sage.att.com>
Brent Michalski wrote:
> I have not found a SINGLE real world computing problem that I have not
> been able to find a way to do it with Perl.
one could say the same for assembly language.
--
Garry Hodgson and when they offer
garry@sage.att.com golden apples
Software Innovation Services are you sure you'll refuse?
AT&T Labs heaven help the fool.
------------------------------
Date: 27 Oct 1998 12:55:06 GMT
From: tice@hunch.zk3.dec.com (Walter Tice USG)
Subject: Re: Not to start a language war but..
Message-Id: <714fra$2g7@zk2nws.zko.dec.com>
In article <70tb7f$vat$1@bofh.cdg.acriter.nl> cg@pobox.com writes:
>WMWilson <m.v.wilson@erols.com> said:
>>Just wondering why Perl is so much more popular than python...
>
>Perl was lucky and at two moments in history at the right place in the
>right time: first, when it was adapted by Unix system administrators as
>a one-size-fits-all language that replaced all the awk, sed, sh, ...
>scripts that typically tie a Unix box together.
And it works wonderfully in that role.
>Then, it got a major
>boost when somehow the impression was made that Perl==CGI and CGI==Perl
>and people started believing that in order to do something more than
>serve HTML pages on the Web, you _had_ to learn Perl. This conception
>still holds here and there and certainly gave Perl a major boost.
Well, I've seen intranet ones written in C and sh, but ah, won't work
too well w/ micro-skunk OS's, and perl was around before java, and IMO
beats the crap out of java for the CGI portion of a web app.
><snip> "in OO" it is easy to build programs so that old
>code can invoke new code, that you can extend old stuff instead of having
>to replace it, etcetera.
Ahhhhhh, code reuse, yup, heard a LOT about it, worked at 4 places where
C++ was the language of choice, and saw some sporadic implementation, but
most software org's are in Phase I of the CMM, guess what - consistent code
resue is about as common as self actualizing humans - and that's just one
of the places C++ falls flat on its face in the real world.
>Cees de Groot http://pobox.com/~cg <cg@pobox.com>
W
--
"I've done questionable things.." - Roy
"But also extraordinary things, revel in your time!" - Tyrell
------------------------------
Date: 27 Oct 1998 15:35:23 GMT
From: pj@sgi.com (Paul Jackson)
Subject: Re: Not to start a language war but..
Message-Id: <714p7r$qf23@fido.engr.sgi.com>
"Garrett G. Hodgson" <garry@sage.att.com> wrote:
|> > I have not found a SINGLE real world computing problem ...
|>
|> one could say the same for assembly language.
I'm finding the prospect of coding MicroSoft's Office suite in
assembler amusingly improbable.
--
=======================================================================
I won't rest till it's the best ... Software Production Engineer
Paul Jackson (pj@sgi.com; pj@usa.net) 3x1373 http://sam.engr.sgi.com/pj
------------------------------
Date: Tue, 27 Oct 1998 14:43:52 GMT
From: jkane@my-dejanews.com
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <714m78$gcf$1@nnrp1.dejanews.com>
In article <36350494.C532BAB9@min.net>,
John Porter <jdporter@min.net> wrote:
> jkane@my-dejanews.com wrote:
> >
> > When I look at the output of localtime, it is only two digits. When 2000
> > rolls around, won't $year += 1900 still give 1900? I am obviously missing
> > something major here.
>
> Yes, you haven't seen what the output of localtime will be when 2000 rolls
> around. Hint: 100.
>
> $year += 1900;
>
> will then give you the 2000 you wanted.
Thank you VERY much for your short, specific, and Accurate answer!
-Jeff
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 27 Oct 1998 14:42:02 GMT
From: jkane@my-dejanews.com
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <714m3q$gbc$1@nnrp1.dejanews.com>
In article <slrn73a60q.mba.sholden@pgrad.cs.usyd.edu.au>,
sholden@cs.usyd.edu.au wrote:
> >Thanks and I hope this is not a FAQ. :{ (
>
> Why don't you go and read the FAQ to find out first.
>
> =head2 Does Perl have a year 2000 problem? Is Perl Y2K compliant?
I really appreciate your helpful response. (NOT!) I had already read that,
but nowhere did it mention that in 2000 that the return would become 3
digits! Kinda useless. I was left without anything.
Thanks to those who did give an answer.
-Jeff
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 27 Oct 1998 10:10:15 -0500
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <MPG.109fac63f970b7c19896e6@news.scescape.net>
In article <<714m3q$gbc$1@nnrp1.dejanews.com>>, jkane@my-dejanews.com
(jkane@my-dejanews.com) pounded the following:
=> > Why don't you go and read the FAQ to find out first.
=> >
=> > =head2 Does Perl have a year 2000 problem? Is Perl Y2K compliant?
=>
=> I really appreciate your helpful response. (NOT!) I had already read that,
=> but nowhere did it mention that in 2000 that the return would become 3
=> digits! Kinda useless. I was left without anything.
<quote from="perlfaq4">
[snip]
The year returned by these functions when used in an array context is
the year minus 1900.
For years between 1910 and 1999 this happens to be a 2-digit decimal
number.
To avoid the year 2000 problem simply do not treat the year as a 2-
digit number. It isn't.
[snip]
</quote>
=> Thanks to those who did give an answer.
Hope This Helps!
=> -Jeff
--Matthew
------------------------------
Date: Tue, 27 Oct 1998 09:03:00 -0600
From: Tom Briles <tbriles@austin.ibm.com>
Subject: Re: Perl Insert or Update Command
Message-Id: <3635E0A4.FFF8726C@austin.ibm.com>
Martien Verbruggen wrote:
> In article <Pine.SUN.3.91.981026041143.26623D-100000@jupiter.cs.wayne.edu>,
> Sudheer Havaligi <suh@jupiter.cs.wayne.edu> writes:
> > Hi all,
> > I'm trying to run a perl insert command. Please someone give me
> > the systax for the perl insert command with "where" clause.
> > I'm able to insert, but without 'where' clause. If i'm trying to put
> > 'where' clause i'm getting problems. I mean i'm not getting any errors
> > but the database is not being updated.
>
> Perl doesn't have an insert command or a where clause. Perl is not
> SQL. if you have trouble connecting to a database using one of the
> perl modules, you should at least mention which database, and which
> software you are using. Send us a little tiny snippet of code that
> goes wrong, and we'll have a look at it.
>
> Martien
> --
> Martien Verbruggen |
> Webmaster www.tradingpost.com.au | "In a world without fences,
> Commercial Dynamics Pty. Ltd. | who needs Gates?"
> NSW, Australia |
Also, in SQL, "insert" and "where" don't go together. "insert" is for adding a
totally new row, which makes a "where" clause nonsensical.
- Tom
------------------------------
Date: Tue, 27 Oct 1998 14:00:28 GMT
From: Daniel Grisinger <dgris@rand.dimensional.com>
Subject: Re: Repost from Data
Message-Id: <m3u30qce1q.fsf@rand.dimensional.com>
toiday@my-dejanews.com writes:
> FYI - Most people use Perl to write CGI for living, NOT for fun.
Among the perl programmers I know very few are using it to write
CGI programs, but almost all use it because it is fun.
Perl != CGI; # or should that be Perl ne CGI :-)
> Do you parents or college teach you to be an asshole? If you don't know the
> answer then shutup. May be one day when you grow up, get out of college and
> get a real job, you may understand.
I agree with what Sam had to say to you. Your post was offtopic
for this forum. You have an HTML question, not a perl question.
Go bother the HTML people.
> Meanwhile, computer is not a toy.
You are sadly mistaken. Computers are most definitely toys.
> Newsgroup is not the place for you to harass people. Don't waste you
> parent's hard working money.
Nope, newsgroups are places to discuss certain topics. This one
is for perl, you want one for HTML or browsers or something.
dgris
--
Daniel Grisinger dgris@perrin.dimensional.com
Supporter of grumpiness where grumpiness is due on clpm.
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Tue, 27 Oct 1998 10:09:05 -0500
From: "Bill Jones, FCCJ Webmaster" <webmaster@fccj.org>
To: bill@astro.fccj.org
Subject: RFC - Signature
Message-Id: <3635E211.25F64CD8@fccj.org>
Hi :]
Anybody have ideas about shortening this a bit?
(My first 'official' attempt :)
Thx!
-Sneex-
______________________________________________________________________
Bill Jones | 904/632-3089 | http://www.fccj.org/cgi/mail?webmaster
----------------------------------------------------------------------
$perlRulez = "FCCJ Webmaster";
if ($perlRulez =~ /(F)(C)(C)(J)( )(W)(e)(b)(m)(a)(s)(t)(e)(r)/) {
print "$4", chr(ord($12)+1), "$11$12$5", uc($10), chr(ord($9)+1),
chr(ord($14)-3), "$12", lc(chr(ord($1)+2)), reverse($14,$13),
"$5", uc(chr(ord($14)-2)), "$13$14", chr(ord($9)-1), "$5",
uc(chr(ord($7)+3)), "$10", chr(ord($10)+2),chr(ord($9)-2),
reverse($14,$13), "\n"; }
------------------------------
Date: Tue, 27 Oct 1998 09:15:28 -0500
From: danbeck@eudoramail.com (Daniel Beckham)
Subject: Re: Sending mail using perl
Message-Id: <MPG.109f9f8f93b912cf9896ab@news.supernews.com>
He just needs to check for a ; in his fields and die if found.
Regards,
Daniel Beckham
In article <slrn73asvh.hlr.dformosa@godzilla.zeta.org.au>,
dformosa@zeta.org.au says...
> In article <36356075.82327645@auspex.net>, Justin B. Harvey wrote:
> >Are there any issues with:
> >
> >open MAIL, "|mail $address" or die "mail not found, duh\n";
> >print MAIL "Subject: Hello\n";
> >print MAIL "Yadda yadda yadda\n";
> >close MAIL;
> >
> >Security concerns? Just a different way? I'd be interesting in getting
> >comments :>
>
> $address='some@address;rm -rm *';
>
>
>
>
------------------------------
Date: 27 Oct 1998 15:45:45 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Sending mail using perl
Message-Id: <714pr9$d3a$3@info.uah.edu>
In article <8CFE.82FF2FBE55luutrangeocitiescom@news.mindspring.com>,
"Luu Tran" <luutran@geocities_.com> writes:
: You can use sendmail, but it's probably safer (and more portable) to
:
: use Net::SMTP;
What do you do when you can't connect to the recipient host?
Greg
--
Santa: Stan, remember the choo-choo when you were three?
Jesus: I died for your sins, boys, don't forget that..
------------------------------
Date: 27 Oct 1998 15:44:58 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Sending mail using perl
Message-Id: <714ppq$d3a$2@info.uah.edu>
In article <MPG.109f9f8f93b912cf9896ab@news.supernews.com>,
danbeck@eudoramail.com (Daniel Beckham) writes:
: He just needs to check for a ; in his fields and die if found.
It would be even better to
$sendmail = "/usr/lib/sendmail -t";
open SM, "| $sendmail" or die "$0: failed fork: $!";
...;
and provide all the headers through SM.
Greg
--
The O-O languages give you more of course - prettier syntax, derived types and
so on - but conceptually they provide little extra.
-- Rob Pike
------------------------------
Date: Tue, 27 Oct 1998 09:14:17 -0500
From: danbeck@eudoramail.com (Daniel Beckham)
Subject: Re: Size of JPEG and GIF
Message-Id: <MPG.109f9f44628e15609896aa@news.supernews.com>
Hehe, fly is a unix program that was ported to NT. Please, give credit
where credit is due. We wouldn't be talking here if it wasn't for the
unix world...
In article <36358C1C.929D9403@netjob.dk>, e.christensen@netjob.dk says...
> Hi
> If you are on a NT server you could use fly.exe (maybe it comes in a Unix version
> too?)
> Ernst
>
> parab0la@my-dejanews.com wrote:
>
> > Hi all,
> >
> > I'm writing a small HTML generator in PERL, and wants to find out the size of
> > GIF and JPEG images. So that I can write the HEIGHT= and WIDTH= options in
> > the <IMG> tag. What is the most suitable way to do it? Should I use PERL to
> > parse the header of those files? Or is there any external command that I can
> > call?
> >
> > Thx!
> > --
> > Parabola - the famous curve.
> > URL: http://parabola.home.ml.org/
> >
> > -----------== Posted via Deja News, The Discussion Network ==----------
> > http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
>
------------------------------
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 4081
**************************************
