[8216] in Perl-Users-Digest
Perl-Users Digest, Issue: 1834 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Feb 8 23:10:01 1998
Date: Sun, 8 Feb 98 20:00:25 -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 Sun, 8 Feb 1998 Volume: 8 Number: 1834
Today's topics:
<META HTTP-EQUIV="Refresh: QUESTION <thehelm@ibm.net>
Basic question (123) <snowe@rain.org>
Re: Being Nice 2 Nice Beings [Was: Reading The FAQ's et (I R A Aggie)
Re: Create new file on NT50? (Martien Verbruggen)
Re: foreach and my() <dgoddard@us.oracle.com>
Re: Forgery => Killfile (Gabor)
Re: Forgery => Killfile <*@qz.to>
Re: GD.pm: Problem with outputted .gif file (Martien Verbruggen)
Re: how can I split using / as the delimeter? (Martien Verbruggen)
Re: How do you call an .HTM from a Perl script? (Martien Verbruggen)
Re: Is Perl 5 year 2000 compliant? (Simulated Snow)
Linux - Perl Set Up - One Tweak Short gatman@gate.nospam.net
Linux (James L. Taylor)
Re: looking for $ENV-converting script (Martien Verbruggen)
Re: MacPerl_not_even_newbie (Ddarras)
More regular expressions (Mike Binkley)
Re: New Perl book reviews <corky@ultranet.com>
Re: Newbie needs rec. for PERL/CGI primer (Martien Verbruggen)
Re: Quickie: regexp for valid e-mail addresses (Michael Rubenstein)
Re: Sending a message to a pager (Andrew M. Langmead)
sending files with email <pwo@speed.a2000.nl>
Strings, numbers, and hash <vchandra@mail.delcoelect.com>
Re: Upload file whit CGI.pm??? (Martien Verbruggen)
Re: Year 2000 Compliance: Lawyers, Liars, and Perl (Ron Martell)
Re: Year 2000 Compliance: Lawyers, Liars, and Perl <docdwarf@erols.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Feb 98 00:24:34 GMT
From: "Charles Wilkins" <thehelm@ibm.net>
Subject: <META HTTP-EQUIV="Refresh: QUESTION
Message-Id: <01bd34f0$e681bee0$86d548a6@slip166-72-213-134.ut.us.ibm.net>
I am a CNE who's not only up against learning perl cgi scripting, but I'm
doing it from a loadable module
on a Novell Web Server. The syntax used in the perl script with the
Perl5.NLM isn't exactly in any of the books that I have. I have been
adapting code from the samples that I have in order to make do.
I apologize if this isn't the best place for this posting this question:
I have read FAQs and have been all over CGI heaven on the net.
I am aware that <META HTTP-EQUIV="Refresh"
Content="10;URL=http://www.anywhere.com">
causes the html doc to refresh the URL line in 10 seconds to
www.anywhere.com.
Also I am aware of how to use hyperlinks to allow the user to change the
URL in both html and perl, but
How can I change the URL once I'm in the perl script without using a
hyperlink?
Is there an equivalent to <META HTTP-EQUIV="Refresh"
Content="10;URL=http://www.anywhere.com"> that
will work in the perl script.
Some of my books call this Client PULL, but I'm having trouble making it
work.
Thanks in advance!
Charles Wilkins
thehelm@ibm.net
------------------------------
Date: Sun, 8 Feb 1998 17:16:02 -0800
From: Nick Halloway <snowe@rain.org>
To: Nick Halloway <snowe@rain.org>
Subject: Basic question (123)
Message-Id: <Pine.SUN.3.96.980208163814.24167A-100000@coyote.rain.org>
I'm trying to get a robomoderator program working.
It has a perl subroutine that looks like this:
#!/usr/bin/perl
#
# This script checks whether the article conforms to the charter.
# It accepts the article from stdin.
#
# should be individual for every newsgroup
#
if ( /m/) {exit 0 ;}
exit 1; # does not conform
# exit 0; # conform
---------------------------------------------
This always returns 1.
For debugging purposes, how could one run it standalone?
The standard input goes to $_, right -- but saying
conforms_charter <filename
doesn't work;
even putting a debug print line
print $_ ;
doesn't show anything when I run it standalone. How can one get input to
it when it's standalone?
How could one figure out whether the input is getting to this routine
when it's called from the robomoderator package?
Thanks ...
------------------------------
Date: Sun, 08 Feb 1998 19:42:30 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Being Nice 2 Nice Beings [Was: Reading The FAQ's etc.: a teacher's perspective...]
Message-Id: <fl_aggie-0802981942300001@aggie.coaps.fsu.edu>
In article <34DE33CF.832D0A92@us.oracle.com>, Denis Goddard
<dgoddard@us.oracle.com> wrote:
+ This individual raises some points that I agree with and would like to
address.
+ Bear with me or delete me, at your discretion... :)
Fix your word wrapping, or I _will_ killfile you. This is painful to
look at! And I left it the way I found it, with malicious intent.
Hmmmm..."X-Mailer: Mozilla 4.04 [en] (X11; I; SunOS 5.5.1 sun4u)", well
that _explains_ things. At least you didn't post a multipart htmlized
doubled version... :)
+ > (heck! I'm an anthropologist, not a computer programmer!).
+
+ Good point #1.
+ One reason that Perl is a great language is that a non-programmer can become
+ effective very rapidly.
Which means they've learned some rudimentary programming skills, and as
such, have become rudimentary programmers. Welcome to the club.
+ > "Didn't you read the manpages?" or "Hey..that's a
+ > CGI question, not a perl question"... when someone posts a request for help,
+ Good point #2.
Not really. You're bothering thousands of servers, and possibley
10's of thousands of people asking a question you could find on
your _own_ system in the time it would take for your question to
travel from your news server to other servers, to have someone read
your message, formulate an an answer, and post it, have it travel back
to your server, and for you to find and read it. Actually, probably a
lot less time.
Presuming, of course, your server _ever_ gets the replies! As for posting
the appropriate question in the appropriate group (or reading the appropriate
documentation), well, you'd _like_ to get your question looked at by the
widest possibly audience of _knowledgeable_ people, yes?
In which case: ask perl questions in a perl group, and CGI questions in
a CGI group. Or explain to me why there is more than one news.group...or
why you didn't post your question to rec.cooking...
+ If you're annoyed that somewone asked a question too simple for Your
Wizardship to
+ answer, please be kind enough to simply not answer, okay?
And when no one speaks up, 'cause its in TFM, you'll do _what_? Typically,
such people rant and rave that this group is useless, and no one takes
the time to answer their questions, and generally go on a hissy fit.
At which point, they get soundly flamed, and usually disappear shortly
thereafter. Do note, I'm not saying that's you.
+ Maybe there are people just a little more experienced than the poster
who would
+ like to actually
+ provide a clear, detailed, easy-to-digest response.
If its in TFM, its _already_ in a clear, detailed, easy-to-digest form. Not
only that, but its been looked at by hundreds, if not thousands of eyes
looking for errors. If anything is bug free, that's it.
On the other hand, what if you get an answer from someone who _thinks_
they know the answer, but they don't. Or they don't explain it correctly.
Or they make a typo. Or you get more than one answer. What then?
+ When a Wizard says, "RTFM, you
+ moron",
+ not only the original poster, but also these would-be helpful replies are
+ discouraged.
Maybe those would-be helpful souls would be intelligent enough to go
and check their answer agains the TFM, and take satisfaction out of
getting right, or finding the right answer and gaining new insight?
Not only that, but its far easier to type "RTFM. Section 4.2 of the FAQ."
"Ummm...RTFM. 'perldoc -f localtime'". :)
+ > Keep it light... this perl stuff is great, and so are the folks who
work/play
+ > so hard to keep it that way...
+ Amen, brother!
A lot of the folks saying RTFM _are_ those folks...this tells you what?
Here's some advice, do with it as you like:
If you take the time to consult the documentation, you're more likely to
get an answer to related questions that you may post. Many people are much
more likely to take the _time_ and the _effort_ when you ask a question like:
I looked at the FAQ, and it said X. It is not clear to me whether I need
also do Y, or do I need to only do Z??
This is much better than "I need to do X. How do I do it??"
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: 8 Feb 1998 23:47:56 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Create new file on NT50?
Message-Id: <6blg7c$ad0$1@comdyn.comdyn.com.au>
In article <6bi73f$4v4$1@news1.inet.tele.dk>,
<kenny@weng.dk> writes:
> I can't seem to create a new file on Windows NT50 with Perl5
>
> It seems the I have to upload an empty file before :
>
> open(FILE,">$newfile")
>
> works. The access rights is set to read and write for that directory.
>
> Do you know why?
I am not sure what exactly you're asking. What does 'upload and empty
file' have to do with open()? Maybe you should post some code, and
explain a bit more what you expect it to do, and what it actually
does.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | That's not a lie, it's a terminological
Commercial Dynamics Pty. Ltd. | inexactitude.
NSW, Australia |
------------------------------
Date: Sun, 08 Feb 1998 17:36:26 -0800
From: Denis Goddard <dgoddard@us.oracle.com>
Subject: Re: foreach and my()
Message-Id: <34DE5D9A.D1A1FB24@us.oracle.com>
Chipmunk wrote:
> I'm a little confused by these two bits of code:
[snipped]
> Even though $a has been declared with my() in the second example, it
> should still be lexically scoped to the package level. I don't understand
> why it becomes lexically scoped to the foreach loop.
Well, from what you quote in the manpage, it seems like it's doing just what it says
it will.Specifically:
> The perlsyn manpage reads:
> ...If the variable was previously declared
> with my, it uses that variable instead of the global one, but it's still
> localized to the loop.
Consider the following:
#!/usr/bin/perl5.004_04 -w
my($a) = 0;
foreach $a (1..3) {
print "$a\n";
$a=42; # <--- note!
&foo();
}
sub foo {
print "$a\n";
}
__END__
1
0
2
0
3
0
Same output as yer second example.
Setting $a=42 affected the $a that is "local to the loop", not the $a scoped
"to the package level."
Example:
my($a) = 99; # <-- sets the "package-global" $a
foreach $a (1..3) {
print "$a\n";
$a=42; # <-- sets the loop's $a
&foo();
}
sub foo {
print "$a\n";
}
__END__
1
99
2
99
3
99
> Which seems to imply that the values should still be visible outside the foreach
> loop.
Yes. The $a scoped at the package level is indeed visible outside the foreach loop.
> So, what's going on here?
WARNING: There is the distinct possibility that I am not only wrong,but that I am
totally missing the thrust of what is going on here!
In a Forrest Gumpian drawl: "Nobody said I was bright" :)
> Chipmunk
__ __ _ __ __
~~~~(__)|-< /-\(__ |__(-_ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Denis Goddard, Senior Member Technical Staff|"I see the heads of men arise
email: dgoddard@us.oracle.com | with hungry minds, and open eyes!"
ourworld.compuserve.com/homepages/d_goddard | -Rush, from 2112: _The Oracle_
------------------------------
Date: 9 Feb 1998 02:22:26 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: Forgery => Killfile
Message-Id: <slrn6dsptb.ota.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, Tom Christiansen <tchrist@mox.perl.com> wrote :
# People who forge their return address will not receive my
# help. In fact, you will be killfiled. I'm not going to
# argue about it -- it's what I'm doing. If you don't like
# it, don't forge. I use spam filters, and so can you.
I agree. I can't comprehend why people feel this need for forging
their address. I reject all spam and it's rare that I accidently send
something to /dev/null that doesn't belong there.
# --tom
# --
# Tom Christiansen tchrist@jhereg.perl.com
# Sorry. My testing organization is either too small, or too large, depending
# on how you look at it. :-)
# --Larry Wall in <1991Apr22.175438.8564@jpl-devvax.jpl.nasa.gov>
gabor.
--
#else /* !STDSTDIO */ /* The big, slow, and stupid way */
-- Larry Wall in str.c from the perl source code
------------------------------
Date: 9 Feb 1998 03:35:16 GMT
From: Eli the Bearded <*@qz.to>
Subject: Re: Forgery => Killfile
Message-Id: <qz$9802082223@qz.little-neck.ny.us>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> People who forge their return address will not receive my
> help. In fact, you will be killfiled. I'm not going to
Suit yourself, but we didn't need to know. You've had one dramatic
exit already since I've been here.
> argue about it -- it's what I'm doing. If you don't like
> it, don't forge. I use spam filters, and so can you.
De your spam filters still bounce mail from netusa.net because you
don't like usa.net?
Elijah
------
sick of fake bounced mail
------------------------------
Date: 9 Feb 1998 00:09:42 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: GD.pm: Problem with outputted .gif file
Message-Id: <6blhg6$ad0$5@comdyn.comdyn.com.au>
In article <6bjg65$366$1@uwm.edu>,
Christopher Gonderzik <cgonderz@alpha1.csd.uwm.edu> writes:
> open( FILE, ">foo.gif" ) || die "Error: $!";
> print FILE $im->gif;
> close( FILE );
use binmode() on that file handle, like the documentation suggests
repeatedly.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Very funny Scotty, now beam down my
Commercial Dynamics Pty. Ltd. | clothes.
NSW, Australia |
------------------------------
Date: 9 Feb 1998 00:04:52 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: how can I split using / as the delimeter?
Message-Id: <6blh74$ad0$3@comdyn.comdyn.com.au>
In article <6bjq5p$21u$1@solaris.cc.vt.edu>,
"Jerry Davis" <gedavis3@vt.edu> writes:
> The only book on perl I has says simply to use / as a charecter, just
> precede it with a / (i.e //)
If the book really tells you that, I would chuck it. I suspect,
however, that you're confusing / with \.
split(/\//, $string);
but better:
split(m|/|, $string);
perldoc perlop
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | In a world without fences, who needs
Commercial Dynamics Pty. Ltd. | Gates?
NSW, Australia |
------------------------------
Date: 9 Feb 1998 00:07:38 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How do you call an .HTM from a Perl script?
Message-Id: <6blhca$ad0$4@comdyn.comdyn.com.au>
[This has nothing at all to do with modules. removed clp.modules]
[It has nothing to do with perl either, but I didn't want to remove clpm :)]
In article <01bd346d$14948800$86d548a6@slip166-72-213-134.ut.us.ibm.net>,
"Charles Wilkins" <thehelm@ibm.net> writes:
> I am trying to call up HTM documents form my Perl scripts without using an
> anchor tag (hyperlink). Can anybody tell me how to do it?
You can't 'call' a html file. It's not an executable. Now, what do you
_really_ want to do? Display it? Just open the file for reading, and
print it's contents to STDOUT.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: Sun, 08 Feb 1998 18:46:59 -0800
From: SnowSim@halcyon.com (Simulated Snow)
Subject: Re: Is Perl 5 year 2000 compliant?
Message-Id: <SnowSim-0802981846590001@blv-lx104-ip12.nwnexus.net>
In article <EnwvyJ.BLC@world.std.com>, aml@world.std.com (Andrew M.
Langmead) wrote:
> You wouldn't believe the world of questions that go beyond what is in
> the documentation. The docs show you the basic building blocks...
> Thats why people often try to encourage people to discuss the research
> they have done so far. So we can see where they have gotten mixed up.
as my math teachers never failed to remind me..."show all your work"
not just the "cool" stuff
--
"I know of no safe depository of the ultimate powers of the society but the
people themselves; and if we think them not enlightened enough to exercise their
control with a wholesome discretion, the remedy is not to take it from them but
to inform their discretion." - Thomas Jefferson
------------------------------
Date: Mon, 09 Feb 1998 01:49:50 GMT
From: gatman@gate.nospam.net
Subject: Linux - Perl Set Up - One Tweak Short
Message-Id: <34de607a.12748468@news-s01.ny.us.ibm.net>
Linux Redhat 4.2 - Netscape 4.04 and Perl 5.04 all installed fine
Just want to execute scripts locally but I keep getting "save as ...
(type application/x-perl)"
Perl scripts execute fine from the command line.
I have checked Netscape helper applications and .conf files pointing
to cgi-bin. Appears ok - but don't know if this may be area of
problem?
Anbody care to advise what the tweak maybe - thanks.
John
------------------------------
Date: Mon, 09 Feb 1998 01:52:11 GMT
From: cowboy@cnnw.net (James L. Taylor)
Subject: Linux
Message-Id: <34de613a.6465850@news.cnnw.net>
Hi,
I'm new to perl and I have been reading the news group here for a
couple weeks and I have been noticing that alot of people talk about
perl editors so they can do their work off line....how to a get one of
these? are they free? if so where and what am I suppose to
download...I've tried finding a few sites that have linux but I'm not
sure what to get...can anyone tell a newbie what to look for??
Thank You
James L. Taylor
www.bannerfx.com
------------------------------
Date: 9 Feb 1998 00:01:51 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: looking for $ENV-converting script
Message-Id: <6blh1f$ad0$2@comdyn.comdyn.com.au>
In article <34DD2CAD.937@ibm.net>,
{as signed} <Seven7Seas@ibm.net> writes:
> would anyone have a script for extracting the equivalent
> of the timezone variable from those browsers that supply
> only localtime and zulutime instead?
If you're talking about a CGI: you only have access to the time zone
of the server, not the browser. Ask on a CGI group.
If you're talking about some client side stuff: You should ask in a
group appropriate to the language.
Are you maybe talking about the dates in the HTTP header? Read the RFC
for that.(1945, section 3.3). You'll find out that all HTTP dates have
to be specified in GMT.
I still fail to see what this has to do with perl.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | The gene pool could use a little
Commercial Dynamics Pty. Ltd. | chlorine.
NSW, Australia |
------------------------------
Date: 9 Feb 1998 03:23:45 GMT
From: ddarras@aol.com (Ddarras)
Subject: Re: MacPerl_not_even_newbie
Message-Id: <19980209032301.WAA24241@ladder02.news.aol.com>
Thanks,
realized that it was double quotations, not single quotations that I needed to
use...back to this online tutorial at the waite group ezone..any other simple
macperl differences I would be well advised to consider?
------------------------------
Date: Sun, 08 Feb 1998 18:56:33 -0600
From: ThomaJA@LFC.EDU (Mike Binkley)
Subject: More regular expressions
Message-Id: <ThomaJA-0802981856330001@magmysmac.lfc.edu>
Is there an easy way to perform operations on strings and then on substrings?
Let me see if I can outline this, I know that question doesn't make any sense.
In a nutshell, I'm looping through a string. One time I'm going to loop
through it and look for a := using a simple
$word =~ s/:=/ := /
(or whatever the exact syntax of it is)
This just puts a space on each side of the :=
But then later, I'm going to need to loop through the same string and look
for a =
but using
$word =~ s/=/ = /
will also space out the = that is part of the := expression so I would end
up with
: =
instead of
=
Is there a way that I can search for the string (=), but do nothing if it
is part of the larger string (:=)?
Oh, and it doesn't matter if I search for the = or := first, so the order
can be reversed, if necessary.
If this isn't clear enough, I'll try to post a simpler explanation of the
problem.
Thanks!
-Bink.
------------------------------
Date: Sun, 08 Feb 1998 18:59:27 -0500
From: Bob Trieger <corky@ultranet.com>
To: Andy Lester <petdance@maxx.mc.net>
Subject: Re: New Perl book reviews
Message-Id: <34DE46DE.755A@ultranet.com>
Andy Lester wrote:
>
> I've put up a page of Perl book reviews. There are probably no surprises
> for regular readers of c.l.p.m., but I've had requests from newbie friends
> of mine, so there it is.
>
> URL is http://ChicagoMusic.com/perl/
Sorry, you can't say it is a list for beginners without mentioning the
Llama first. The Llama is by far the best perl primer.
just my 2"
------------------------------
Date: 8 Feb 1998 22:41:24 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Newbie needs rec. for PERL/CGI primer
Message-Id: <6blcak$a29$1@comdyn.comdyn.com.au>
In article <886776322.2100822024@dejanews.com>,
Andrew Connell <jconnell@lords.com> writes:
> I know nothing about PERL, but I am experienced with other laguages
> (PASCAL,C++). I have tried to learn to use CGI with C++, but to no
Why is that? CGI is nothing more than a very simple interface. You get
some stuff from environment variables and stdin, then you have to put
out some stuff to stdout... What's so hard about that that it cannot
be done in C++? There are even standard libraries out there that do
all the grunt work for you.
> success. I have decided that it must just be easier to learn PERL, what
> looks like to be the Official CGI scipting language. I am looking for a
Harumph. Perl != CGI. CGI != Perl. True, Perl is used a lot for CGI,
but so is C.
> very good book that covers PERL (ie. Learn PERL in 3 Weeks) and gives
> examples of howto handle CGI input (or even better, a URL that does the
> same).
CGI programming in C and Perl, by Thomas Boutell is not bad, even
though the copy they have at work here uses a lot of perl4-isms. There
might be a newer one.
In perl, all you really need is the CGI.pm module (which comes with
recent versions of perl) and the documentation that goes with that.
http://www.genome.wi.mit.edu/ftp/pub/software/WWW/cgi_docs.html
> Additionally, I would like to find a URL that has a document comparing
> PERL to another language (namely PASCAL or C++). When I was learning
> C++, I found a rather large document on the web which every page of the
> "book" was split in two. One side has PASCAL code and the other side had
> the C++ equivalent. It really helped because since most languages use
> the same basic structure with loops and defining variables; it was good
> to see the difference in syntax.
I don't know if there's anything out there like that. I'd find it hard
to write something like that, because you'd sort of be comparing
apples to pears. I don't use C for the same tasks as perl at all.
Anyway, a good (the best) book on perl: The second edition of
Programming Perl. Also have a look around on www.perl.com and
www.perl.org.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | In a world without fences, who needs
Commercial Dynamics Pty. Ltd. | Gates?
NSW, Australia |
------------------------------
Date: Mon, 09 Feb 1998 00:55:57 GMT
From: miker3@ix.netcom.com (Michael Rubenstein)
Subject: Re: Quickie: regexp for valid e-mail addresses
Message-Id: <34df538b.119344668@nntp.ix.netcom.com>
On 4 Feb 1998 21:04:12 GMT, gbacon@cs.uah.edu (Greg Bacon) wrote:
>[Posted and mailed]
>
>In article <Pine.GSO.3.96.980204083217.6372D-100000@user1.teleport.com>,
> Tom Phoenix <rootbeer@teleport.com> writes:
>: Someone will make a module to do this one day. Then the big problem will
>: be that there are valid addresses which don't match RFC822!
>
>I wonder what Goedel's email address is... :-)
4157888830805141155072949763596834033707
6872825129271971889096620637308098774708
9781877104490883853637773336402447961783
4906276684571817904484234561546277277775
6562021007954756075427312682408945683378
0051672542599855494703021892110709943699
0054651191851144764730338194370746386257
8371439922500427227924232100559040949046
4051659656048762748269166293663510006557
8744626749981777524865259324396255727780
3810854109339270587272409737150710022291
6236258991555383438788413843251505799355
9054274848620100268478206884711517489703
4341108775727155710355074847402115233086
5165240406289412800583261075605534341585
0424745594954677017479669949168092492814
7037838457387548388801668825421980531336
3002516506481133543261154739424849018117
6410078717231321015733852778041259874739
6399193034492123478092513712922483606365
6596564841492677008139419617854466315481
9239557988850480658902241077175993817358
8716899260267329111889954782530722766638
9960005508768276632089893624051925089754
0019119179346404822424399134681433824821
7237602384918391784734140609543745585611
6475958171989335348504215936300411917579
8128444499710062460029234846292761931367
2751473224168823809722707553666131546736
2780796358422738830651748935110622108093
2652953292116135676831868289370868528489
3722183119158813794013687273695343416260
0947679404705661196242459882311646360460
2091505649339480971232714242386761506832
0395283209574472470991823436302065040167
2451929272520787614080444593037115181448
5592427195678072234832626801595296077826
4247138568174717052184860099805497490006
8079647936184319455822950926858255446819
1129467686116020110815901647318809864511
6209493219624193772985920382467229371723
0490273516321633600619713158155666650103
9723387279409374791593957588538376374570
9742414212605969191190476717752265552621
0469614048106316009388785275826956299550
5282435275803043424322214141641633708000
0000000000000000000000000000000000000000
0000000000000000000000000000000000000000
000000000000000000
:-)
--
Michael M Rubenstein
------------------------------
Date: Mon, 9 Feb 1998 00:18:55 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Sending a message to a pager
Message-Id: <Eo34vK.MJ9@world.std.com>
spam@fritter.com (team lamer) writes:
>I'd like a button on one of my pages (intranet) so that the users can
>page relevent people is certain production problems arise.
>(yes I'm evil!)
There is are mailing lists that deal with the IXO protocols used to
send pages. Some of the programs that impelement this protocol are
freely available.
Take a look at <URL:ftp://ftp.netcontech.com/pub/paging_info/ixo_faq.txt>
Writing a CGI script that calls one of these program would be trivial.
--
Andrew Langmead
------------------------------
Date: Mon, 9 Feb 1998 04:08:20 +0100
From: " Pieter Ouwehand" <pwo@speed.a2000.nl>
Subject: sending files with email
Message-Id: <6bls0b$2fa$1@pascal.a2000.nl>
I've been testing to send email's trough a perlscript
and everything works fine, accept how do i tell
my mailserver that's it not a ordinary email but one
with a attachment?
Pieter Ouwehand
pedro@speed.a2000.nl
------------------------------
Date: Sun, 08 Feb 1998 18:45:02 -0500
From: "V. Chandrasekhar" <vchandra@mail.delcoelect.com>
Subject: Strings, numbers, and hash
Message-Id: <34DE437E.6A0@mail.delcoelect.com>
1. I have to do the following:
>From the string (say) "ABCDEFGH" generate the following two arrays
each consisting of three elements:
@ascii
4142
4344
4546
4748
@ebcdic
C1C2
C3C4
C5C6
C7C8
All the numbers 4142, C1C2 are in hex. 41, 42, etc are the
ASCII codes for A,B,etc and C1, C2 are the EBCDIC codes for
A,B,etc
2. I found a way to generate @ascii from the string using
the following code:
($num1, $num2) = unpack ("C*", $word);
$num3 = $num1 * 256 + $num2;
If $word contains say "AB", $num3 will contain 4142 hex
3. I am having trouble generating @ebcdic. I have a hash
that contains the following (only partial contents shown):
%asciitoebcdic = (
"41" => "C1",
"42" => "C2",
"43" => "C3",
"44" => "C4",
"45" => "C5",
"46" => "C6",
"47" => "C7",
"48" => "C8",
);
I have code such as the following:
$asciinum[$kk] = unpack ("C", $chars[$kk]);
$ebcdicnum[$kk] = $asciitoebcdic{"$asciinum[$kk]"};
$temp2 = sprintf("%02X", $ebcdicnum[$kk]);
Each element of $chars contains one character in the string
"ABCDEFGH". Assuming $asciinum[$kk] contains 41 hex during an
iteration, I want to look up C1 hex using this. It seems to be
returning 61 hex. [The hash table has entries from 00 to FF
for the key. In other words, it has 256 entries. I realize
that it does not make sense to have keys from 80 to FF. I am
converting an application from 'c' to perl. The original 'c'
application has a lookup table with 256 entries.
4. I appreciate any help/insight in solving this problem.
Thanks and regards.
V.Chandrasekhar
------------------------------
Date: 8 Feb 1998 23:04:30 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Upload file whit CGI.pm???
Message-Id: <6bldlu$a60$1@comdyn.comdyn.com.au>
In article <34DB5D19.446B9B3D@uqac.uquebec.ca>,
Jean-Francois Leroux <EI952942@uqac.uquebec.ca> writes:
> Is it what I need to upload a file who come from of a <FORM> in a web
> page? If yes, could you send me that source code please!
type
perldoc CGI
after you have inmstalled CGI.pm. Look for the keyword 'upload' in
that documentation. There's example code in there.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: Sun, 08 Feb 1998 17:24:23 -0800
From: rmartell@islandnet.com (Ron Martell)
Subject: Re: Year 2000 Compliance: Lawyers, Liars, and Perl
Message-Id: <34e250ab.47299763@news>
Just to follow up on Jon's comments re 1401s
I programmed briefly in the early 70s for a 360/25 using PL/1. The
machine was only a year or so old, having replaced a 1401. The vast
majority of the application programs in use were done in Autocoder.
Much of the programming work was focussed on additions or enhancements
to the 1401 applications, using the same data files. For example, in
the accounting system the vast majority of the programs in use were
done in Autocoder but any new stuff, such as a new format for
divisional financial statements or detailed cost analysis reports were
done in PL/1 and (later) COBOL with a smattering of RPGII thrown in
for variety.
The point is, so long as any component of the system remained in
Autocoder then the file formats had to remain the same. The last I
heard, Autocoder was still being used for one small remnant of the
accounting system in the late 1980s.
I would imagine that there are many many applications that evolved the
same way, and once a file and data storage format was being accessed
by a large number of applications then it would be extrememely
disruptive to change these formats. So structures inherited from the
legacy systems would persist long after the applications themselves
had been rewritten or discarded.
Ron Martell Duncan B.C. Canada
--
Microsoft MVP
On-Line Help Computer Service
http://www.islandnet.com/~rmartell/online.htm
"When the only tool you own is a hammer, every problem you encounter
resembles a nail."
------------------------------
Date: Sun, 08 Feb 1998 22:18:17 -0500
From: The Goobers <docdwarf@erols.com>
To: Ron Martell <rmartell@islandnet.com>
Subject: Re: Year 2000 Compliance: Lawyers, Liars, and Perl
Message-Id: <34DE7579.3039@erols.com>
Ron Martell wrote:
>
> Just to follow up on Jon's comments re 1401s
[snippage of stuff about Ye Olde Oldene Dayze]
> So structures inherited from the
> legacy systems would persist long after the applications themselves
> had been rewritten or discarded.
Or, as we used to say... 'The system is not to be decommissioned until
after the last user dies.'
DD
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1834
**************************************
