[18207] in Perl-Users-Digest
Perl-Users Digest, Issue: 375 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 28 11:05:36 2001
Date: Wed, 28 Feb 2001 08:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <983376312-v10-i375@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 28 Feb 2001 Volume: 10 Number: 375
Today's topics:
Re: Date formatting (Peter J. Acklam)
Re: Glob & long directory names <krahnj@acm.org>
Re: How are SOL_SOCKET and SO_REUSEADDR defined in vari (Kenny McCormack)
Re: How are SOL_SOCKET and SO_REUSEADDR defined in vari <flavell@mail.cern.ch>
Re: How the CLPM turns (Tad McClellan)
Re: How they learn ( previously: Please Help with 10 l <shanem@ll.mit.edu>
Re: How they learn ( previously: Please Help with 10 l <mshort@usol.com>
Re: libnet and Net::SMTP config.pm is wrong <alan1.pettigrew1@fox1-europe1.com>
May Be [ Off Topic ] <CHRISVAL@bigpond.com.au>
Re: May Be [ Off Topic ] (Tad McClellan)
Re: Need source code for perl5.003 (Anno Siegel)
NIC Fail-Over Script <simon.parkes@easynet.co.uk.nospam>
Pattern matching <philip.shean@uwe.ac.uk>
Re: Pattern matching ()
Re: Pattern matching (Tad McClellan)
Re: Pattern matching (Tad McClellan)
Re: Perl string (Tad McClellan)
Re: Perl string <peter.s@tjgroup.dk>
problem with setuid script <ray.rizzuto@ulticom.com>
Reg. Exp. Challenge <ktappe@assocgraphics.com>
Re: Reg. Exp. Challenge <jonni@ifm.liu.se>
Re: Reg. Exp. Challenge <gary@orthanc.fsnet.co.uk>
Re: Reg. Exp. Challenge <gary@orthanc.fsnet.co.uk>
Re: Reg. Exp. Challenge (Anno Siegel)
Re: Reg. Exp. Challenge (Tad McClellan)
Re: regex help please (Abigail)
Re: regex help please <krahnj@acm.org>
Re: regex help please <jonni@ifm.liu.se>
Re: regex help please <jonni@ifm.liu.se>
Re: sending to sockets (Anno Siegel)
Re: Sorting by date (Anno Siegel)
split with delimiter in one field <tdombach@topmail.de> <donotreply@interbulletin.bogus>
Re: split with delimiter in one field ()
Re: split with delimiter in one field (Anno Siegel)
Re: split with delimiter in one field (Tad McClellan)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 28 Feb 2001 12:55:56 +0100
From: jacklam@math.uio.no (Peter J. Acklam)
Subject: Re: Date formatting
Message-Id: <cxc3dcz81ir.fsf@janus.uio.no>
nmihai_2000@yahoo.com (Mihai N.) writes:
> The module is more than usefull!
>
> With your approach, what is happening if it is used for a web
> site? And if the web site must support languages other than
> English? Are you going to create a new function for each
> language? The main trick is to load the date format string from
> a "language file".
Did you read the original posting? The question was
Is there any module that will convert data format mm/dd/yyyy
to DD-MMM-YY eg. 1/13/2001 == 13-JAN-01? I've looked in CPAN
and perldoc.
Nowhere is support for other languages mentioned. If that had
been mentioned, my answer would have been different, because the
question had been different.
> How does a Norwegian date looks like?
It used to be DD.MM.YYYY, but the ISO 8601 format YYYY-MM-DD is
becoming more frequent.
Peter
--
sub int2roman{@x=split//,sprintf'%04d',shift;@r=('','I','V','X','L','C','D'
,'M');@p=([],[1],[1,1],[1,1,1],[1,2],[2],[2,1],[2,1,1],[2,1,1,1],[1,3],[3])
;join'',@r[map($_+6,@{$p[$x[0]]}),map($_+4,@{$p[$x[1]]}),map($_+2,@{$p[$x[2
]]}),map($_+0,@{$p[$x[3]]})];}print "@{[map{int2roman($_)}@ARGV]}\n";#JAPH!
------------------------------
Date: Wed, 28 Feb 2001 11:26:31 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Glob & long directory names
Message-Id: <3A9CE1B5.365215BE@acm.org>
Mac wrote:
>
> I'm kinda new to Perl & am having a problem getting glob to list long
> directory names
> perl version :- ActivePerl 5.6.0.623 for Win32 running on Win2K
>
> I have a
> 'use file::glob'
> declaration and when using
> @files = glob("*.*")
> I get an array of all the file names - no name length limit - but I only get
> folder names that are 8.3 or less in length.
> If I glob("/123456789/*.*") I get the contents of *that* folder - excepting
> any folders with long names ...
>
> Is there another module I could use ?
> Any other way to get a complete list ?
>
> Any help appreciated
perldoc -f opendir
perldoc -f readdir
perldoc -f closedir
John
------------------------------
Date: 28 Feb 2001 07:27:17 -0600
From: gazelle@yin.interaccess.com (Kenny McCormack)
Subject: Re: How are SOL_SOCKET and SO_REUSEADDR defined in various flavors of Unix?
Message-Id: <97iubl$iv2$1@yin.interaccess.com>
In article <87bsrnmqih.fsf@erlenstar.demon.co.uk>,
Andrew Gierth <andrew@erlenstar.demon.co.uk> wrote:
>>>>>> "Kenny" == Kenny McCormack <gazelle@yin.interaccess.com> writes:
>
> Kenny> So, I think the score so far is:
>
> Kenny> Solaris Linux, HP/UX, Win9X (probably others)
> Kenny> ======= =====================================
> Kenny> SOCK_STREAM value: 2 1
>
>I suspect that SOCK_STREAM == 2 is a SVR4ism, because the BSD stack
>has always had it as 1, but the Solaris headers are trying to make it
>the same as NC_TPI_COTS. I wouldn't be surprised if other SVR4ish
>systems were like Solaris in this respect.
Thanks for the confirmation on this.
>But in all honesty, if you try and code stuff like this in your
>program, you deserve all the resulting maintenance headaches.
But you understand, of course, that I HAVE NO CHOICE in the matter.
In my application, I cannot assume anything existing on the target machines
other than the perl executable. People can flame all they want that this is
a "broken" installation of Perl, but I don't care. It cuts no ice with me.
------------------------------
Date: Wed, 28 Feb 2001 15:56:50 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: How are SOL_SOCKET and SO_REUSEADDR defined in various flavors of Unix?
Message-Id: <Pine.LNX.4.30.0102281547020.18159-100000@lxplus003.cern.ch>
On 28 Feb 2001, Kenny McCormack wrote:
> But you understand, of course, that I HAVE NO CHOICE in the matter.
So you say; but this is more a question of where you stick the
goalposts.
> In my application, I cannot assume anything existing on the target machines
> other than the perl executable.
How can you possibly assume that? If I was in this position, I would
say that such a thing is only guaranteed in the presence of a
properly-installed Perl package. And that package includes... yeah,
well you've already read the script.
If some unknown malefactor has taken that executable out of its
installed context, and stuffed it somewhere else, then it's not
guaranteed to work.
> People can flame all they want that this is
> a "broken" installation of Perl, but I don't care. It cuts no ice with me.
Suit yourself, but if you define your own problem, then you have to be
willing to take the consequences, and one of those consequences is
that some people will advise you that you have set (or were set) a
goal that is unrealistic, impractical, inappropriate, etc.
If I tried to run a C compiler without any header files, then I'd be
in a very analogous quandry. I wouldn't be blaming that on the C
language usenet group, though.
------------------------------
Date: Wed, 28 Feb 2001 15:28:13 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: How the CLPM turns
Message-Id: <slrn99pqaa.j91.tadmc@tadmc26.august.net>
Philip 'Yes, that's my address' Newton <nospam.newton@gmx.li> wrote:
>On Tue, 27 Feb 2001 09:02:45 -0500, tadmc@augustmail.com (Tad McClellan) wrote:
>
>> Bernard El-Hagin <bernard.el-hagin@lido-tech.net> wrote:
>> >
>> >I'm new to PERL. I want to sort an array, but don't know how. I've spent
>> >hours searching the Web, the docs, the FAQs, the books, and under my
>> ^^^^^^^^^ ^^^^^^^^
>> >bed, but couldn't find the answer.
>>
>>
>> A rather non-typical newbie there.
>
>I think I've seen a fair number who've claimed to have done so. Especially the
>web -- maybe not so many who claim to have searched the docs.
Yes, that is why I underlined what I did.
Want to not check any books, then post to Usenet? Fine.
Want to not check any web sites, then post to Usenet? Fine.
Want to not check Perl's standard docs, then post to Usenet. Not fine.
The only place you are *required* to check are the standard docs
(which include the Perl FAQs).
Everything else is nice, but not required.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 28 Feb 2001 09:47:45 -0500
From: Shane McDaniel <shanem@ll.mit.edu>
Subject: Re: How they learn ( previously: Please Help with 10 line programm -- beginner questions Thanks Guys)
Message-Id: <3A9D0F91.838EA211@ll.mit.edu>
What I was trying to say was that if you had been reading a good book
you shouldn't have made the mistake of not knowing about &&. In my
personal opinion perl isn't a really good stepping stone to C/C++. If
anything C/C++ is a good stepping stone to Perl. You'll find that perl
is a very very loose language where C/C++ is much more strict. Also
Perl OOP and C++ OOP are a bit different, atleast in making classes and
such. As for learning perl I'm not sure what to recommend. I came in
knowing C/C++ so I just read the first part of Programming Perl,
basically the sytnax stuff, and started going at it. Many ppl recommend
Oreilly's Learning Perl. As for C++ I would recommend Deitel and
Deitel's C++:How to Program. I learned C++ on a previous edition of the
book.
Learning Perl
http://www.amazon.com/exec/obidos/ASIN/1565922840/qid=983371544/sr=1-1/ref=sc_b_1/107-0158707-9195758
C++: How to Program
http://www.amazon.com/exec/obidos/ASIN/0130895717/o/qid=983371510/sr=8-1/ref=aps_sr_b_1_1/107-0158707-9195758
mshort wrote:
>
> Shane,
>
> The book is Perl 5 interactive edition by Jon Orwant. I got it from a
> Borders Outlet for about $5. How is && a mistake? It worked, didn't it?
>
> It seems some people/programmers here are a little bent when it comes to
> proper coding. It's like "Hello" and "Hiya" ones proper, but they both get
> the job done. I don't plan on becoming a professional programmer. I am
> merely learning Perl as something more of a "stepping stone" to C/C++.
> Maybe Perl is an improper stepping stone, but it's the only programming book
> I own besides C++ in 21 days.
>
> Again, how was && a mistake? Newbies learn from being taught not being
> told. The book hasn't covered && yet, in fact, it hadn't covered AND either
> in the use of while loops and does make some assumptions that you can
> understand it faster than reading it, which is one of the down falls of the
> book, in my opinion. More than likely, I will finish this book and then get
> a "professional" Perl book and find the differences.
>
> Any suggestions on Perl books by the way is greatly appreciated.
>
> Sincerely,
>
> Matt
>
> Shane McDaniel <shanem@ll.mit.edu> wrote in message
> news:3A9AD404.AEFA51BE@ll.mit.edu...
> > I'm just curious but how did you go about learning perl? ie what
> > resources and books did you use. I'm just curious how the "newbies" go
> > about learning and whether it is flawed or not and how it might impact
> > performance. Nothing personal but the && mistake was fairly obvious if
> > you had read something about while loops.
> >
> > mshort wrote:
> > >
> > > Perl People,
> > >
> > > Thanks I got it to work.
> > >
> > > The AND and && both work in the program. The comma doesn't work, it
> does
> > > exactly what Randall said, it drops the left argument.
> > >
> > > John,
> > >
> > > What do you mean "using strict"?
> > >
> > > Thanks again guys, next lesson is foreach loops and arrays.
> > >
> > > Sincerely,
> > >
> > > Matt Short
> > > John Joseph Trammell <trammell@bayazid.hypersloth.net> wrote in message
> > > news:slrn99l4rf.r0q.trammell@bayazid.hypersloth.net...
> > > > On Mon, 26 Feb 2001 13:04:00 -0800, mshort <mshort@usol.com> wrote:
> > > > > while ($ans ne 'yes', $ans ne 'no'){
> > > >
> > > > What test are you trying to perform here? Maybe you should
> > > > do some experimenting with this.
> > > >
> > > > And you're "using strict", right?
> > > >
------------------------------
Date: Wed, 28 Feb 2001 09:43:32 -0800
From: "mshort" <mshort@usol.com>
Subject: Re: How they learn ( previously: Please Help with 10 line programm -- beginner questions Thanks Guys)
Message-Id: <t9q3c7crghjo7c@corp.supernews.com>
Shane,
The book is Perl 5 interactive edition by Jon Orwant. I got it from a
Borders Outlet for about $5. How is && a mistake? It worked, didn't it?
It seems some people/programmers here are a little bent when it comes to
proper coding. It's like "Hello" and "Hiya" ones proper, but they both get
the job done. I don't plan on becoming a professional programmer. I am
merely learning Perl as something more of a "stepping stone" to C/C++.
Maybe Perl is an improper stepping stone, but it's the only programming book
I own besides C++ in 21 days.
Again, how was && a mistake? Newbies learn from being taught not being
told. The book hasn't covered && yet, in fact, it hadn't covered AND either
in the use of while loops and does make some assumptions that you can
understand it faster than reading it, which is one of the down falls of the
book, in my opinion. More than likely, I will finish this book and then get
a "professional" Perl book and find the differences.
Any suggestions on Perl books by the way is greatly appreciated.
Sincerely,
Matt
Shane McDaniel <shanem@ll.mit.edu> wrote in message
news:3A9AD404.AEFA51BE@ll.mit.edu...
> I'm just curious but how did you go about learning perl? ie what
> resources and books did you use. I'm just curious how the "newbies" go
> about learning and whether it is flawed or not and how it might impact
> performance. Nothing personal but the && mistake was fairly obvious if
> you had read something about while loops.
>
> mshort wrote:
> >
> > Perl People,
> >
> > Thanks I got it to work.
> >
> > The AND and && both work in the program. The comma doesn't work, it
does
> > exactly what Randall said, it drops the left argument.
> >
> > John,
> >
> > What do you mean "using strict"?
> >
> > Thanks again guys, next lesson is foreach loops and arrays.
> >
> > Sincerely,
> >
> > Matt Short
> > John Joseph Trammell <trammell@bayazid.hypersloth.net> wrote in message
> > news:slrn99l4rf.r0q.trammell@bayazid.hypersloth.net...
> > > On Mon, 26 Feb 2001 13:04:00 -0800, mshort <mshort@usol.com> wrote:
> > > > while ($ans ne 'yes', $ans ne 'no'){
> > >
> > > What test are you trying to perform here? Maybe you should
> > > do some experimenting with this.
> > >
> > > And you're "using strict", right?
> > >
------------------------------
Date: Wed, 28 Feb 2001 09:07:17 GMT
From: Alan Pettigrew <alan1.pettigrew1@fox1-europe1.com>
Subject: Re: libnet and Net::SMTP config.pm is wrong
Message-Id: <VA.00000010.002c5a20@fox-europe.com>
>
> By the way the latest libnet is 1.0703
>
> http://www.cpan.org/authors/id/GBARR/libnet-1.0703.tar.gz
>
> -Gerard
> http://www.lanois.com/perl/
>
Many thanks for your help. I did know about the latest version, but
wanted to use the version that had been installed on another machine,
plus this was the one that PPM found.
I shall look at updating from the source.
Alan
------------------------------
Date: Thu, 1 Mar 2001 01:36:26 +1100
From: "Chris" <CHRISVAL@bigpond.com.au>
Subject: May Be [ Off Topic ]
Message-Id: <SS7n6.5536$v5.20170@newsfeeds.bigpond.com>
Hi everybody, I just installed MySQL and I have heard
that it can be linked with perl to query the database.
Is this possible? if so how? for example how is the query
run, is it called vial the embeded code in the web page
or does Perl handle all that part of it.
Sorry if its off topic, if it is could you please direct me
to a newsgroup that covers this.
Thank you...
Chris val
------------------------------
Date: Wed, 28 Feb 2001 10:05:52 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: May Be [ Off Topic ]
Message-Id: <slrn99q4ug.jij.tadmc@tadmc26.august.net>
Chris <CHRISVAL@bigpond.com.au> wrote:
> Subject: May Be [ Off Topic ]
Please put the subject of your article in the Subject of your article.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 28 Feb 2001 11:13:14 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Need source code for perl5.003
Message-Id: <97imga$1d7$3@mamenchi.zrz.TU-Berlin.DE>
According to Kolla <user@domain.com>:
> Hi,
> Can somebody help me in finding out the source distribution for
> perl5.003??. If you can, please post URL from which i can download
> above mentioned distribution.
It's on CPAN. ftp://ftp.rz.ruhr-uni-bochum.de/pub/CPAN/, for one
I happen to have handy. There are about two hundred mirrors.
Anno
------------------------------
Date: Wed, 28 Feb 2001 14:28:52 -0000
From: "Simon Parkes" <simon.parkes@easynet.co.uk.nospam>
Subject: NIC Fail-Over Script
Message-Id: <0Y7n6.82417$Dd3.1341904@monolith.news.easynet.net>
Hi,
Before I attempt to possibly re-invent the wheel, does anyone know of a
script that will work on 2 NIC's.
What I want is to have one NIC running with a script checking to see if all
is okay, if the script detects a problem, it brings down the interface and
then brings up the other using same IP params ...
Anyone know of this sort of script or application??
TIA
Simon
------------------------------
Date: Wed, 28 Feb 2001 12:36:05 GMT
From: "Phil Shean" <philip.shean@uwe.ac.uk>
Subject: Pattern matching
Message-Id: <G9GwC5.3Ar@bath.ac.uk>
I have the following string.
<meta name="title" content="Sequential Model of Response to Marketing"/>
I want to be able to extract what ever is in the name field and the content
field and then put this into a hash.
Any suggestions of ways to do this would be welcomed.
Cheers
Phil.
------------------------------
Date: Wed, 28 Feb 2001 12:51:39 +0000 (UTC)
From: bernard.el-hagin@gdndev25.dev.lido-tech ()
Subject: Re: Pattern matching
Message-Id: <slrn99psre.3vvntd5.bernard.el-hagin@gdndev25.dev.lido-tech>
In article <G9GwC5.3Ar@bath.ac.uk>, Phil Shean wrote:
>I have the following string.
>
><meta name="title" content="Sequential Model of Response to Marketing"/>
>
>I want to be able to extract what ever is in the name field and the content
>field and then put this into a hash.
>
>Any suggestions of ways to do this would be welcomed.
If you mean you want the name field as the key and the content field as
the value try:
$_='<meta name="title" content="Sequential Model of Response to Marketing"/>';
my %hash;
$hash{$1} = $2 if m/<meta name="([^"]*)" content="([^"]*)"\/>/;
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
Date: Wed, 28 Feb 2001 15:28:13 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Pattern matching
Message-Id: <slrn99pu2i.j91.tadmc@tadmc26.august.net>
Phil Shean <philip.shean@uwe.ac.uk> wrote:
>I have the following string.
>
><meta name="title" content="Sequential Model of Response to Marketing"/>
>
>I want to be able to extract what ever is in the name field and the content
>field and then put this into a hash.
>
>Any suggestions of ways to do this would be welcomed.
Use a pattern match if that is really just "a string".
perldoc perlre
perldoc perlop
Use a module for parsing HTML if that is really HTML (it looks
like HTML...), HTML::Parser for instance, already provides the
attributes in a hash, just as you want.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 28 Feb 2001 09:51:10 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Pattern matching
Message-Id: <slrn99q42u.jij.tadmc@tadmc26.august.net>
bernard.el-hagin@gdndev25.dev.lido-tech
<bernard.el-hagin@gdndev25.dev.lido-tech> wrote:
>In article <G9GwC5.3Ar@bath.ac.uk>, Phil Shean wrote:
>>I have the following string.
>>
>><meta name="title" content="Sequential Model of Response to Marketing"/>
>>
>>I want to be able to extract what ever is in the name field and the content
>>field and then put this into a hash.
>>
>>Any suggestions of ways to do this would be welcomed.
>
>If you mean you want the name field as the key and the content field as
>the value try:
>
>$_='<meta name="title" content="Sequential Model of Response to Marketing"/>';
>
>my %hash;
>
>$hash{$1} = $2 if m/<meta name="([^"]*)" content="([^"]*)"\/>/;
Oh, it doesn't look like HTML, it looks like XHTML.
Anyways, it would fail on this perfectly legal meta tag:
$_='<meta content="Sequential Model of Response to Marketing" name="title"/>';
Which would not be a problem if you were using an HTML module.
:-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 28 Feb 2001 15:28:14 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Perl string
Message-Id: <slrn99puan.j91.tadmc@tadmc26.august.net>
Raja Banerjee <rbanerje@utdallas.edu> wrote:
>mailx name@host.com -r "login2@host.com" < filename
>Theproblem is with the inverted commas .
What are "inverted commas"?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 28 Feb 2001 16:57:46 +0100
From: "Peter Søgaard" <peter.s@tjgroup.dk>
Subject: Re: Perl string
Message-Id: <97j6v6$o74$1@news.inet.tele.dk>
> What are "inverted commas"?
I think he means back ticks ``
...not sure tho'
------------------------------
Date: Wed, 28 Feb 2001 11:04:24 -0500
From: "Ray Rizzuto" <ray.rizzuto@ulticom.com>
Subject: problem with setuid script
Message-Id: <fk9n6.32$DQ2.303@client>
This is a multi-part message in MIME format.
------=_NextPart_000_0008_01C0A176.3582C7B0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi!
I am running a perl script from a korn shell setuid script, and getting =
these errors:
Insecure dependency in require while running setuid at reformatCr line =
13.
BEGIN failed--compilation aborted at reformatCr line 13.
=20
The errors occur when I do use a package I created, which is in a local =
directory. The line giving the error (use Gnats) is shown in red below:
#!/usr/local/bin/perl -w
=20
use English; # use english names instead of $|, etc.
=20
# make perl as strict as possible
use strict;
=20
# set path so private modules (Gnats) can be found
use FindBin;
use lib "$FindBin::Bin";
=20
# import the various Gnats modules
use Gnats;
Any help would be appreciated! I've had no luck searching the FAQ, or =
the camel book.
Ray
------=_NextPart_000_0008_01C0A176.3582C7B0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.3211.1700" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT size=3D2>Hi!</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>I am running a perl script from a korn shell =
setuid=20
script, and getting these errors:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT size=3D2>Insecure dependency in require while running setuid =
at=20
reformatCr line 13.<BR>BEGIN failed--compilation aborted at reformatCr =
line=20
13.<BR> </FONT></DIV>
<DIV><FONT size=3D2>The errors occur when I do use a package I =
created, which=20
is in a local directory. The line giving the error (use Gnats) is =
shown in=20
red below:</FONT></DIV>
<DIV> </DIV>
<BLOCKQUOTE style=3D"MARGIN-RIGHT: 0px">
<DIV><FONT size=3D2>#!/usr/local/bin/perl -w<BR> <BR>use=20
English; # use english names instead of $|, =
etc.<BR> <BR>#=20
make perl as strict as possible<BR>use strict;<BR> <BR># set path =
so=20
private modules (Gnats) can be found<BR>use FindBin;<BR>use lib=20
"$FindBin::Bin";<BR> <BR># import the various Gnats =
modules<BR><FONT=20
color=3D#ff0000>use Gnats;</FONT></FONT></DIV></BLOCKQUOTE>
<DIV><FONT size=3D2>Any help would be appreciated! I've had no =
luck=20
searching the FAQ, or the camel book.</FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>Ray<BR></DIV></FONT></BODY></HTML>
------=_NextPart_000_0008_01C0A176.3582C7B0--
------------------------------
Date: 28 Feb 2001 15:00:44 GMT
From: Kurt Tappe <ktappe@assocgraphics.com>
Subject: Reg. Exp. Challenge
Message-Id: <97j3qs$oho$0@216.155.1.18>
Keywords: regular,expression,perl,substring
This BASIC-looking code snippet examines $string of unknown length for
a set of parentheses of unknown location within it. It then extracts a
substring of unknown length or contents from between those parentheses.
Can you convert it to a regular expression?
for ($counter=0; $counter <= $length($string); $counter++) {
if (substr($string, $counter, 1) eq "(") {
$start = $counter;
}
if (substr($string, $counter, 1) eq ")") {
$end = $counter;
}
}
my $substring = substr($string,$start,$end-$start);
# If $string="This is the (sample) input string", $substring="sample"
-Kurt
--
Kurt Tappe
Manager, Information Technology
Associates Graphic Services
Wilmington, DE
------------------------------
Date: Wed, 28 Feb 2001 16:28:39 +0100
From: "Jonas Nilsson" <jonni@ifm.liu.se>
Subject: Re: Reg. Exp. Challenge
Message-Id: <97j5c2$ht2$1@newsy.ifm.liu.se>
> Can you convert it to a regular expression?
It is much easier to do it with regexp!
($substring)=$string=~m/\(([^)]*)\)/;
What was the challenge?
/jN
--
_____________________ _____________________
| Jonas Nilsson | | |
|Linkoping University | | Telephone |
| IFM | | --------- |
| Dept. of Chemistry | | work: +46-13-285690 |
| 581 83 Linkoping | | fax: +46-13-281399 |
| Sweden | | home: +46-13-130294 |
|_____________________| |_____________________|
------------------------------
Date: Wed, 28 Feb 2001 15:28:33 +0000
From: "Gary" <gary@orthanc.fsnet.co.uk>
Subject: Re: Reg. Exp. Challenge
Message-Id: <ZP8n6.181$jo4.739@news.uk.colt.net>
In article <97j3qs$oho$0@216.155.1.18>, "Kurt Tappe"
<ktappe@assocgraphics.com> wrote:
I'm guessing this would do the trick
$string = "This is the (sample) input string";
($substring) = $string =~ /\(([^)]*)\)/;
print "$substring\n";
> This BASIC-looking code snippet examines $string of unknown length for a
> set of parentheses of unknown location within it. It then extracts a
> substring of unknown length or contents from between those parentheses.
>
> Can you convert it to a regular expression?
>
> for ($counter=0; $counter <= $length($string); $counter++) {
> if (substr($string, $counter, 1) eq "(") {
> $start = $counter;
> }
> if (substr($string, $counter, 1) eq ")") {
> $end = $counter;
> }
> }
> my $substring = substr($string,$start,$end-$start);
>
> # If $string="This is the (sample) input string", $substring="sample"
>
> -Kurt
>
>
------------------------------
Date: Wed, 28 Feb 2001 15:29:35 +0000
From: "Gary" <gary@orthanc.fsnet.co.uk>
Subject: Re: Reg. Exp. Challenge
Message-Id: <XQ8n6.182$jo4.739@news.uk.colt.net>
Great minds think alike :)
In article <97j5c2$ht2$1@newsy.ifm.liu.se>, "Jonas Nilsson"
<jonni@ifm.liu.se> wrote:
>> Can you convert it to a regular expression?
>
> It is much easier to do it with regexp!
>
> ($substring)=$string=~m/\(([^)]*)\)/;
>
> What was the challenge?
> /jN
>
> --
> _____________________ _____________________
> | Jonas Nilsson | | |
> |Linkoping University | | Telephone |
> | IFM | | --------- |
> | Dept. of Chemistry | | work: +46-13-285690 |
> | 581 83 Linkoping | | fax: +46-13-281399 |
> | Sweden | | home: +46-13-130294 |
> |_____________________| |_____________________|
------------------------------
Date: 28 Feb 2001 15:38:29 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Reg. Exp. Challenge
Message-Id: <97j61l$nmg$1@mamenchi.zrz.TU-Berlin.DE>
Keywords: regular,expression,perl,substring
According to Kurt Tappe <ktappe@assocgraphics.com>:
> This BASIC-looking code snippet examines $string of unknown length for
> a set of parentheses of unknown location within it. It then extracts a
> substring of unknown length or contents from between those parentheses.
>
> Can you convert it to a regular expression?
Can you convert it to a working program? You didn't test this,
did you?
> for ($counter=0; $counter <= $length($string); $counter++) {
What is $length?
> if (substr($string, $counter, 1) eq "(") {
> $start = $counter;
> }
> if (substr($string, $counter, 1) eq ")") {
> $end = $counter;
> }
> }
> my $substring = substr($string,$start,$end-$start);
>
> # If $string="This is the (sample) input string", $substring="sample"
No, you really didn't test this. Your substring contains the opening,
but not the closing parenthesis: "(sample".
Otherwise, your problem is ridiculously simple. It shows that you
have not even an elementary idea of how regular expressions work.
Don't insult our intelligence by declaring it a "challenge".
Anno
------------------------------
Date: Wed, 28 Feb 2001 10:04:39 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Reg. Exp. Challenge
Message-Id: <slrn99q4s7.jij.tadmc@tadmc26.august.net>
Kurt Tappe <ktappe@assocgraphics.com> wrote:
>This BASIC-looking code snippet examines $string of unknown length for
>a set of parentheses of unknown location within it. It then extracts a
>substring of unknown length or contents from between those parentheses.
It finds the "last" open paren and close paren without ensuring
that they "match" each other. It does not handle nested parens.
It will find the last pair of unnested parens.
It is not at all robust or generally applicable. IOW, it is
a most poor algorithm.
Matching parens usually involves maintaining a stack of some kind.
>Can you convert it to a regular expression?
my $substring = $1 if $string =~ /\(([^)]*)\)/;
That does not handle nested parens either.
It finds the first pair of unnested parens.
Maybe it is "good enough" anyway...
>for ($counter=0; $counter <= $length($string); $counter++) {
^
^ what's that dollar sign there for?
> if (substr($string, $counter, 1) eq "(") {
> $start = $counter;
$start = $counter + 1;
> }
> if (substr($string, $counter, 1) eq ")") {
> $end = $counter;
> }
> }
>my $substring = substr($string,$start,$end-$start);
>
># If $string="This is the (sample) input string", $substring="sample"
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 28 Feb 2001 11:16:33 GMT
From: abigail@foad.org (Abigail)
Subject: Re: regex help please
Message-Id: <slrn99pngh.9a7.abigail@tsathoggua.rlyeh.net>
The Mosquito ScriptKiddiot (anotherway83@aol.com) wrote on MMDCCXXXVIII
September MCMXCIII in <URL:news:20010227222115.05068.00000607@ng-ch1.aol.com>:
<> hey
<>
<> this problem has been bugging me for a long time and i haven't been able to
<> solve it hence this post
<>
<> the problem is that i need to simplify sumthing like
<>
<> ( ( ( ( ( x ) ) ) ) )
<>
<> into just ( x )
<>
<> this sounded easy to me, but the complications just kept adding up
<>
<> now, the things in between an open bracket and a close bracket could include a
<> combination of the following 10 characters
<>
<> + (the plus sign)
<> - (the minus sign)
<> ^ (the raised-to-the-power-of sign)
<> / (the divide sign)
<> * (the multiplication sign)
<> . (a decimal point)
<> ( (an open bracket)
<> ) (a close bracket)
<> x (any letter of the alphabet, but for now lets assume it's only x)
<> n (any number)
<>
<> so for instance i need to simplify sumthing like
<>
<> ( ( ( ( ( ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ - 4 * ( 5 - x / 2 ) + 4 )
<> - 6 ) ) ) ) ) )
<>
<> into just ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ - 4 * ( 5 - x / 2 ) + 4 )
<> - 6 )
<>
<> those extra brackets are the ones i need to get rid of
You are using the wrong tool.
It's a pretty simple exercise (homework problem?), typically given to
first year students. All you need is a simple state machine so you
write a trivial parser. Almost any textbook on parsing and/or compiling
will have an arithmetic expression parser as one of the first examples.
One way to do this is to use Parse::RecDescent. But this smells to much
of a homework problem to give more details.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
------------------------------
Date: Wed, 28 Feb 2001 11:16:31 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: regex help please
Message-Id: <3A9CDF57.2E49BA73@acm.org>
"John W. Krahn" wrote:
>
> The Mosquito ScriptKiddiot wrote:
> >
> > so for instance i need to simplify sumthing like
> >
> > ( ( ( ( ( ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ - 4 * ( 5 - x / 2 ) + 4 )
> > - 6 ) ) ) ) ) )
> >
> > into just ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ - 4 * ( 5 - x / 2 ) + 4 )
> > - 6 )
>
> $ perl -e '$_ = "( ( ( ( ( ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ -
> 4 * ( 5 - x / 2 ) + 4 ) - 6 ) ) ) ) ) )"; i while
> s/^\s*\(\s*(\(.+\))\s*\)\s*$/$1/g; print "$_\n";'
> ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ - 4 * ( 5 - x / 2 ) + 4 ) -
> 6 )
Sorry, half asleep here, should be:
1 while s/^\s*\(\s*(\(.+\))\s*\)\s*$/$1/g;
John
------------------------------
Date: Wed, 28 Feb 2001 13:18:28 +0100
From: "Jonas Nilsson" <jonni@ifm.liu.se>
Subject: Re: regex help please
Message-Id: <97iq7i$eqs$1@newsy.ifm.liu.se>
> so for instance i need to simplify sumthing like
>
> ( ( ( ( ( ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ - 4 * ( 5 - x / 2 )
+ 4 ) - 6 ) ) ) ) ) )
>
> into just ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ - 4 * ( 5 - x / 2 )
+ 4 ) - 6 )
A suggestion:
$a="( (((x-1)((y*5))(x-2))) )";
#Remove whitespace between parenthesis
$a=~s/([()])\s+([()])/$1$2/g;
#Numbers all pairing parenthesis ( becomes <n< and ) becomes >n> )
$c=0; #Counter
while ($a=~s/\(([^()]*)\)/"<$c<".$1.">$c>"/e) {$c++};
print "$a\n"; #just to see what happened!
#Removes all duplicate pairing parenthesis
while ($a=~s/<(\d+)<<(\d+)<(.*)>\2>>\1>/<$1<$3>$1>/g) {1};
#Change back into parenthesis
$a=~s/<\d+</\(/g;
$a=~s/>\d+>/\)/g;
print $a;
__END__
Result:
<6<<5<<4<<0<x-1>0><2<<1<y*5>1>>2><3<x-2>3>>4>>5>>6>
((x-1)(y*5)(x-2))
/jN
--
_____________________ _____________________
| Jonas Nilsson | | |
|Linkoping University | | Telephone |
| IFM | | --------- |
| Dept. of Chemistry | | work: +46-13-285690 |
| 581 83 Linkoping | | fax: +46-13-281399 |
| Sweden | | home: +46-13-130294 |
|_____________________| |_____________________|
------------------------------
Date: Wed, 28 Feb 2001 13:21:06 +0100
From: "Jonas Nilsson" <jonni@ifm.liu.se>
Subject: Re: regex help please
Message-Id: <97iqcg$er1$1@newsy.ifm.liu.se>
> $ perl -e '$_ = "( ( ( ( ( ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ -
> 4 * ( 5 - x / 2 ) + 4 ) - 6 ) ) ) ) ) )"; i while
> s/^\s*\(\s*(\(.+\))\s*\)\s*$/$1/g; print "$_\n";'
> ( x - ( 2 + ( 2x + 3 ( 4x + 5 ) - 8.345 ) ^ - 4 * ( 5 - x / 2 ) + 4 ) -
> 6 )
This doen't work for ((x-1))((y-3)). Mine example does :)
/jN
--
_____________________ _____________________
| Jonas Nilsson | | |
|Linkoping University | | Telephone |
| IFM | | --------- |
| Dept. of Chemistry | | work: +46-13-285690 |
| 581 83 Linkoping | | fax: +46-13-281399 |
| Sweden | | home: +46-13-130294 |
|_____________________| |_____________________|
------------------------------
Date: 28 Feb 2001 13:39:03 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: sending to sockets
Message-Id: <97iv1n$fgm$1@mamenchi.zrz.TU-Berlin.DE>
According to Ted Fiedler <tfiedler@zen.moldsandwich.com>:
> Ive been working on this for several hours and CANNOT seem to figure out
> what im doing wrong - all I want to do is get the output from the socket
> and write it to a file. any help is appreciated.
Your server (rainmaker.wunderground.com) seems to be pretty
dialog-oriented. It is hard to get that right with plain socket
communication. In particular, you need to know what to expect
from the server to know when it is ready to accept more input.
Otherwise, deadlocks are bound to occur, as is probably the
case with the code you posted.
The Expect module (available on CPAN) is designed to facilitate
this kind of dialog. I'd give it a try.
[code snipped]
Anno
------------------------------
Date: 28 Feb 2001 14:55:18 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Sorting by date
Message-Id: <97j3gm$k0t$2@mamenchi.zrz.TU-Berlin.DE>
According to Godzilla! <godzilla@stomp.stomp.tokyo>:
> TEST SCRIPT:
> ____________
>
>
> #!perl
>
> print "Content-type: text/plain\n\n";
>
> $file_ext = ".pl";
>
> opendir (DIRECTORY, ".");
> while (defined ($filename = readdir (DIRECTORY)))
> {
> if ($filename =~ /[\w+]$file_ext$/)
> {
> $modified = (stat ($filename)) [9];
> $filename = "$modified:$filename";
> push (@Array, $filename);
> }
> }
>
> @Array = sort (@Array);
You are sorting numerical data in a string sort. Your program
will break in about 200 days.
Anno
------------------------------
Date: Wed, 28 Feb 2001 11:48:42 +0000
From: Thorsten Dombach, <tdombach@topmail.de> <donotreply@interbulletin.bogus>
Subject: split with delimiter in one field
Message-Id: <3A9CE59A.432F0DE1@interbulletin.com>
Hi all,
I have a log file to parse. The log file uses , as delimiter.
Also I know that are 14 columns, but all columns could vary in character
length.
Unfortunaly the third column makes problems, because there the delimiter
could exist in the data.
Is there anybody out there who has an interesting split hack to get the
correct data in 14 fields?
ciao
Thorsten
PS: Sorry, it is not possible to use a different delimiter in the log
file. I had to accept the log as it is.
_______________________________________________
Submitted via WebNewsReader of http://www.interbulletin.com
------------------------------
Date: Wed, 28 Feb 2001 12:52:48 +0000 (UTC)
From: bernard.el-hagin@gdndev25.dev.lido-tech ()
Subject: Re: split with delimiter in one field
Message-Id: <slrn99pstk.3vvntd5.bernard.el-hagin@gdndev25.dev.lido-tech>
In article <3A9CE59A.432F0DE1@interbulletin.com>, Thorsten Dombach, wrote:
>Hi all,
>
>I have a log file to parse. The log file uses , as delimiter.
>Also I know that are 14 columns, but all columns could vary in character
>length.
>Unfortunaly the third column makes problems, because there the delimiter
>could exist in the data.
>
>Is there anybody out there who has an interesting split hack to get the
>correct data in 14 fields?
This is an extremely FAQ.
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
Date: 28 Feb 2001 14:34:50 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: split with delimiter in one field
Message-Id: <97j2aa$k0t$1@mamenchi.zrz.TU-Berlin.DE>
According to Thorsten Dombach, <tdombach@topmail.de>:
> Hi all,
>
> I have a log file to parse. The log file uses , as delimiter.
> Also I know that are 14 columns, but all columns could vary in character
> length.
> Unfortunaly the third column makes problems, because there the delimiter
> could exist in the data.
>
> Is there anybody out there who has an interesting split hack to get the
> correct data in 14 fields?
Sorry, no. My script works with 12 fields.
More seriously: The right solution is to take care that the data
is formatted as CSV (Comma Separated Values). In particular this
means that a data field will be quoted when it contains the separator.
Then use the methods described in the pertinent faq to disassemble the
data. "perldoc -q except" will take you there. There are even modules
out on CPAN that deal with CSVs.
For a kludge you could rely on the fact that only the third field
can contain a comma at all. So if you have more than 14 fields,
you know that fields 3 and 4 actually belong together, so put them
together again:
splice @fields, 2, 0, join ', ', splice @fields, 2, 2 if @fields > 14;
Anno
------------------------------
Date: Wed, 28 Feb 2001 15:28:14 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: split with delimiter in one field
Message-Id: <slrn99q2sq.j91.tadmc@tadmc26.august.net>
Thorsten Dombach, <tdombach@topmail.de> wrote:
>Hi all,
>
>I have a log file to parse. The log file uses , as delimiter.
^^^^^^^^^
You mean "separator". "delimiters" are something else.
>Also I know that are 14 columns, but all columns could vary in character
>length.
>Unfortunaly the third column makes problems, because there the delimiter
>could exist in the data.
Then you do not know that there are 14 columns. The columns are
_defined_ by commas. If there are more commas, then there *are*
more columns.
Unless the "embedded commas" are marked somehow such as backslashed
or in quote delimiters. Which I assume is not the case, else you
would be using a CSV module that handles that for you.
So the problem then becomes "merging" the incorrectly split
elements back into a single element.
If you have more than one field in your log file that is allowed to
contain commas, then the log file format is too silly for automatic
processing, give up.
>Is there anybody out there who has an interesting split hack to get the
>correct data in 14 fields?
----------------------------
#!/usr/bin/perl -w
use strict;
$_ = 'zero,one,two,Two,TWO,three,four,five'; # six "logical" fields
my @fields = split /,/;
my $total = 6; # number of desired fields (I use 6 instead of 14)
my $problem = 2; # zero-based index of the "problem" field containing comma(s)
# also serves as starting index of "to be merged" elements
# ending index of "to be merged" elements
my $end = @fields - $total + $problem;
splice @fields, $problem, $end - $problem + 1,
join ',', @fields[$problem .. $end];
print "$_\n" for @fields;
----------------------------
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 375
**************************************
