[11074] in Perl-Users-Digest
Perl-Users Digest, Issue: 4674 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jan 17 16:04:35 1999
Date: Sun, 17 Jan 99 13:00:23 -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, 17 Jan 1999 Volume: 8 Number: 4674
Today's topics:
== and = , again (Jim and Paula)
Re: == and = , again <rick.delaney@home.com>
Re: == and = , again (Andre L.)
Re: A plea for less goofy signature files! <rra@stanford.edu>
Re: A plea for less goofy signature files! <new_email@see.web.page>
Re: A plea for less goofy signature files! <flavell@mail.cern.ch>
Re: Another newbie problem. Help <mikeblock@home.com>
Comments on my new site, please! fw13@my-dejanews.com
Downloading, Perl, Navigator, and file names <khunt@earthlink.net.no-spam>
Re: File Upload <eugene@snailgem.org>
HELP: Netscape 4.5 doesn't like text/html header from P cndawes@my-dejanews.com
Re: HELP: Netscape 4.5 doesn't like text/html header fr <design@raincloud-studios.com>
Re: HELP: Netscape 4.5 doesn't like text/html header fr <khunt@earthlink.net.no-spam>
Re: HELP: Netscape 4.5 doesn't like text/html header fr <flavell@mail.cern.ch>
Re: Need example of HTTP PUT using perl (Michael Fuhr)
Newbie problem, HTTP_REFERER, setting cookies <david@nospam.net>
Re: Newbie problem, HTTP_REFERER, setting cookies <khunt@earthlink.net.no-spam>
Re: Newbie problem, HTTP_REFERER, setting cookies <rick.delaney@home.com>
Perl Conferences '99 <mymail@nospam.com>
Re: Perl Criticism topmind@technologist.com
Re: Perl Criticism topmind@technologist.com
Re: Perl Criticism topmind@technologist.com
Perl Programer Wanted airplanes@altavista.net
reading from IO::Socket <bigos@cs.sbu.edu>
Re: Upper and lower case problem with swedish chars (Tad McClellan)
Re: Upper and lower case problem with swedish chars (Andre L.)
Win32 user management <Kaveh.Vahedipour@Uni-Koeln.de>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 17 Jan 1999 19:53:32 GMT
From: gemhound@gemhound.com (Jim and Paula)
Subject: == and = , again
Message-Id: <36a23df0.18800938@news.primeline.com>
Whilst learning Perl I am making the usual dumb substitutions of =
for == and vice versa. Getting infinite loops when I substitute a
loopvar instead of testing it. What annoys me is that I've done this
in other languages and still do, and I know other folks, even
experienced ones, do it all the time. It seem such an obtuse usage
that I'm surprised Perl, which is so practical, doesn't have synonyms.
I know they hate to expand reserved words, but it would be nice to
have "equals" for = , and "becomes" for ==
Or since the comparison and assignment operators are different, they
shouldn't use the identical symbol, only repeated. Hey, could you
append a letter? How about =s as a synonym?
Or something else. Anything but = and == which just seem to get
mistyped all the time.
Jim Mooney
------------------------------
Date: Sun, 17 Jan 1999 20:31:32 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: == and = , again
Message-Id: <36A24A72.A445C269@home.com>
[posted & mailed]
Jim and Paula wrote:
>
> Whilst learning Perl I am making the usual dumb substitutions of =
> for == and vice versa. Getting infinite loops when I substitute a
> loopvar instead of testing it. What annoys me is that I've done this
> in other languages and still do, and I know other folks, even
> experienced ones, do it all the time.
This is why good compilers warn you about such errors. perl is no
exception and will warn you provided you ask it to.
Invoke ALL your programs as 'perl -w' and you won't have this problem.
#!/usr/bin/perl -w
use diagnostics;
$line = 0 if $line = 1;
Output:
Found = in conditional, should be == at temp line 3 (#1)
(W) You said
if ($foo = 123)
when you meant
if ($foo == 123)
(or something like that).
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Sun, 17 Jan 1999 15:35:02 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: == and = , again
Message-Id: <alecler-1701991535020001@dialup-373.hip.cam.org>
In article <36a23df0.18800938@news.primeline.com>, gemhound@gemhound.com
(Jim and Paula) wrote:
[...]
> I know they hate to expand reserved words, but it would be nice to
> have "equals" for = , and "becomes" for ==
[...]
That wouldn't be right. = means "assignment", and == means "numerical equality".
$var = 4; # "becomes"
if ($var == 4) { } # "equals"
Andre
------------------------------
Date: 17 Jan 1999 08:52:42 -0800
From: Russ Allbery <rra@stanford.edu>
Subject: Re: A plea for less goofy signature files!
Message-Id: <ylognxyh7p.fsf@windlord.stanford.edu>
Phlip <new_email@see.web.page> writes:
> Russ Allbery wrote:
>> ...the signature tear line ("-- \n")...
> I have to ask - is that space between the second dash and the linefeed
> part of the standard?
Yes, actually. It's one of the parts that makes it rather annoying, since
various things keep trimming off the space, and without the space it
doesn't actually count.
Causes all sorts of problems with PGP.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 17 Jan 1999 09:26:24 PST
From: "Phlip" <new_email@see.web.page>
Subject: Re: A plea for less goofy signature files!
Message-Id: <77t6g0$8g1@journal.concentric.net>
ptimmins@netserv.unmc.edu wrote:
>The smug ones are *particularly* annoying. I hate it when I search
on
>"perl" and a good 35%-45% of the 1,228,777 hits returned (Infoseek)
>contain an air of smugness ... I'm sure this must annoy others as
well.
Apologies for appearing to step on toes. I certainly would not want
anyone to think I was advocating the Sisyphean effort of curing the
entire Perl community at large of smugness.
-- Phlip at politizen dot com (address munged)
======= http://users.deltanet.com/~tegan/home.html =======
-- In the future everyone will be Andy Warhol for 15 minutes --
------------------------------
Date: Sun, 17 Jan 1999 19:15:42 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: A plea for less goofy signature files!
Message-Id: <Pine.HPP.3.95a.990117190607.13533G-100000@hpplus01.cern.ch>
On 17 Jan 1999, Russ Allbery wrote:
> >> ...the signature tear line ("-- \n")...
>
> > I have to ask - is that space between the second dash and the linefeed
> > part of the standard?
>
> Yes, actually. It's one of the parts that makes it rather annoying, since
> various things keep trimming off the space, and without the space it
> doesn't actually count.
It was maddening, back when I was using an IBM mainframe. Its news
software (like much else on that platform) internally padded lines out
to fixed length 80-char records with spaces, and then for actual
transmission it suppressed all trailing spaces, thereby wrecking the sig
separator.
The same kind of thoughtlessness created a uuencoding format which made
use of significant trailing spaces. That also went "down the tubes"
when emailed to folks on IBM mainframes.
Oh well, that's all in the past as far as I'm concerned. Today's
counterpart is the Perl-ers who can't or won't distinguish between a
newline (platform-dependent representation), a linefeed (one specific
ASCII control character), and an HTTP newline (CR+LF on the network,
supposed to be independent of te platforms at either end).
ttfn
------------------------------
Date: Sun, 17 Jan 1999 17:20:32 GMT
From: "mikey" <mikeblock@home.com>
Subject: Re: Another newbie problem. Help
Message-Id: <AZoo2.966$Bp.678@news.rdc1.on.wave.home.com>
If you can enable SSI on your server (like on Apache for example) you might
be able to simply use:
<!--#flastmod file="sample.test" -->
This is build into the web server and included in your html page so that
when the file is requested, this tag is replaced by its returned value.
------------------------------
Date: Sun, 17 Jan 1999 20:08:56 GMT
From: fw13@my-dejanews.com
Subject: Comments on my new site, please!
Message-Id: <77tg0j$1sh$1@nnrp1.dejanews.com>
I am a novice in website construction. And we appreciate comment on our
site at http://disc.server.com/Indices/41259.html
Thank you very much.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 17 Jan 1999 11:21:05 -0800
From: "KC Hunt" <khunt@earthlink.net.no-spam>
Subject: Downloading, Perl, Navigator, and file names
Message-Id: <77td7h$7nb$1@birch.prod.itd.earthlink.net>
I'm trying to have the user save a downloaded file through Navigator 4.x.
That's not the problem though. The problem is that the default filename is
always the name of the Perl script that is doing the downloading.
I think this is because I'm using the script as an interface that reads a
text file off a server, and "prints" that file to the browser which is
expecting an application. I use the line
print "Content-type: application/text\n\n";
and a simple loop that reads a line and prints a line to do this. Is there
another way I can download a file trough the browser? Is there a way to
specify the name of the file being downloaded?
--
----------------------------------------------------------------------------
-
KENNETH HUNT "If knowledge is power,
khunt at earthlink dot net and absolute power corrupts,
http://home.earthlink.net/~khunt/ then how will the human race survive?"
----------------------------------------------------------------------------
-
------------------------------
Date: Sun, 17 Jan 1999 13:24:20 -0500
From: Eugene Sotirescu <eugene@snailgem.org>
Subject: Re: File Upload
Message-Id: <36A22AD4.44E2BD96@snailgem.org>
GSX wrote:
>
> Thank you for your help. However, unless your car is mounted on 4 stone
> circles, I would have to say that companies such as Goodyear and
> Firestone who have "reinvented the wheel" have done us some good.
>
>
> > Whatever your motivations might be for reinventing the wheel I would
> > nonetheless strongly recommend you to use the facilities provided by
> > CGI.pm to do this - this area is one that seems to spawn a great number
> > of misunderstandings.
You're comparing CGI.pm with stone wheels, which is not apt.
But by all means, if you want to do it from scratch, Perl gives you all
you need: sockets, treating files as I/O streams and unmatched pattern
matching. You'll also need to read through RFC 1327 and 2045, because
you'll probably spend most of your time dealing with enconding and
formatting the data stream.
--
Eugene
you: "I have a gun. Give me your money!"
Eliza: "Can you elaborate on that?"
(from a conversation with the chatbot Eliza, as reported by John Nolan)
------------------------------
Date: Sun, 17 Jan 1999 17:32:23 GMT
From: cndawes@my-dejanews.com
Subject: HELP: Netscape 4.5 doesn't like text/html header from Perl script
Message-Id: <77t6r8$qgo$1@nnrp1.dejanews.com>
I have written a perl script, which outputs some HTML. It does this very
nicely with IE4, however, when I use Netscape 4.5 it is as though it is
completely ignoring the "Content-type: text/html\n\n" which I am sending it,
as it prints the source to the screen, HTML tags and all.
Anyone got any clues as to why this could be the case, as I am completely
stuck.
Thanks in advance for any help.
Charles Dawes.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 17 Jan 1999 18:48:30 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: HELP: Netscape 4.5 doesn't like text/html header from Perl script
Message-Id: <77tb9u$fre@bgtnsc02.worldnet.att.net>
cndawes@my-dejanews.com wrote in message
<77t6r8$qgo$1@nnrp1.dejanews.com>...
>I have written a perl script, which outputs some HTML. It does
this very
>nicely with IE4, however, when I use Netscape 4.5 it is as
though it is
>completely ignoring the "Content-type: text/html\n\n" which I
am sending it,
>as it prints the source to the screen, HTML tags and all.
>
>Anyone got any clues as to why this could be the case, as I am
completely
>stuck.
Is this being viewed online, or on a LAN? I am experiencing the
same problem when trying to view output in Netscape from a LAN
workstation. With IE it's fine. I have yet to figure it out.
If you hear anything outside of the group, I'd appreciate a
forward of how to get this going.
CT
------------------------------
Date: Sun, 17 Jan 1999 11:01:27 -0800
From: "KC Hunt" <khunt@earthlink.net.no-spam>
Subject: Re: HELP: Netscape 4.5 doesn't like text/html header from Perl script
Message-Id: <77tc2n$5rs$1@birch.prod.itd.earthlink.net>
How are you printing the HTML code? How are you printing the line
"Content-type: text/html\n\n" ??
--
----------------------------------------------------------------------------
-
KENNETH HUNT "If knowledge is power,
khunt at earthlink dot net and absolute power corrupts,
http://home.earthlink.net/~khunt/ then how will the human race survive?"
----------------------------------------------------------------------------
-
Charles R. Thompson wrote in message
<77tb9u$fre@bgtnsc02.worldnet.att.net>...
>cndawes@my-dejanews.com wrote in message
><77t6r8$qgo$1@nnrp1.dejanews.com>...
>>I have written a perl script, which outputs some HTML. It does
>this very
>>nicely with IE4, however, when I use Netscape 4.5 it is as
>though it is
>>completely ignoring the "Content-type: text/html\n\n" which I
>am sending it,
>>as it prints the source to the screen, HTML tags and all.
>>
------------------------------
Date: Sun, 17 Jan 1999 20:06:32 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: HELP: Netscape 4.5 doesn't like text/html header from Perl script
Message-Id: <Pine.HPP.3.95a.990117195612.13533I-100000@hpplus01.cern.ch>
On Sun, 17 Jan 1999 cndawes@my-dejanews.com wrote:
> I have written a perl script, which outputs some HTML. It does this very
> nicely with IE4,
IE is notoriously broken in this respect, so that proves nothingm I'm
afraid. What does Lynx do, for example?
> however, when I use Netscape 4.5 it is as though it is
> completely ignoring the "Content-type: text/html\n\n" which I am sending it,
> as it prints the source to the screen, HTML tags and all.
Evidently NS thinks it's plain text. There would be a reason for that.
That's an HTTP header. So you'd have to be sending the content by HTTP.
You haven't said just what you're doing to get your output into an
HTTP protocol transmission. The most common way would be by running
your script as a CGI on some web server, but you've said nothing about
that.
> Anyone got any clues as to why this could be the case,
You haven't told us enough, and you've probably picked the wrong group.
If you're executing this as a CGI, then check out the resources of the
comp.infosystems.www.authoring.cgi group (read its auto-moderation
instructions too, if you want to post there).
Put your thing on-line and give us its URL, if you expect a quality
answer. Otherwise we're just poking around in the dark.
The kind of thing that you're describing, is working fine for thousands
of authors. Something - that you have omitted to mention - is a
significant cause of your problem; we don't know what it is, but it
almost certainly isn't a problem of the Perl language as such. Which
server _are_ you using this in conjunction with?
------------------------------
Date: 17 Jan 1999 13:37:40 -0700
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: Need example of HTTP PUT using perl
Message-Id: <77thmk$4s3@flatland.dimensional.com>
Charlie Davies <cdavies@harris.com> writes:
> This is a cryptographically signed message in MIME format.
Ummm...why?
> Does anyone have a simple example showing how to put a file via
> HTTP PUT method including and authorization header?
Take a look at perlfaq9 and the LWP (libwww) manual pages:
http://language.perl.com/newdocs/pod/perlfaq9.html
http://www.perl.com/CPAN/modules/by-module/WWW/
You'll have to look around a bit and put some things together yourself,
but you'll learn all sorts of neat things along the way :-)
--
Michael Fuhr
http://www.fuhr.net/~mfuhr/
------------------------------
Date: Sun, 17 Jan 1999 17:58:26 -0000
From: "David Taylor" <david@nospam.net>
Subject: Newbie problem, HTTP_REFERER, setting cookies
Message-Id: <77t8li$ojg$1@news5.svr.pol.co.uk>
I am a newcomer to PERL. I have been struggling with this problem for
some days, and seem to be stuck.
I need to determine which URL's have directed traffic to our site.
My ISP server is UNIX Apache (but I am trying to develop PERL scripts on a
Win32
system in the office.)
I want to set a cookie as soon as the browser client comes to the site,
i.e. on the first page or in a CGI script run before this.
I can capture HTTP_REFERER ok and match it against a list of referring sites
I want to recognise. Then I set up a variable $report, containing the data.
I have written set-cookie PERL code like this:
---------------------------------------------
$trailer = "; path=/; domain=.{our domain}";
$cookie = "Referring_site=".$report.$trailer;
#
print "Set-cookie: $cookie","\n\n";
----------------------------------------------
I have tried putting this code:
(1) in a CGI script run first thing
(2) in a Server Side Include as an #exec command
but neither of these work.
The same code when linked in at other places, e.g.
<A HREF="/cgi/setacookie.pl">Set some cookies</P></P>
works fine. But the trouble with this is that the HTTP_REFERER
value has been lost, because you have jumped to a difference page.
I have tried including (or excluding) "Content-type: text/html\n\n"
commands,
it just causes the set-cookie command to sent to the screen.
What am I doing wrong?
Many thanks to anybody who can give me any pointers.
Roger Kreitman
email rak@XXXXmantissaXXXX.coXXXX.ukXXXX (spam prevention - take out the
XXXX's)
------------------------------
Date: Sun, 17 Jan 1999 10:58:11 -0800
From: "KC Hunt" <khunt@earthlink.net.no-spam>
Subject: Re: Newbie problem, HTTP_REFERER, setting cookies
Message-Id: <77tbsj$5h4$1@birch.prod.itd.earthlink.net>
Your problem might be in the way you are saving the variable $trailer.
Specifically, you're putting a semi-colon IN the string your saving. I don't
think you can do that. In stead of making one big string, make several
variables which make up the parts of the cookie and save that. Example:
$x = "path=/";
$y = "domain=.{our domain}";
But this line <$trailer = "; path=/; domain=.{our domain}";> is just wrong.
How is Perl suppose to know where the line ends?? You've got three
semi-colons in there!!!
--
----------------------------------------------------------------------------
-
KENNETH HUNT "If knowledge is power,
khunt at earthlink dot net and absolute power corrupts,
http://home.earthlink.net/~khunt/ then how will the human race survive?"
----------------------------------------------------------------------------
-
David Taylor wrote in message <77t8li$ojg$1@news5.svr.pol.co.uk>...
>I can capture HTTP_REFERER ok and match it against a list of referring
sites
>I want to recognise. Then I set up a variable $report, containing the
data.
>
>I have written set-cookie PERL code like this:
>
>---------------------------------------------
>$trailer = "; path=/; domain=.{our domain}";
>$cookie = "Referring_site=".$report.$trailer;
>#
>print "Set-cookie: $cookie","\n\n";
>----------------------------------------------
------------------------------
Date: Sun, 17 Jan 1999 20:42:38 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Newbie problem, HTTP_REFERER, setting cookies
Message-Id: <36A24D13.1E0CEB09@home.com>
KC Hunt wrote:
>
> But this line <$trailer = "; path=/; domain=.{our domain}";> is just
> wrong. How is Perl suppose to know where the line ends?? You've got
> three semi-colons in there!!!
This is utter nonsense. How would anyone ever use data that had
semi-colons if perl were so stupid?
Please run this:
#!/usr/bin/perl -w
$trailer = "; path=/; domain=.{our domain}";
print $trailer;
You see? Next time please make your own test script before making such
absurd claims.
--
Rick Delaney
rick.delaney@shaw.wave.ca
------------------------------
Date: Thu, 14 Jan 1999 07:25:47 -0500
From: JPAH-FLA <mymail@nospam.com>
Subject: Perl Conferences '99
Message-Id: <369DE24A.CD80377E@nospam.com>
Hi-
Is there a website for this year's Perl conference? I want to put in for
it early before the travel $$$ is all gone.
Thank-You.
------------------------------
Date: Sun, 17 Jan 1999 19:49:07 GMT
From: topmind@technologist.com
Subject: Re: Perl Criticism
Message-Id: <77terh$um$1@nnrp1.dejanews.com>
Reply to: tiptopmind@my-dejanews.com
Tippy,
I can't believe you went through the trouble of
obtaining a copycat alias just to slander me.
It must be that I am reaching celebrity
status in this group in order for cyber-stockers
to start poping out of the dark woodwork with
their socially-defective antics.
Mr. Tippy, I suggest you obtain medical
attention before your anti-social urges
take you too far. There are plenty of new
medications on the market. One is bound to
help. Otherwise, you may end up like the
Unibomber or something.
The world is already full of destructive
anti-social behavior. Our jails are bulging
with them. Because of the glut, you are
not unique and there is no reason to be
proud of such behavior.
-tmind-
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 17 Jan 1999 19:59:53 GMT
From: topmind@technologist.com
Subject: Re: Perl Criticism
Message-Id: <77tffl$1ec$1@nnrp1.dejanews.com>
In article <36a11dcc.14814486@news.highwayone.net>,
richardc@tw2.com (Richard Clamp) wrote:
> On Sat, 16 Jan 1999 02:55:26 GMT, topmind@technologist.com wrote:
> >
> >I told you so! Some programmers write cryptic code out of
> >the shear challenge of jaming as much "functionality" into
> >as small a space as possible. Call it
> >"College Phone-booth Programming".
>
> I'm stopping myself doing a spelling correction about now.
I wouldn't notice the difference :-)
(Can you recommend a decent ASCII spell-checker and off-line
newsreader? I can't find decent ones.)
>
> It never makes it into production code[1] and I'd do it in a
> Table-Oriented Programming language too. No-one claimed that
> programmers don't do it, just that responsible ones avoid it in real
> code, which nixes your main complaint (that programmers can't be
> trusted) anyhow.
You are extrapolating your personal behavior into the rest.
I am talking about generalities. I have maintained many other's
code that clearly emphasized the short-term. Nobody ever
punished or "marked down" those guys. There is an
insufficient feed-back cycle in a good many companies
based on my observations. Perhaps your world is different.
The Dilbert strip is very popular because of
superficial management techniques, thus I am not alone
in this claim.
>
> What I was mentioning is that there are times when you want to play
> with a language, which you can do with Perl, because it's not
> babysitting you.
>
> Richard
>
> [1] To me, production code is any code someone else might have to
> maintain.
>
> --
> Richard Clamp richardc@tw2.com
> Frisbeetarianism, n.:
> The belief that when you die, your soul goes up on the roof
> and gets stuck
>
Hmmm, I always thought that was Chinese cooking that made that gooey stuff
up there.
-tmind-
http://www.geocities.com/SiliconValley/Lab/6888/langopts.htm
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 17 Jan 1999 20:05:28 GMT
From: topmind@technologist.com
Subject: Re: Perl Criticism
Message-Id: <77tfq4$1qr$1@nnrp1.dejanews.com>
In article <slrn7a32rt.967.dformosa@godzilla.zeta.org.au>,
dformosa@zeta.org.au (David Formosa (aka ? the Platypus)) wrote:
> In article <36A098DD.11C5A0B1@ngb.se>, Staffan Liljas wrote:
> >topmind@technologist.com wrote:
> [...]
>
> >> Design a language for cryptologists and the best ......
> >
> >But you have still not showed us one single piece of cryptological code
> >that wasn't part of a sig or written for a competition.
>
I don't have any examples and currently have no contact with
other's Perl code. Sorry.
> I don't know, Crypt::IDEA is quite cryptological.
>
Where is that?
> -- ...
-tmind-
http://www.geocities.com/SiliconValley/Lab/6888/langopts.htm
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 17 Jan 1999 18:21:01 GMT
From: airplanes@altavista.net
Subject: Perl Programer Wanted
Message-Id: <77t9m7$sje$1@nnrp1.dejanews.com>
Hello,
I need somebody to edit perl scripts to allow multiple users. The purpose
is to allow me offer remotely hosted scripts. The process should be automated
and have an admin control panel. For more details, please send questions to
David. Experience is required and the contract will be given to the person
offering the most value.
--
Thank you
David Moran
morane@iol.ie
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 17 Jan 1999 14:44:59 -0500
From: "Michael J. Bigos" <bigos@cs.sbu.edu>
Subject: reading from IO::Socket
Message-Id: <36A23DBB.745D8260@cs.sbu.edu>
Hello.
There may have been similar postings to this, but the group is rather
unweildy. I am able to open and read a line from a socket using
$line = <$sockethandle>;
when only one line is returned. But if I try to account for a possible
multiline return, as when retreiving mail from a POP server, any read of
a second-line on commands that only return one line fails. Is this
because the value of $sockethandle changes as data is read from the
socket, or because the "end of data returned from socket" character is
not being read correctly? Whether I use a while loop for a
@lines = <$sockethandle>
the input freezes, I get a flashing cursor, and can't type anything
worthwhile except CTRL-C.
Any thoughts?
BTW-- I'm running ActivePerl on Win95.
Michael Bigos
bigos@geocities.com
(please respond both in the newsgroup and in an email.)
------------------------------
Date: Sun, 17 Jan 1999 10:55:38 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Upper and lower case problem with swedish chars
Message-Id: <am4t77.rm1.ln@magna.metronet.com>
ed98mba (ed98mba@lc.vetlanda.se) wrote:
: Im am trying do develop a catalog over the students at a "input
: facillity". As some of you might know, the swedish alhabet has some
: strange chars in it. these are e(E) d(D) and v(V). (perhaps you get the
: wrong chars, thats because you dont have your browser foucus4d on
: swedish).
You should not assume that folks read news with a browser.
I actually use a program _made for_ reading news.
But then I don't use a wrench to drive a nail either ;-)
: The problem:
: When i try to search the database that I have stored the catalog in, I
: get the wrong awnser. this i due to fact that perl dont recon.. that the
: swedish chars have a upper and lower case.
: Does some one has solvation to this problem
: pardon my bad english!
Try:
perldoc perllocale
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sun, 17 Jan 1999 15:14:13 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: Upper and lower case problem with swedish chars
Message-Id: <alecler-1701991514130001@dialup-373.hip.cam.org>
[Courtesy cc sent to ed98mba@lc.vetlanda.se]
In article <36A1C5A0.E11F7F80@lc.vetlanda.se>, ed98mba
<ed98mba@lc.vetlanda.se> wrote:
> Hi!
>
> Im am trying do develop a catalog over the students at a "input
> facillity". As some of you might know, the swedish alhabet has some
> strange chars in it. these are e(E) d(D) and v(V). (perhaps you get the
> wrong chars, thats because you dont have your browser foucus4d on
> swedish).
> The problem:
> When i try to search the database that I have stored the catalog in, I
> get the wrong awnser. this i due to fact that perl dont recon.. that the
> swedish chars have a upper and lower case.
>
> Does some one has solvation to this problem
> pardon my bad english!
Hi,
Read the perllocale manpage, which gives information about the use of
locales to deal with national character sets. (Be aware that locales are
more of a Unix thing, and may not be implemented, entirely or at all, on
other platforms. I dunno about the perls for Windows.)
In a nutshell, here's the story.
First, you need to set the locale for the script to Swedish. This should do it:
use POSIX qw/locale_h/;
setlocale LC_ALL, "sv";
Then, when you need to do a match that involves the Swedish charset, you
must use the "use locale" pragma to make the operation locale-sensitive.
Here, it makes the case-insensitive (/i) match work within the current
locale.
{ use locale;
$it_matches = "BJVRN" =~ /v/i; # sorry, don't know any Swedish words
}
Another example:
{ use locale;
$upper = uc "bjvrn"; # BJVRN
}
All text involved in a locale-sensitive operation must use the same
charset as the locale, goes without saying.
If you're searching in a HTML file, you will need to decode the
"&entities;" (using the HTML::Entities module) before attempting any
locale-sensitive operation.
HTH,
Andre
------------------------------
Date: Sun, 17 Jan 1999 20:51:57 +0100
From: Kaveh Vahedipour <Kaveh.Vahedipour@Uni-Koeln.de>
Subject: Win32 user management
Message-Id: <36A23F5D.F21ACA20@Uni-Koeln.de>
Hi All!
I have installed0 the Win32-NetAdmin, Win32-AdminMisc and
Win32-NetResource ActivePerl extension on an NT box
but am having problems getting the most basic things in these modules
work:
Even the most easy programs dom't not work:
--------------------------------------------------------------
use Win32::NetAdmin;
Win32::NetAdmin::LocalGroupCreate(<servername>, Test, Testgroup);
---------------------------------------------------------------
runs without errors, but also without any effects to local group
constellation.
---------------------------------------------------------------
use Win32::NetAdmin;
if(Win32::NetAdmin::ExistsUser(<servername>, Administrator)) {
print "user exists!";
}
---------------------------------------------------------------
runs without errors and any outputs!
What am I doing wrong?
Yours Kaveh.
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4674
**************************************
