[8054] in Perl-Users-Digest
Perl-Users Digest, Issue: 1679 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jan 20 06:07:19 1998
Date: Tue, 20 Jan 98 03: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 Tue, 20 Jan 1998 Volume: 8 Number: 1679
Today's topics:
Accessing mSql server from Perl Query????
Re: are there something like "Perl for Idiot" in Bookst <ajohnson@gpu.srv.ualberta.ca>
CGI bulletin board ronal@aloha.com
Re: Detecting the presence of a sub declaration (Brendan O'Dea)
Re: differences (Bart Lateur)
emulating post <jstewart@epresence.com>
Going Nuts with a simple script! Help! (John)
how do i get full path to $0 <john.crawshaw@london.pgs.com>
Re: I need some help pleeze (David Waring)
Re: living and free software (was: Re: source into bina <bowlin@sirius.com>
Re: Logical 'and' in regex? <vladimir@cs.ualberta.ca>
Re: Odd syntax problem <vladimir@cs.ualberta.ca>
Re: Odd syntax problem <danboo@negia.net>
Re: Oraperl / DBD / Perl5 Performance : problems with A <mwrostron@imation.com>
password, userid <Andras.Szekely@eth.ericsson.se>
Re: password, userid <xxTony.Curtis@vcpc.univie.ac.at>
perl (Win95) and DOS commands??? <junnu@velco.fi>
Re: Perl + C in NT <bowlin@sirius.com>
Re: Perl + C in NT <mallwitz@intershop.de>
perl.y --> Perl's Yacc Grammar <menden@lsil.com>
Re: perl.y --> Perl's Yacc Grammar <mallwitz@intershop.de>
Re: please, help me, help me, help me..... (Bart Lateur)
Re: Puzzling behavior of c.l.p.* readers (Marek Rouchal)
Re: Puzzling behavior of c.l.p.* readers <ckc@dmi.dk>
Re: Puzzling behavior of c.l.p.* readers <Dave.Cross@gb.swissbank.com>
Re: REGEXP: Does it need optimization? <vladimir@cs.ualberta.ca>
Re: source into binary code (Bart Lateur)
Re: Switch statement in Perl-5??? (Marek Rouchal)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 20 Jan 1998 07:35:47 GMT
From: Query????
Subject: Accessing mSql server from Perl
Message-Id: <6a1k4j$9v8@triton.np.ac.sg>
Hi,
I'm a newbie to Perl. I would like to access a mSql server running
on NT from a unix box. Is there any way that I can do that via Perl?
What others libraries do I need to load, other than the Perl5.004?
Thanks.
------------------------------
Date: Tue, 20 Jan 1998 00:28:29 -0600
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: are there something like "Perl for Idiot" in Bookstore?
Message-Id: <34C4440D.11163DA3@gpu.srv.ualberta.ca>
Chat U wrote:
>
> I just jumped from win95 to Unix a couple weeks ago.
congratulations
> I'm do well with pascal and OK with C....but right now, perl is my choice
> :-)
congratulations
> Any comments about Perl books for beginer?
try "Learning Perl" for tutorial and *good* introduction to the
language, and "Programming Perl" as the standard reference for
the language--- both books by O'Reilly and Associates.
regards
andrew
------------------------------
Date: Tue, 20 Jan 1998 03:21:13 -0600
From: ronal@aloha.com
To: ronal@aloha.com
Subject: CGI bulletin board
Message-Id: <885247339.1677918209@dejanews.com>
Anyone know of a cgi program that will allow me to provide posted messages
to be viewed and responded to, like Dejanews, but confined to my server.
More like a private newsgroup not aquiring content from a news server, but
from my dailup account on my ISP's server.
Id like to use it as a message board for my relatives and friends who are
in multiple locations.
Thanks in advance,
ron
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 20 Jan 1998 19:07:40 +1100
From: bod@compusol.com.au (Brendan O'Dea)
Subject: Re: Detecting the presence of a sub declaration
Message-Id: <6a1m0c$7gj$1@duende.compusol.com.au>
In article <34C41323.A80E8799@5sigma.com>,
Joseph N. Hall <joseph@5sigma.com> wrote:
>Ah! Now I get it:
>
> &{*{"foo"}{CODE}} is equivalent to &{"foo"}
Err, kind of ...
&{*{"foo"}{CODE}} is actually closer to &{\&{"foo"}}
or more clearly,
*foo{CODE} is equivalent to \&foo
which is to say a _reference_. The principal advantage of the
*foo{THING} syntax is that it allows you to take a reference to an IO
handle:
$fh = *STDIN{IO}
whereas with the older syntax you could only take a glob reference:
$fh = \*STDIN;
>> So why doesn't *{$subname}{BAR} work?
See perlref for:
SCALAR, ARRAY, HASH, CODE, IO and GLOB
and perlmod for:
PACKAGE and NAME .
Regards,
--
Brendan O'Dea bod@compusol.com.au
Compusol Pty. Limited (NSW, Australia) +61 2 9809 0133
------------------------------
Date: Tue, 20 Jan 1998 09:30:24 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: differences
Message-Id: <34c8660e.3675690@news.tornado.be>
Jahnel Klaus <jahnel@xarch.tu-graz.ac.at> wrote:
>what are the big diferences between
>= , == , =~ and eq ?
= is assignment
== is numerical testing for equality. It exists because (as a C
inheritance), this is valid code:
if ($a=$b) ...
which will assgin the value of $b to $a, and then test if the value
assigned is logically true (zero length string or zero). That is not the
same as
if($a ==$b) ...
which only tests if $a and $b are numerically the same.
eq tests for string equality. Perl doesn't distinguish between strings
and numbers (though there are exceptions), so YOU have to decide whether
to treat it as a string or as a number.
"1.0" == "1" => true
"1.0" eq "1" => false
=~ is "the next is applied to this". It can be used for pattern
matching (/.../), substitution (s/.../.../) and charcter translation
(tr/.../.../). It is used when the pure functional programmin,g model
doesn't work, i.e. the argument to the "function" on the right is both
the input and the output of that function, I.E. it is (can be) CHANGED.
Example:
tr/a-z/A-Z/ will translate lower case Ascii to upper case,
$a =~ tr/a-z/A-Z/ is the same, applied to the string $a.
HTH,
Bart.
------------------------------
Date: Mon, 19 Jan 1998 15:26:47 -0500
From: "Jay Stewart" <jstewart@epresence.com>
Subject: emulating post
Message-Id: <6a0khq$8n01@ns1.epresence.com>
How do I emulate a post from a server side script?
------------------------------
Date: Tue, 20 Jan 1998 05:58:24 GMT
From: nospam43423123@hotmail.com (John)
Subject: Going Nuts with a simple script! Help!
Message-Id: <34c43a06.319260954@news.flash.net>
I want to use perl to read the contents of a web page, and then
display that data inside another web page.
I can create a two line script like this:
!/usr/local/bin/perl
print "Location: http://www.internetweather.com/data/209.30.0.9\n\n";
calling this script sample.pl, and running it in the address bar of my
browser it will return the contents of the web page. So that works
fine. (and yes I know, the location: function is not perl, but stay
with me here)
The information it returns is only a couple of lines of data, so we
are talking about a very small web page. What I want to do is go one
step further and display this data inside another web page.
If I run sample.pl as an SSI, it returns one line of text, and that
line is:
Location: http://www.internetweather.com/data/209.30.0.9\n\n
That is clearly wrong, as I want to display the guts of that page, not
the address to it.
I thought I might try to set the contents of the page to a variable,
but I am having no luck.
I tried this script but it totally does not work...
#!/usr/local/bin/perl
$file = "http://www.internetweather.com/data/209.30.0.9/";
open(INFO, $file);
@lines = <INFO>;
close(INFO);
print "<a href=\"http://www.internetweather.com/data/209.30.0.9/\">";
print "@lines</a><br>";
so back to the big question. I want to open a file called
http://something Then I want to take the guts of that file, and stick
it inside another web page. And I want to run it using an SSI call.
How can I do this with perl?
Thanks.
J
------------------------------
Date: Mon, 19 Jan 1998 15:23:42 +1100
From: John Crawshaw <john.crawshaw@london.pgs.com>
Subject: how do i get full path to $0
Message-Id: <34C2D54E.D021A698@london.pgs.com>
Hi All,
first time ive used this usenet site, so please bear with me. I need a
Perl script to
know where its calling itself from so I can run a C exe file. I know $0
gives me
the program name and also File::Basename will give me something similar
but
how do I get the full path to where its called from. The only way I can
do it at
present is by emulating how I do it in csh, which is as follows.....
$scrdir = `cd \`dirname $0\`;pwd`;
does anyone know of a Perl function that will give me this directly ?
cheers.
Mike Renshaw
michaelr@lndn.tensor.pgs.com
------------------------------
Date: 20 Jan 1998 07:48:48 GMT
From: dwaring@nwsr.com (David Waring)
Subject: Re: I need some help pleeze
Message-Id: <dwaring-1901982349130001@blv-lx103-ip24.nwnexus.net>
Just wondering, what is the == doing when comparing two strings? In other
words, why is ($sex == "M") true when $sex = "F"?
David
In article <69uanv$cr8$2@comdyn.comdyn.com.au>, mgjv@comdyn.com.au
(Martien Verbruggen) wrote:
> In article <34C15176.2983@datasync.com>,
> Jay Hodges <jhodges@datasync.com> writes:
>
> > if ($sex == "M") {$sex_a++;}
> > elsif ($sex == "F") {$sex_b++;}
>
.....
>
> Anyway, you'd want to use the eq operator, not the ==.
------------------------------
Date: Tue, 20 Jan 1998 00:50:50 -0800
From: Jim Bowlin <bowlin@sirius.com>
To: Greg Bacon <gbacon@adtran.com>
Subject: Re: living and free software (was: Re: source into binary code)
Message-Id: <34C4656A.9FBE0E3@sirius.com>
Amen.
------------------------------
Date: 19 Jan 1998 22:57:25 -0700
From: Vladimir Alexiev <vladimir@cs.ualberta.ca>
Subject: Re: Logical 'and' in regex?
Message-Id: <om7m7v3cxm.fsf@tees.cs.ualberta.ca>
Abigail <abigail@fnx.com> writes:
>perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
^
Can someone confirm that and explain why a version with no ? in the
indicated position takes more user, but less system time?
Try it with eg 19999 to get measurable results.
------------------------------
Date: 19 Jan 1998 23:32:02 -0700
From: Vladimir Alexiev <vladimir@cs.ualberta.ca>
To: root@atrium.cardima.com (System Administrator)
Subject: Re: Odd syntax problem
Message-Id: <om3eij3bby.fsf@tees.cs.ualberta.ca>
In article <6a11pi$2m7$1@usenet48.supernews.com> root@atrium.cardima.com (System Administrator) writes:
> $_ = join('/', splice(split(/\//, $_), -1, 1)) if (/=/);
> generates a syntax error right before the split() call:
> syntax error in file tasks at line 120, next 2 tokens "(split"
With 5.003, I get the following error:
Type of arg 1 to splice must be array (not split) at ..., near "1)"
splice modifies its arg (removes the last element), so the arg should
be an array variable (lvalue), not the result of split. Furthermore,
splice returns the removed elements, not the resulting array.
------------------------------
Date: Tue, 20 Jan 1998 01:14:25 -0500
From: Dan Boorstein <danboo@negia.net>
To: System Administrator <root@atrium.cardima.com>
Subject: Re: Odd syntax problem
Message-Id: <34C440C1.312D6329@negia.net>
System Administrator wrote:
>
> OK, folks, here's a weirdness. I'm trying to truncate a string
> immediately before the last forward-slash in the string, if the string
> contains an = character. I've come up with about four different ways to
> do it, but I've found a puzzling problem with one of them.
>
> The following two code blocks should, theoretically, be syntactically
> equivalent:
>
> a)
> if (/=/)
> {
> @buffer = split(/\//, $_);
> $_ = join('/', splice(@buffer, -1, 1));
> }
>
> b)
>
> $_ = join('/', splice(split(/\//, $_), -1, 1)) if (/=/);
>
> However, in practice, (a) works, and (b) generates a syntax error right
> before the split() call:
>
> $ perl -c tasks
> syntax error in file tasks at line 120, next 2 tokens "(split"
>
> Can anyone shed any light on this?
i think so. my version of perl (5.004_02, win32) says:
Type of arg 1 to splice must be array (not split) at - line 1, near
"1)"
many times arrays and lists can be treated as if interchangeable, but
in this case a true array is needed as the first argument to splice.
the function definition even displays the existence of this difference
by defining the args as 'splice ARRAY, OFFSET, LENGTH, LIST'. note the
distinct usage of both array and list.
cheers,
dan
------------------------------
Date: Tue, 20 Jan 1998 02:17:33 -0600
From: "Mark Rostron" <mwrostron@imation.com>
Subject: Re: Oraperl / DBD / Perl5 Performance : problems with APACHE::DBI implmentation on HPUX10.20/oracle7.3.3
Message-Id: <6a1ml2$et71@zinc.imation.com>
Hi,
We are using a CGI interface to oraperl as Tim describes below:
ora_login("","scott/secret_password@instance","")
performance varies but is generally a little on the slow side compared with
pre-compiled queries you would have gotten from your old faithful character
based forms, due mainly I think to overhead of new connection made to the
database for every query (CGI).
We have mostly used small cache values in the ora_open calls due to
requirement by design for each page access to be short (about 100-200
rows) - hence the queries need to be carefully thought through - to avoid
network hit and wait time on browser side.
We have done some work on building a prototype data dictionary model which
maps over a sql query result set resulting in auto-formatted tables in HTML,
using CGI.pm as the driver. We have also had some success in generating
clickable histograms as GIF image maps by filtering a query set, generating
a set of rectangular coords to feed into GD and also to generate the <MAP>
tags.
In order to get better performance I am now attempting to implement
Apache::DBI and make use of persistent connections. Apache standalone
compiles and links like a dream, but implementing DBI has had no luck yet.
to get it to statically link the DBD-Oracle, I use the following to tack-on
mod-perl:
perl Makefile.PL PERL_STATIC_EXTS=DBI PERL_STACKED_HANDLERS=1
this will successfully link httpd, but now when I run httpd, I get the
following message:
Null FIlename used at (eval 4) level 1
Still working through this - dont know if it's the link, the
perl_stacked_handlers or what?
anyone care to input ?
thnx
mr
Tim Bunce wrote in message ...
>In article <68r3rr$6hv$1@rdsunx.crd.ge.com>,
>Mark Kornfein <kornfein@.crd.ge.com> wrote:
>>
>> I've recently come on board a web project that uses the Oraperl emulation
>> interface for DBD. The performance is horrible, a query that returns in
4-5
>> seconds from sqlplus takes 50 seconds, This is just to do the "fetch"
>> without calling any cgi scripts.
>>
>> The documentation hints at a "cache value" that one can set but then
>> goes on to say that it not implemented yet. I should point out that the
>> query is trival and just brings back a lot (about 1000) small rows (1
field)
>> from Oracle.
>
>There's no way that anything to do with the DBI or DBD::Oracle itself
>would cause such a slow down.
>
>I'd hazzard a guess that this is the cause (from the README.help file):
>
>----------------------------------------------------------------------
>Oracle 7.1 and 7.2: Connection takes a long time and may coredump
>
>Oracle bug number: 227321 related to changing the environment before
>connecting to oracle.
>
>To work around this bug, do not set any environment variables in your
>oraperl script before you call ora_login, and when you do call
>ora_login, the first argument must be the empty string. This means
>that you have to be sure that your environment variables ORACLE_SID
>and ORACLE_HOME are set properly before you execute any oraperl
>script. It is probably also possible to pass the SID to ora_login as
>part of the username (for example, ora_login("", "SCOTT/TIGER@PROD",
>"")), although I have not tested this.
>This workaround is based on information from Kevin Stock.
>
>----------------------------------------------------------------------
>
>Tim.
>
------------------------------
Date: Tue, 20 Jan 1998 09:48:12 +0000
From: "Szikely Andras" <Andras.Szekely@eth.ericsson.se>
Subject: password, userid
Message-Id: <34C472DC.B33FD31B@eth.ericsson.se>
Hello,
I'm a perl expert wannabe (actually I don't even know how it works
yet). Now I have to solve the following problem: Some data on the
intranet must be protected with userid and password. I already have the
needed HTML-s. And I have a webserver i can play with. At first let's
say that there will be only 10 registered users, and they don't want to
change their password, and the password must protect any file located
under directory .../DOG/ . Can it be solved in a way I can understand?
If you help me, plase tell me some explanating words about how it works.
Thanx in advance.
Szekely Andras
------------------------------
Date: 20 Jan 1998 10:07:42 +0100
From: Remove xx to reply <xxTony.Curtis@vcpc.univie.ac.at>
To: Andras.Szekely@eth.ericsson.se
Subject: Re: password, userid
Message-Id: <7x67nfzf6p.fsf@vcpc.univie.ac.at>
Re: password, userid, Szikely
<Andras.Szekely@eth.ericsson.se> said:
Szikely> Hello, I'm a perl expert wannabe (actually I don't
Szikely> even know how it works yet). Now I have to solve
Szikely> the following problem: Some data on the intranet
Szikely> must be protected with userid and password.
This is a WWW server configuration question.
You should refer to the `authentication' documentation for
your server.
hth,
tony
------------------------------
Date: Tue, 20 Jan 1998 10:15:25 +0000
From: Junnu <junnu@velco.fi>
Subject: perl (Win95) and DOS commands???
Message-Id: <34C4793D.EFF057D7@velco.fi>
Please help me... this is very urgent problem...
Couple of weeks ago this works:
--- my perl script ---
$cwd = `CD`;
chop($cwd);
print "my current directry: $cwd\n";
--- and output should be ---
my current directory: c:\tmp
--- but it is ---
c:\tmp
my current directory:
It works some days ago, but not any more... now it prints the CD
information
directly out, and $cwd variable does not get it anymore? What's changed?
My w32 perl version is:
--- begin of version ---
This is perl, version 5.003_07
Copyright 1987-1996, Larry Wall
+ suidperl security patch
Win32 port Copyright (c) 1995-1996 Microsoft Corporation.
All rights reserved.
Developed by ActiveWare Internet Corp.,
http://www.ActiveWare.com
Perl for Win32 Build 303 - Built 14:27:31 Jan 29 1997
Perl may be copied only under the terms of either the Artistic License
or the
GNU General Public License, which may be found in the Perl 5.0 source
kit.
--- end of version ---
Could someone say, what is wrong? All the other things works, but
DOS-command
outputs are not going to STDOUT anymore?
Please mail me, if you know any kind of information.
--
Vaasa Electronics Ltd
juhani.puska@velco.fi
------------------------------
Date: Tue, 20 Jan 1998 00:52:58 -0800
From: Jim Bowlin <bowlin@sirius.com>
To: ni@aoe.vt.edu
Subject: Re: Perl + C in NT
Message-Id: <34C465EA.A86F44D2@sirius.com>
Try http://www.cs.utah.edu/~beazley/SWIG/swig.html
This will solve sumbutnotall of your problems.
- Jim Bowlin
nisy wrote:
>
> I can call Perl routines from C in UNIX after I read the manpages of
> Perlembed, Perlcall.... But I need to call Perl routines from C in NT,
> furthermore call C routines from Perl in NT, urgently. Please give me
> helps to tell me how to do it or show me where I can learn it !!!
> Thanks and thanks,
> Paul Ni
> ni@aoe.vt.edu
------------------------------
Date: Tue, 20 Jan 1998 10:42:48 +0100
From: Christian Mallwitz <mallwitz@intershop.de>
To: ni@aoe.vt.edu
Subject: Re: Perl + C in NT
Message-Id: <34C47198.DBA06655@intershop.de>
nisy wrote:
>
> I can call Perl routines from C in UNIX after I read the manpages of
> Perlembed, Perlcall.... But I need to call Perl routines from C in NT,
> furthermore call C routines from Perl in NT, urgently. Please give me
> helps to tell me how to do it or show me where I can learn it !!!
> Thanks and thanks,
> Paul Ni
> ni@aoe.vt.edu
Make sure you use the latest 5.004 for NT. So far most of the XS stuff
worked as expected on a UNIX machine for me.
Christian
--
Christian Mallwitz INTERSHOP Communications GmbH
pgp: 02 30 7E 1A 7A C1 5C 16 2B 4D 53 A9 1B 05 F7 DD
------------------------------
Date: Tue, 20 Jan 1998 00:02:40 -0800
From: Todd Mendenhall <menden@lsil.com>
Subject: perl.y --> Perl's Yacc Grammar
Message-Id: <34C45A20.3299@lsil.com>
I'm looking for an old perl.y file. Perl's
yacc grammar description. I can't seem to
find it anywhere on the web.
Todd
------------------------------
Date: Tue, 20 Jan 1998 10:44:26 +0100
From: Christian Mallwitz <mallwitz@intershop.de>
To: Todd Mendenhall <menden@lsil.com>
Subject: Re: perl.y --> Perl's Yacc Grammar
Message-Id: <34C471FA.BD524F9D@intershop.de>
Todd Mendenhall wrote:
>
> I'm looking for an old perl.y file. Perl's
> yacc grammar description. I can't seem to
> find it anywhere on the web.
>
> Todd
hi,
it's included in the source.
Christian
--
Christian Mallwitz INTERSHOP Communications GmbH
pgp: 02 30 7E 1A 7A C1 5C 16 2B 4D 53 A9 1B 05 F7 DD
------------------------------
Date: Tue, 20 Jan 1998 09:30:27 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: please, help me, help me, help me.....
Message-Id: <34c96b6d.5051342@news.tornado.be>
"Seong Y. Kim" <seong@cse.bridgeport.edu> wrote:
>I am trying to write a program that searchs all the files and dirs in
>specific directory.
> $locfile[3000];
Is this some sort of array dimensioning? You don't need that in Perl.
> @locfile = <*>;
>Problem is that whenever i run this code, it gave me message 'arguments
>too long'.
>This directory has more than 1500 dirs in one dir.
Hmm... Try using opendir/readdir/closedir instead.
opendir(DIR,".");
@locfile = readdir(DIR);
closedir(DIR);
HTH,
Bart.
------------------------------
Date: 20 Jan 1998 09:44:30 +0100
From: Marek.Rouchal@-nospam-hl.siemens.de (Marek Rouchal)
Subject: Re: Puzzling behavior of c.l.p.* readers
Message-Id: <6a1o5e$bvc@buffalo.HL.Siemens.DE>
In article <6a0ifh$20k$3@info.uah.edu>, gbacon@adtran.com (Greg Bacon) writes:
> [Posted and mailed]
> I couldn't disagree more. ObPerl: filtering spam is a perfect
> application for a language like Perl. I use a filter written in Perl.
> Besides, when people take the time to unmunge your address for a reply,
> it's in the To: header, free for the address harvesters to grab.
> (You'll notice that your email address is unmunged in the To: header of
> this very post. What has munging bought you?)
I believe one has to distinguish between posting to usenet and mailing
single persons. Of course a human will be able to unmunge every modified
address, but what I (and the previous posters) are aiming at is to outsmart
those automatic address collectors. Believe me, I am dead sick of those $$$ making
schemes (that alltogether are chain letter BTW) and porn ads. You'll say that I
get that b...sh.. 'cause I asked for it. I didn't, period. I just posted to c.l.p.m,
comp.lang.postscript and comp.os.linux.*.
> The effect is to inconvenience others who have a legitimate reason to
> contact you and to break what has always worked. Address munging is a
> poor solution to an already disgusting problem.
I agree, but you should accept that others maybe had bigger problems than
you had (just guessing...) with spamming. After fighting some of the worst
spammers with the help of their providers, my inbox is almost free of spam
mail at last. I'd like to keep it that way.
Just my $.02
Marek
PS. I know my munged address would be easy to "crack" even for some piece of
software. But so far it seems suffiecient.
--
Marek Rouchal Phone : +49 89/636-25849
SIEMENS AG, HL CAD SYS Fax : +49 89/636-23650
Balanstr. 73 mailto:Marek.Rouchal@-nospam-hl.siemens.de
81541 Muenchen PCmail:Marek.Rouchal.PC@-nospam-hl.siemens.de
------------------------------
Date: 20 Jan 1998 10:32:44 +0100
From: Casper Kvan Clausen <ckc@dmi.dk>
Subject: Re: Puzzling behavior of c.l.p.* readers
Message-Id: <wvpoh17xzgj.fsf@edb.ejoper.dmi.min.dk>
Marek.Rouchal@-nospam-hl.siemens.de (Marek Rouchal) writes:
> In article <6a0ifh$20k$3@info.uah.edu>, gbacon@adtran.com (Greg
> Bacon) writes: > [Posted and mailed]
^^^^^^^^^^^^^^^^^^^
> I believe one has to distinguish between posting to usenet and
> mailing single persons. Of course a human will be able to unmunge
> every modified address, but what I (and the previous posters) are
> aiming at is to outsmart those automatic address collectors.
What Greg was saying was that since he unscrambled it in order to both
mail AND post, the unmunged address is right there in the USENET
header for the taking. Thus, if someone mails you a cc of ther
follow-up to your post, you're in exactly the same state as you used
to be.
> Believe me, I am dead sick of those $$$ making schemes (that
> alltogether are chain letter BTW) and porn ads. You'll say that I
> get that b...sh.. 'cause I asked for it. I didn't, period. I just
> posted to c.l.p.m, comp.lang.postscript and comp.os.linux.*.
This is as good an occasion as any for a 'me too'.
Me too.
I, however, have chosen not to make life more difficult for the
legitimate users. Instead, I filter my mail with Catherine's very
impressive procmail filter:
http://www.best.com/~ariel/nospam/
I have no idea where she gets the time, but she updates it several
times a week. It's a truly amazing piece of work.
In a few more weeks, I'll feel confident enough with it to configure
it for automatic spam-complaints. That will hassle spammers, not
legitimate users. A much more efficient and reasonable solution than
address-munging.
Kvan, hating spam, but also being pretty tired of address-munging.
--
-------Casper Kvan Clausen------ | 'Ah, Warmark, everything that passes
----------<ckc@dmi.dk>---------- | unattempted is impossible.'
Lokal 544 |
I do not speak for DMI, just me. | - Lord Mhoram, Son of Variol.
------------------------------
Date: Tue, 20 Jan 1998 09:47:58 GMT
From: David Cross <Dave.Cross@gb.swissbank.com>
Subject: Re: Puzzling behavior of c.l.p.* readers
Message-Id: <y4dbtx7a33l.fsf@gb.swissbank.com>
nvp@shore.net (Nathan V. Patwardhan) writes:
>
> Randal Schwartz (merlyn@stonehenge.com) wrote:
>
> : There's always some looney in the crowd that says "hey, this shouldn't
> : be discussed here... please take to to rec.aquaria!"
>
> Well, at least nobody's mentioned Hitler or Mussolini yet. ;-)
You have now! You lose!!
--
"...but Man created all gods equal."
Dave.Cross@gb.swissbank.com
------------------------------
Date: 19 Jan 1998 23:19:26 -0700
From: Vladimir Alexiev <vladimir@cs.ualberta.ca>
To: gbacon@adtran.com (Greg Bacon)
Subject: Re: REGEXP: Does it need optimization?
Message-Id: <om67nf3bwy.fsf@tees.cs.ualberta.ca>
In article <6a0jna$20k$5@info.uah.edu> gbacon@adtran.com (Greg Bacon) writes:
> In general, cautious quantifiers produce slower matching regoxen.
Care to explain this? I just found out that in the following perversion:
perl -le 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
removing the cautious quantifier here ^ causes it
to take 6x more user time, but 2.5 times less system time.
A mystery.
------------------------------
Date: Tue, 20 Jan 1998 09:30:21 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: source into binary code
Message-Id: <34c7655a.3495921@news.tornado.be>
stanley@skyking.OCE.ORST.EDU (John Stanley) wrote:
>>Basicly things where I don't have the source get put towards the `toy'
>>end of the scale. I may use them for work, but before I do I make sure
>>I can do without them at short notice when they blow up.
>
>Tell that to corporate IS managers who base their IS services on MS
>products.
Corporate IS manager choose MS basically because they expect any other
company (not the software!) to blow up, in less than two years.
And if the sotware blows up by then, you need an upgrade anyway. ;-)
Bart.
------------------------------
Date: 20 Jan 1998 09:49:40 +0100
From: Marek.Rouchal@-nospam-hl.siemens.de (Marek Rouchal)
Subject: Re: Switch statement in Perl-5???
Message-Id: <6a1of4$c0d@buffalo.HL.Siemens.DE>
In article <01bd253d$2b789f00$315c5499@user.ncr.com>, "David Mohorn" <david.mohorn@sourcebbs.com> writes:
> What is perlsyn? I am using Perl for Win32. I don't have Perl for UNIX
> installed anyplace.
It's part of the Perl 5 documentation. You may want to try
perldoc perlsyn (or pod2text C:\perl\pod\perlsyn.pod | more)
^^^^^^^^^^^^ insert your local path here!
instead of man. Your question makes me wonder whether you have read a single
piece of perl online documentation before posting here...
Marek
> Andrew Johnson <ajohnson@gpu.srv.ualberta.ca> wrote in article
> <34C3A05B.24BFC368@gpu.srv.ualberta.ca>...
> > David Mohorn wrote:
> > >
> > > What? Perl-5 doesn't have a switch statement like C? How can I do a
> menu?
> >
> > search for 'switch' in the perlsyn manpage...there are many
> > examples of perlish equivelants to switch type contructs.
PS. If you want to reply by Email, please remove -nospam- from
the address. Thank you.
--
Marek Rouchal Phone : +49 89/636-25849
SIEMENS AG, HL CAD SYS Fax : +49 89/636-23650
Balanstr. 73 mailto:Marek.Rouchal@-nospam-hl.siemens.de
81541 Muenchen PCmail:Marek.Rouchal.PC@-nospam-hl.siemens.de
------------------------------
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 1679
**************************************
