[23202] in Perl-Users-Digest
Perl-Users Digest, Issue: 5423 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 25 14:06:09 2003
Date: Mon, 25 Aug 2003 11:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 25 Aug 2003 Volume: 10 Number: 5423
Today's topics:
Re: a backreference problem? <geoff.cox@blueyonder.co.uk>
backreferences? Weird problem (Desmond Rivet)
Re: buffer overflow <nospam-abuse@ilyaz.org>
Re: buffer overflow <tassilo.parseval@post.rwth-aachen.de>
changing the structure of a dataset (Vumani Dlamini)
insecure dependency open while running setgid (boris bass)
Re: is my HTML tag stripper up to par? <abigail@abigail.nl>
Passing Array Via CGI.pm (shade)
Re: Passing Array Via CGI.pm <usenet@expires12.2003.tinita.de>
perl simple cms <andrew@NOSPAM_andicrook.demon.co.uk>
Re: perl simple cms (Tad McClellan)
Re: perl simple cms <dorward@yahoo.com>
Re: perl simple cms <pkent77tea@yahoo.com.tea>
Re: Quickie UDP Socket Question (Anno Siegel)
regex (boris bass)
Re: regex (Tad McClellan)
Re: What ever happened to comp.lang.perl ? <islaw@adexec.com>
Re: What ever happened to comp.lang.perl ? <islaw@adexec.com>
Re: What ever happened to comp.lang.perl ? (Tad McClellan)
Re: What ever happened to comp.lang.perl ? (Randal L. Schwartz)
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 25 Aug 2003 14:13:18 +0100
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Re: a backreference problem?
Message-Id: <lk2kkvk5801i2muubngkgjp66fsn9p2eoh@4ax.com>
On Sun, 24 Aug 2003 18:55:34 GMT, tiltonj@erols.com (Jay Tilton)
wrote:
>I would instead write it like this (untested).
>
> #!perl
> use warnings;
> use strict;
>
> open (INN, "total")
> or die "Cannot open 'total' for read: $!";
> my @intro = <INN>;
> close INN;
>
> open(IN, "a2-left.htm")
> or die "Cannot open 'a2-left.htm' for read: $!";
> open(OUT, ">>out")
> or die "Cannot open 'out' for append: $!";
> while( <IN> ) {
> getintro($1) if /^<a href="(.*)\.doc/;
> }
> close (IN);
> close (OUT);
>
> sub getintro {
> my($file) = @_;
> for my $n ( 0 .. 899 ) {
> print OUT "<tr>@intro[$n-1, $n]</tr>\n"
> if $intro[$n] =~ /$file/i;
> }
> }
Jay,
have taken your code and changed to following which works fine...I
have used
for my $n ( 0 .. @intro-1 )
instead of
for my $n ( 0 .. 899 ) {
Thanks for your help!
Cheers
Geoff
#!perl
use warnings;
use strict;
print ("first file?\n");
my $firstfile = <STDIN>;
print ("second file?\n");
my $secondfile = <STDIN>;
open (INN, "total.htm")
or die "Cannot open 'INN' for read: $!";
my @intro = <INN>;
close INN;
open(IN, "$firstfile")
or die "Cannot open 'IN' for read: $!";
open(OUT, ">>$secondfile")
or die "Cannot open 'OUT' for append: $!";
print OUT ("<table DIR=LTR border>\n");
while( <IN> ) {
getheading($1) if /^<strong>(.*)<\/strong>/i;
getintro($1) if /^<option value="(.*)">/;
}
close (IN);
close (OUT);
sub getintro {
my($file) = @_;
for my $n (0 .. @intro-1 ) {
print OUT "@intro[$n-1, $n]</tr>\n"
if $intro[$n] =~ /$file/i;
}
}
sub getheading {
my($head) = @_;
print OUT ("<tr><td align=center
colspan='2'><h2>$head</h2></td></tr>\n");
}
open (OUT, ">>out.htm");
print OUT ("</table>\n");
close(OUT);
------------------------------
Date: 25 Aug 2003 08:50:36 -0700
From: des_riv@hotmail.com (Desmond Rivet)
Subject: backreferences? Weird problem
Message-Id: <f11c8449.0308250750.2929495b@posting.google.com>
Hi all,
Apologies in advance if this is a really silly problem (probably not
very weird at all), but I can't seem to figure this out.
Here's my (very short) perl script:
<script>
#!/usr/local/bin/perl
$text = "one,two,three,four,five,six,seven,eight,3,xxx";
$pattern = "(\\w+),(\\w+),(\\w+),(\\w+),(\\w+),(\\w+),(\\w+),(\\w+),(\\d+),(.{\\9})";
print "TEXT: $text\n";
print "PATTERN: $pattern\n";
if($text =~ /$pattern/)
{
print "matches\n";
print "group 1: $1\n";
print "group 2: $2\n";
print "group 3: $3\n";
print "group 4: $4\n";
print "group 5: $5\n";
print "group 6: $6\n";
print "group 7: $7\n";
print "group 8: $8\n";
print "group 9: $9\n";
print "group 10: $10\n";
}
else
{
print "not matches\n";
}
</script>
This script prints the following when I run it:
<output>
TEXT: one,two,three,four,five,six,seven,eight,3,xxx
PATTERN: (\w+),(\w+),(\w+),(\w+),(\w+),(\w+),(\w+),(\w+),(\d+),(.{\9})
not matches
</output>
However, when I replace the "\\9" with a hardcoded "3", it matches,
like I expect:
<output2>
TEXT: one,two,three,four,five,six,seven,eight,3,xxx
PATTERN: (\w+),(\w+),(\w+),(\w+),(\w+),(\w+),(\w+),(\w+),(\d+),(.{3})
matches
group 1: one
group 2: two
group 3: three
group 4: four
group 5: five
group 6: six
group 7: seven
group 8: eight
group 9: 3
group 10: xxx
</output2>
Basically, the 9th subpattern is supposed to give me the length of the
next subpattern right after it (10th subpattern). I'd like to match
just that many characters. Any ideas as to what I'm doing wrong?
Thanks in advance for any help,
Desmond
------------------------------
Date: Mon, 25 Aug 2003 14:47:45 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: buffer overflow
Message-Id: <bid7ih$1mqv$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Tassilo v. Parseval
<tassilo.parseval@post.rwth-aachen.de>], who wrote in article <bick1i$f6v$1@nets3.rz.RWTH-Aachen.DE>:
> >> You can't produce buffer-overflows in Perl (at least not in the way they
> >> can happen in C). I'd even say that you are immune against anything even
> >> remotely ressembling overruns.
> >
> > This is a very bold statement...
> >
> > A lot of effort went into avoiding overflows; but perl being written
> > in C, there is no guaranty against bugs.
>
> Nowhere is a guarantee against anything. For the OP however, this
> statement wont help. From a Perl-code-point-of-view there are no
> buffer-overruns.
While I can't understand what you mean in the last sentence, I accept
that there may be points of view which take into account only the
intent, not the actual implementation. Yes, the intent of Perl is
that there is no buffer overrun possible.
However, from practical point of view, given a Perl programs, its
functionality is determined by the code in the program, the code in
all .pm libraries it uses, the code in all .xs libraries it uses, the
code of Perl interpreter, the code of CRTL, the code of the OS itself
(and in some case the code of the BIOS). And given all the good
intent possible, if a site is attacked through a bug in one of these
components, the damage is done no matter what this component was.
And with all the good intent, only the code of the program and of the
.pm libraries is immune to buffer overflow. Leaving out the CRTL and
the OS (since bugs in these components will probably make other
services vulnerable too), there are still .xs libraries and the
interpreter itself which need the code review.
And given some ugly obvious bugs I noticed recently, I would not be
surprised if some buffer overflows may be possible again (but most
probably one needs to go through many hoola-hoops to exploit these
bugs for this purpose).
> That's the difference to C: allocate a buffer of 10 bytes and read 20
> into it. That is something that can be catched by some code-auditing.
> But you can't scan Perl code and detect something that produces an
> overrun in the interpreter because you wont know whether the underlying
> C-code has some bugs or not.
Who is "you" here? *I* feel quite qualified to translate bugs in C
code of the interpreter to Perl code which triggers them...
> So in C overruns are in the responsibility of the programmer, in Perl
> they are not (he can blame someone else for them, a broken libc, the
> p5porters etc).
No objection against this...
Yours,
Ilya
------------------------------
Date: 25 Aug 2003 15:56:50 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: buffer overflow
Message-Id: <bidbk2$a6f$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Ilya Zakharevich:
> [A complimentary Cc of this posting was sent to
> Tassilo v. Parseval
I hope you didn't get bounces...I just realized that after a
re-installation of my working-perl, I forgot to re-install Spamassassin
as well so procmail received lot of return-codes indicating an error not
finding it. Should be fixed now.
><tassilo.parseval@post.rwth-aachen.de>], who wrote in article <bick1i$f6v$1@nets3.rz.RWTH-Aachen.DE>:
>> Nowhere is a guarantee against anything. For the OP however, this
>> statement wont help. From a Perl-code-point-of-view there are no
>> buffer-overruns.
>
> While I can't understand what you mean in the last sentence, I accept
> that there may be points of view which take into account only the
> intent, not the actual implementation. Yes, the intent of Perl is
> that there is no buffer overrun possible.
With the last sentence I meant the same thing I wrote a little later:
while buffer-overruns can be triggered by a Perl script, it's not so
much the fault of the programmer. He can do something perfectly innocent
and be bitten by a bug in the interpreter.
In this sense you (and Abigail) are certainly right and my wording was
rather unfortunate: perl is not immune against buffer-overruns. But a
Perl script is once that there are no bugs in the interpreter (yes, I
know the likelihood of that;-).
>> That's the difference to C: allocate a buffer of 10 bytes and read 20
>> into it. That is something that can be catched by some code-auditing.
>> But you can't scan Perl code and detect something that produces an
>> overrun in the interpreter because you wont know whether the underlying
>> C-code has some bugs or not.
>
> Who is "you" here? *I* feel quite qualified to translate bugs in C
> code of the interpreter to Perl code which triggers them...
I know. With 'you' I meant those other chaps that were not involved in
perl's usemymalloc. ;-)
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 25 Aug 2003 10:19:31 -0700
From: dvumani@hotmail.com (Vumani Dlamini)
Subject: changing the structure of a dataset
Message-Id: <4b35f3c9.0308250919.b9937eb@posting.google.com>
I am trying to convert a dataset from one format to several
rectangular datasets. A consultant helped design the data entry
program for our survey using Delphi/Pascal and for each household the
information is stored in a file called "EA-HM-HH.TXT" where EA is the
enumeration area number, HM is the homestead number and HH is the
household number. Within this file the data is stored as follows,
###### file="5677-001-001.TXT" ######
EAnumber=5677
HMnumber=001
HHnumber=001
# Demographics section
Dserial=01 #first person in household
Dage=56
Dsex=1
Dserial=02 #second person in household
Dage=44
Dsex=2
Dserial=03 #second person in household
Dage=7
Dsex=2
# Agricultural inputs section
Amaize=200
Apumpkins=50
###### end of file ########
Note that in the demograpics section there may only be less than 3 or
more
people in some households. I would like to create a file for the
demographics section which is as follows
EAnumber|HMnumber|HHnumber|Dserial|Dage|Dsex
5677 001 001 056 1
5677 001 001 044 2
5677 001 001 007 2
and for the agricultural inputs I would like to have,
EAnumber|HMnumber|HHnumber|Acropcode|Ainputs
5677 001 001 112 0200
5677 001 001 113 0050
There are several similar files where the EA number, HM number or HH
number changes, thus I would also like to know whether it is possible
to create a script where for all household there is only one dataset
for demographics, and one for agricultural inputs.
Reply to "dvumani@hotmail.com"
Vumani Dlamini
Swaziland
------------------------------
Date: 25 Aug 2003 09:37:09 -0700
From: bbass@hotmail.com (boris bass)
Subject: insecure dependency open while running setgid
Message-Id: <65fcb898.0308250837.6a01309@posting.google.com>
I am having the same error message
insecure dependency open while running setgid
as another user on tripod ( i am quoting the old post at the end of
this message)
i believe the problem is as Bart points out
"that the name of the file-to-open is simply copied from
one of the CGI parameters"
but that's how i get the file name, from cgi input.
so from Bart's and others posts i understand that the filename is
tainted.
my question is : what could i do to untaint it, as i have very
limited priviliges on a shared server- tripod
i was not able to fully understand Bart's last paragraph when he says
"choose one of a few possibilities for file names in
a hash"
thanks for help to Bart and everybody else - further suggestions
appreciated
Boris
BEGIN QUOTE old post ------------------------------
Message 15 in thread
From: Bart Lateur (bart.lateur@pandora.be)
Subject: Re: Script Help
View this article only
Newsgroups: comp.lang.perl.misc
Date: 2002-04-05 02:08:40 PST
Brian Blaine wrote:
>I am using a free script I found on the internet for a site I am
making. I
>get an error in the script when I try to use it. The error can be
seen on
>the address :
>http://csg20.tripod.com/cgi-bin/faqadmin.cgi?id=1017989634&question=test&ans
>wer=test&submit=Add+Entry&password=update
>Does anyone know if the error is in the script I am trying to use or
if is
>with the Tripod server. Any suggestions or ideas will be greatly
>appreciated!
There's something wrong with the redirection of the errors, on that
server. However, that doesn't seem to be your main problem.
Apparently, the Tripod servers are running CGI scripts setgid. In that
case, Perl will do some heavy taint checking, i.e. it rejects anything
that looks remotely unsafe. In this case, it looks like this is it:
Insecure dependency in open while running setgid
at faqadmin.cgi line 199
My guess is that you're not using an absolute file path (please do,
and
that's a file path, not an URL) for an "open" statement on line 199.
Or,
heaven forbid, that the name of the file-to-open is simply copied from
one of the CGI parameters.
For the latter case, choose one of a few possibilities for file names
in
a hash, and provide a default error trapping mechanism. You never know
what hackers might try, and your script shouldn't be doing anything
insecure in that case.
--
Bart.
END QUOTE------------------------------------
------------------------------
Date: 25 Aug 2003 13:38:29 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: is my HTML tag stripper up to par?
Message-Id: <slrnbkk4al.11p.abigail@alexandra.abigail.nl>
Charlton Wilbur (cwilbur@mithril.chromatico.net) wrote on MMMDCXLVI
September MCMXCIII in <URL:news:87znhx52xx.fsf@mithril.chromatico.net>:
||
|| * Regular expressions can't handle arbitrary levels of nesting.
Sure they do.
$ cat nest
#!/usr/bin/perl
use strict;
use warnings;
my $count = @ARGV ? shift : 100;
local $_ = ("(" x $count) . (")" x $count);
my $re;
$re = qr /([(](??{$re})[)])?/;
print "Matched!\n" if /^$re$/;
__END__
$ ./next 1000
Matched!
Abigail
--
Anyone who slaps a "this page is best viewed with Browser X" label
on a Web page appears to be yearning for the bad old days, before the
Web, when you had very little chance of reading a document written on
another computer, another word processor, or another network.
[Tim Berners-Lee in Technology Review, July 1996]
------------------------------
Date: 25 Aug 2003 09:49:47 -0700
From: shade@lore.cc (shade)
Subject: Passing Array Via CGI.pm
Message-Id: <a8aa0f45.0308250849.4f262236@posting.google.com>
Hello all,
I'm a Perl newbie here and have a quick question regarding CGI.pm.
I have a CGI script that passes an array to another CGI script as
follows:
# sender.cgi
... (snipped code)
my @fruit = ('apple','orange','pear');
print $q->startform( -action=>'receiver.cgi' ),
$q->submit( -name=>'Export Data' ),
$q->hidden( -name=>'xlfruit' value='@fruit' ),
$q->endform;
... (snipped code)
# receiver.cgi
... (snipped code)
my @fruit = param( 'xlfruit' );
print @fruit\n;
print @fruit[0]\n;
... (snipped code)
The values of the fruit array pass through okay to the new CGI script
but come as a single list. I.e. the out of print @fruit[0] is the
whole line (apple orange pear) rather than just apple. It doesn't
look like the variable is still an array after the pass. Is this
normal or am I missing something?
Thanks for any help.
Tom
------------------------------
Date: 25 Aug 2003 17:28:57 GMT
From: Tina Mueller <usenet@expires12.2003.tinita.de>
Subject: Re: Passing Array Via CGI.pm
Message-Id: <bidh0p$83984$1@ID-24002.news.uni-berlin.de>
shade wrote:
> # sender.cgi
> ... (snipped code)
> my @fruit = ('apple','orange','pear');
> print $q->startform( -action=>'receiver.cgi' ),
> $q->submit( -name=>'Export Data' ),
> $q->hidden( -name=>'xlfruit' value='@fruit' ),
the value should be '@fruit'? i'm sure you don't want that.
i guess you want several hidden fields with the name 'xlfruit'.
(you also forgot the comma and wrote = instead of => )
try:
map { $q->hidden( -name => 'xlfruit', value => $_ )} @fruit,
then this:
> my @fruit = param( 'xlfruit' );
will work.
hth, tina
--
http://www.tinita.de/ \ enter__| |__the___ _ _ ___
http://Movies.tinita.de/ \ / _` / _ \/ _ \ '_(_-< of
http://www.perlquotes.de/ \ \ _,_\ __/\ __/_| /__/ perception
- the above mail address expires end of december 2003 -
------------------------------
Date: Mon, 25 Aug 2003 15:27:06 +0100
From: "Andrew Crook" <andrew@NOSPAM_andicrook.demon.co.uk>
Subject: perl simple cms
Message-Id: <bid6ac$3jd$1$8302bc10@news.demon.co.uk>
I wish to make a perl cgi script that uses a html template and fills in
data for the relevant markers and returns the page. Can any one recommend
methods example code etc ?
also wish to know about what to do with multi users using a cgi accessing a
CSV database or a single mysql account for example! ie what promblems maybe
caused by multipule writes on a file at the same time and how to overcome
this.
many thanks
Andrew
------------------------------
Date: Mon, 25 Aug 2003 10:02:29 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: perl simple cms
Message-Id: <slrnbkk985.g8r.tadmc@magna.augustmail.com>
Andrew Crook <andrew@NOSPAM_andicrook.demon.co.uk> wrote:
> I wish to make a perl cgi script that uses a html template
http://search.cpan.org/search?query=Template&mode=all
> what promblems maybe
> caused by multipule writes on a file at the same time
Data corruption.
> and how to overcome
> this.
perldoc -f flock
perldoc -q "\block"
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 25 Aug 2003 16:10:08 +0100
From: David Dorward <dorward@yahoo.com>
Subject: Re: perl simple cms
Message-Id: <bid8qi$5ni$1$8302bc10@news.demon.co.uk>
Andrew Crook wrote:
> I wish to make a perl cgi script that uses a html template and fills in
> data for the relevant markers and returns the page. Can any one recommend
> methods example code etc ?
See HTML::Template from CPAN
--
David Dorward http://dorward.me.uk/
------------------------------
Date: Mon, 25 Aug 2003 17:26:49 +0100
From: pkent <pkent77tea@yahoo.com.tea>
Subject: Re: perl simple cms
Message-Id: <pkent77tea-61C4D9.17264925082003@usenet.force9.net>
In article <bid6ac$3jd$1$8302bc10@news.demon.co.uk>,
"Andrew Crook" <andrew@NOSPAM_andicrook.demon.co.uk> wrote:
> I wish to make a perl cgi script that uses a html template and fills in
> data for the relevant markers and returns the page. Can any one recommend
> methods example code etc ?
Take a look at HTML::Template, or Mason:
http://search.cpan.org/search?query=HTML%3A%3ATemplate&mode=all
http://search.cpan.org/search?query=Mason&mode=all
> also wish to know about what to do with multi users using a cgi accessing a
> CSV database or a single mysql account for example! ie what promblems maybe
> caused by multipule writes on a file at the same time and how to overcome
> this.
At work we found that MySQL is extremely fast for a read-heavy database,
but at very high write usage its write performance drops off - mainly
because the version we used implemented table-level locks, not row-level
locking. May have changed now. Note that performance depends on what
hardware you have, your infrastructure, and how much resilience you
need... if you can set up a test system and see how it performs you
could get a feel for the response times, etc.
There is a module to tie to a CSV (
http://search.cpan.org/search?query=Tie%3A%3ACSV&mode=module ) but you'd
have to investigate how it handles concurrent uses of the underlying
file. Also, find out if your application will be doing mainly reading,
mainly writing, or a good mix - that affects performance.
As for using CSVs for read/write usage, I have heard of cases where
mod_perl processes block back waiting for their lock on the CSV, and
once all the Apache children are blocking the server stops responding.
Fun ensues.
If you have more details about what you want to do, how much it'd be
used, etc, post them here and we might well be able to help from the
perl point of view.
P
--
pkent 77 at yahoo dot, er... what's the last bit, oh yes, com
Remove the tea to reply
------------------------------
Date: 25 Aug 2003 13:20:08 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Quickie UDP Socket Question
Message-Id: <bid2e8$498$3@mamenchi.zrz.TU-Berlin.DE>
mooseshoes <mooseshoes@gmx.net> wrote in comp.lang.perl.misc:
> All:
>
> I need to know if the 'while' statement below will be true if the client
> sends a message with an empty packet (eg. $client_message is empty). In
> other words, is it sufficient for the client to contact the port or must
> the client have something to say?
>
> <code snip>
> use Socket;
>
> <code snip>
> socket(SockHandle, PF_INET, SOCK_DGRAM, getprotobyname("udp"))
> || die "socket: $!";
>
> <code snip>
> while ($client_portaddr = recv(SockHandle, $client_message, $MAXLEN, 0)) {
> # do something
> }
Have you read the documentation (perldoc -f recv) for the function you
are asking about? It clearly states
... Returns the address of the
sender if SOCKET's protocol supports this; returns
an empty string otherwise. If there's an error,
returns the undefined value.
So you can't even rely on recv() returning true *if* the socket returns
data. You'd have to test defined-ness instead.
Otherwise, it appears that the program would hang until $MAXLEN characters
have been received.
Anno
------------------------------
Date: 25 Aug 2003 08:25:05 -0700
From: bbass@hotmail.com (boris bass)
Subject: regex
Message-Id: <65fcb898.0308250725.18cf440@posting.google.com>
the following is the text string i am trying to match
bgColor=#ffffff
and i constructed the following regular expr
while ( $content =~ /=\s*[^"]#\w{6}[^"]/ )
and it doesnt seem to be working
I am actually trying to match from the equal sign and rightward, i.e.
match equal sign followed by zero or more whitespaces followed by the
pound sign followed by exactly six alphanumerics and NOT QUOTED -
NOT QUOTED is the whole point of a match
any suggestions appriciated
------------------------------
Date: Mon, 25 Aug 2003 10:42:12 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: regex
Message-Id: <slrnbkkbik.gdi.tadmc@magna.augustmail.com>
boris bass <bbass@hotmail.com> wrote:
> the following is the text string i am trying to match
>
> bgColor=#ffffff
> I am actually trying to match from the equal sign and rightward, i.e.
> match equal sign followed by zero or more whitespaces followed by the
> pound sign followed by exactly six alphanumerics and NOT QUOTED -
>
> NOT QUOTED is the whole point of a match
/=\s*#\w{6}/
or
/=\s*#\w{6}(?!")/
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 25 Aug 2003 08:53:42 -0700
From: "Islaw" <islaw@adexec.com>
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <bidbae$7trgq$1@ID-196529.news.uni-berlin.de>
"Helgi Briem" <f_baggins80@hotmail.com> wrote in message
news:3f49da9c.247644053@News.CIS.DFN.DE...
> On Fri, 22 Aug 2003 17:49:34 -0400, "Matt Garrish"
> <matthew.garrish@sympatico.ca> wrote:
>
> >My question is: has anyone considered a c.l.learn.perl group? (Or
anything
> >similar?) I'm aware that learn.perl.org has mailing lists, but I suspect
> >that much of the unwanted posting in this group would be more quickly
> >diverted were posters presented the option of posting to .learn.perl or
> >.perl.misc when looking for a group.
>
> Newcomers wanting to learn are more than welcome on
> comp.lang.perl,misc and are uniformly warmly treated.
>
> What is unwelcomes is questions about CGI, Unix, sendmail,
> shell scripting, awk, Javascript, web server configuration,
> yada yada yada.
>
> Oh, and top-posting.
Some things never change...
------------------------------
Date: Mon, 25 Aug 2003 09:08:23 -0700
From: "Islaw" <islaw@adexec.com>
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <bidc5v$7kned$1@ID-196529.news.uni-berlin.de>
>> comp.lang.perl.cgi - all things cgi in perl
It never ceases to amaze me how quick some people are to dismiss this group.
Such a group actually exeists as de.comp.lang.perl.cgi and other foreign
language hierarchies. Just what the hell is so dismally wrong with wanting
such a group?
> comp.lang.perl.aix
> comp.lang.perl.amiga
> comp.lang.perl.apollo
> comp.lang.perl.beos
> comp.lang.perl.bs2000
> comp.lang.perl.ce
> comp.lang.perl.cygwin
> comp.lang.perl.dgux
> comp.lang.perl.dos
> comp.lang.perl.epoc
> comp.lang.perl.freebsd
> comp.lang.perl.hpux
> comp.lang.perl.hurd
> comp.lang.perl.irix
> comp.lang.perl.machten
> comp.lang.perl.macos
> comp.lang.perl.micro
> comp.lang.perl.mint
> comp.lang.perl.mpeix
> comp.lang.perl.netware
> comp.lang.perl.os2
> comp.lang.perl.os390
> comp.lang.perl.os400
> comp.lang.perl.plan9
> comp.lang.perl.qnx
> comp.lang.perl.solaris
> comp.lang.perl.tru64
> comp.lang.perl.uts
> comp.lang.perl.vmesa
> comp.lang.perl.vms
> comp.lang.perl.vos
> comp.lang.perl.win32
Actually there are many hierarchies that are like this. Hell, look at
comp.unix.*, comp.os.*, comp.lang.* for starters. There are so many large
spamming hierarchies, what is do damn wrong with expanding the Perl
hierarchy?
What you just listed above might actually make the most sense, though could
benefit from a little redundancy reduction. Too bad you only meant it as a
smart ass comment.
A proper suggestive hierarchy could go like this possibly:
comp.lang.perl (or comp.lang.perl.misc - already exists)
comp.lang.perl.cgi
comp.lang.perl.unix (or comp.lang.perl.linux or comp.lang.perl.unix_linux)
comp.lang.perl.win32
comp.lang.perl.os2 (not sure if theres a very big base for this)
comp.lang.perl.mac
comp.lang.perl.networking
comp.lang.perl.modules (already exists)
It's no wonder nothign like this hasn't been done already. It's my
understanding that to start a new big-8 group you need so decent backing.
This will never happen while those who proclaim themselves to be higher up
continuely shoot down these idea, most of the time for no real good reason.
--
Islaw
------------------------------
Date: Mon, 25 Aug 2003 11:53:25 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <slrnbkkfo5.gh8.tadmc@magna.augustmail.com>
Islaw <islaw@adexec.com> wrote:
> Some things never change...
It would be nice if they would jsut change sometimes.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 25 Aug 2003 17:03:20 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <c892fc3a3504dd5ae811c2618e1cd63c@news.teranews.com>
>>>>> "Islaw" == Islaw <islaw@adexec.com> writes:
>>> comp.lang.perl.cgi - all things cgi in perl
Islaw> It never ceases to amaze me how quick some people are to
Islaw> dismiss this group. Such a group actually exeists as
Islaw> de.comp.lang.perl.cgi and other foreign language
Islaw> hierarchies. Just what the hell is so dismally wrong with
Islaw> wanting such a group?
Because most CGI problems involving Perl are much more about CGI than
they are about Perl, and the cross-breeding in CIWAC is already the
right place to post. CIWAC works very effectively for this. Don't
add a new Perl group to fix something that isn't yet broken.
print "Just another Perl hacker,"
CIWAC = comp.infosystems.www.authoring.cgi - the "CGI group"
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 5423
***************************************
