[13831] in Perl-Users-Digest
Perl-Users Digest, Issue: 1241 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 1 06:06:11 1999
Date: Mon, 1 Nov 1999 03: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: <941454311-v9-i1241@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 1 Nov 1999 Volume: 9 Number: 1241
Today's topics:
Re: Another 'or'? was [perl double-split] <ltl@rgsun40.viasystems.com>
Re: Another 'or'? was [perl double-split] (Ilya Zakharevich)
Re: decode $ENV{'HTTP_WEFERER'}? <vadim@sns.ru>
Re: EPOCH'S Halloween? <jeff@vpservices.com>
Re: FAQ 2.14: What mailing lists are there for perl? <uri@sysarch.com>
Re: FAQ 2.14: What mailing lists are there for perl? (brian d foy)
How can I handle "out of memory" error? <hsahn@kaist.ac.kr>
Re: How exactly do I start creating a CGI with PERL <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
How to execute pattern match command at Unix prompt ? <Achin@inprise.com>
Re: How to execute pattern match command at Unix prompt (Martien Verbruggen)
Re: It is always like this here? <ltl@rgsun40.viasystems.com>
Re: It is always like this here? <mhc@Eng.Sun.COM>
Re: It is always like this here? (Abigail)
Re: It is always like this here? (Martien Verbruggen)
Re: MacPerl 5 assign to Listelement (Arved Sandstrom)
module proposal for WML (Steve Grantz)
multiline editing (Eric Smith)
Re: Need Help! (Abigail)
Need routine to find banned or "Bad" words <groberts@itc.com.au>
Re: Perl disallowed at ACM programming contests? <Tim.Potter@anu.edu.au>
Re: Perl4 and Y2K (Randal L. Schwartz)
Re: Perl4 and Y2K (Philip 'Yes, that's my address' Newton)
Re: regsrv32 <bokler_1@hiwaay.net>
Report page-break and page-count <dvoon@my-deja.com>
Report page-break and page-count <dvoon@my-deja.com>
Report page-break and page-count <dvoon@my-deja.com>
Report pagebreak & page-count <dvoon@my-deja.com>
Report pagebreak & page-count <dvoon@my-deja.com>
Re: Setuid Problem (Abigail)
Re: What makes the web go? (Mark W. Schumann)
Re: What makes the web go? (Mark W. Schumann)
Re: What makes the web go? (brian d foy)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 1 Nov 1999 05:23:17 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: Another 'or'? was [perl double-split]
Message-Id: <7vj845$f1p$1@rguxd.viasystems.com>
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
:>[A complimentary Cc of this posting was sent to lt lindley
:><lee.lindley@bigfoot.com>],
:>who wrote in article <7vil5g$9lr$1@rguxd.viasystems.com>:
:>> :> my $values = <> ?? die "'Name' line without matched 'values' line.\n";
:>>
:>> ----------------------^^
:>>
:>> Is your newsreader broken or is there soon to be yet another way
:>> to spell "or"?
:>Probably not for 5.6. Sarathy is not too eager to put it in. But
:>eventually it will be. The need is obvious. (Not in this particular
:>case, though, as another guy with the same last name did show in
:>another post.)
Same "relative newbie" who checked for eof with
unless defined $values
#instead of
unless $values
so the "usefulness" of ?? is not in dispute, though I can and will
argue that "need" is too strong a word. I can get by with a single
"or" operator quite well.
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 1 Nov 1999 08:46:42 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Another 'or'? was [perl double-split]
Message-Id: <7vjk1i$t1o$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to lt lindley
<lee.lindley@bigfoot.com>],
who wrote in article <7vj845$f1p$1@rguxd.viasystems.com>:
> Same "relative newbie" who checked for eof with
>
> unless defined $values
> #instead of
> unless $values
>
> so the "usefulness" of ?? is not in dispute, though I can and will
> argue that "need" is too strong a word. I can get by with a single
> "or" operator quite well.
Fine with me. If you want to explain to your customer "do not try to use
this script with a file named C<0>", well, it is your problem.
(See many recipes in the Perl CookBook, which would do something like
$name = shift || 'file.txt';
It is the Perl CookBook which made the need absolutely clear (to me).)
Ilya
------------------------------
Date: Mon, 01 Nov 1999 03:30:05 -0400
From: Vadim Kulakov <vadim@sns.ru>
Subject: Re: decode $ENV{'HTTP_WEFERER'}?
Message-Id: <381DA3ED.1D463E89@sns.ru>
Abigail wrote:
> ## How can I decode the string (Apache/1.3.4 (Unix)):
> ## HTTP_WEFERER=HYUCDDJBLVLMHAALPTCXLYRWTQTIPWIGYOKSTT
> You'll have to ask the wabbits.
When an user connect thru proxy server - HTTP_REFERER has null string, but
HTTP_WEFERER, according to its length, has encoding HTTP_REFERER.
How can I get previous user's location else?
With best regards, Vadim.
------------------------------
Date: 1 Nov 1999 05:26:19 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: EPOCH'S Halloween?
Message-Id: <381D2442.C1A8BCA4@vpservices.com>
Jason D wrote:
>
> Hi,
> I'm a beginner programmer in PERL, and I had a program that was ripping
> apart files with dates in them just fine. Then all of a sudden a file with
> the date of October 31, 1999 came up and my program just stopped.
Aha, halloween. No programming language in the world can solve that
problem because in programming there is no difference between Halloween
(Oct 31) and Christmas (Dec 25).
Sorry, couldn't resist.
--
Jeff
------------------------------
Date: 01 Nov 1999 01:51:15 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: FAQ 2.14: What mailing lists are there for perl?
Message-Id: <x7puxubt7g.fsf@home.sysarch.com>
>>>>> "GK" == Graeme Kennedy <graeme@seercom.com> writes:
GK> In article <381bc4f6@cs.colorado.edu>, perlfaq-suggestions@perl.com (Tom
GK> and Gnat) wrote:
>> http://www.perl.org/maillist.html
GK> This FAQ has been out of date for some time. The URL does not exist.
GK> http://www.perlmongers.org/support/online_support.html#mail
mail that fix to the perlfaq address. tom and gnat don't frequent this
group much these days.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Mon, 01 Nov 1999 03:00:18 -0500
From: brian@smithrenaud.com (brian d foy)
Subject: Re: FAQ 2.14: What mailing lists are there for perl?
Message-Id: <brian-0111990300190001@134.new-york-61-62rs.ny.dial-access.att.net>
In article <x7puxubt7g.fsf@home.sysarch.com>, Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "GK" == Graeme Kennedy <graeme@seercom.com> writes:
>
> GK> In article <381bc4f6@cs.colorado.edu>, perlfaq-suggestions@perl.com (Tom
> GK> and Gnat) wrote:
>
> >> http://www.perl.org/maillist.html
>
> GK> This FAQ has been out of date for some time. The URL does not exist.
>
> GK> http://www.perlmongers.org/support/online_support.html#mail
>
>mail that fix to the perlfaq address. tom and gnat don't frequent this
>group much these days.
i've already set that in motion, and have also set up a temporary
RewriteRule so that the user ends up at the right place with either
address. ;)
--
brian d foy
Perl Mongers <URI:http://www.perl.org>
CGI MetaFAQ
<URI:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
Date: Mon, 1 Nov 1999 16:03:02 +0900
From: "Hoseop Ahn" <hsahn@kaist.ac.kr>
Subject: How can I handle "out of memory" error?
Message-Id: <7vjdrg$60l$1@green.kreonet.re.kr>
I want to know if the request for large memory will fail
before the program dies with message:
Out of memory during "large" request for xxxxx bytes
It must go on after logging that failure.
How can I do this?
------------------------------
Date: Mon, 01 Nov 1999 02:27:20 -0800
From: Mark Bluemel <mark.bluemelNOmaSPAM@siemens.co.uk.invalid>
Subject: Re: How exactly do I start creating a CGI with PERL
Message-Id: <1415c574.f9140d95@usw-ex0102-014.remarq.com>
In article <MPG.128573a32adf49f698982b@nntp1.ba.best.com>,
moseley@best.com (Bill Moseley) wrote:
> Zeus (hacker65@cybertech.com.sg) seems to say...
> > What programs do I need to start programming with PERL ? My Host
> has a UNIX
> > system with perl ready but How do I create my own CGI script ?
> If you have a specific program you need then it's just easier to
> ask
> someone here to write it for you.
ROTFL! You forgot to warn him to put his asbestos undies on...
> Otherwise, I'd consider searching the web. I've heard about these
> search engine things that find things for you. Cool, I think. I
> was
> also at a bookstore the other day and saw some books on the Web
> and CGI.
> Frankly, I couldn't believe it. Do people actually still read
> books?
I think the answer to that question is "no"...
> There's also all these FACKS things I've seen around that answer
> common
> questions.
> If you are on a UNIX host already and it has P.E.R.L installed
> then you
> are half way there. Now you need some disk space, and permission
> from
> the system admin to run CGI scripts. Most ISPs have some help web
> pages
> on running CGI programs that help you get started.
> Don't forget to type 'perldoc CGI' at your UNIX prompt. That's a
> really
> important "module" that people often recommend.
> Good luck,
He'll need it...
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Mon, 01 Nov 1999 17:16:14 +0800
From: Adrian Chin <Achin@inprise.com>
Subject: How to execute pattern match command at Unix prompt ?
Message-Id: <381D5A5E.71550D4F@inprise.com>
Hi
Do you know how to execute a let's say
/^1$/ <filename>
at the prompt ??
Just like grep command ?
TQ
------------------------------
Date: 1 Nov 1999 10:09:23 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: How to execute pattern match command at Unix prompt ?
Message-Id: <slrn81qpuc.vrq.mgjv@wobbie.heliotrope.home>
On Mon, 01 Nov 1999 17:16:14 +0800,
Adrian Chin <Achin@inprise.com> wrote:
> Hi
>
> Do you know how to execute a let's say
>
> /^1$/ <filename>
>
> at the prompt ??
How would that execute? It would give you a few errors at the prompt.
> Just like grep command ?
I'm sorry.. I really have no idea what you are talking about. You say
you want to 'execute a pattern match command at [the] Unix prompt', and
then you say something like 'Just like grep command'.
Let me try a wild stab here: Are you trying to duplicate the
functionality of grep?
# man perlop
[snip]
# poor man's grep
$arg = shift;
while (<>) {
print if /$arg/o; # compile only once
}
[snip]
This doesn't have all the functionality of grep, but you could expand it
a little.
There have also been some grep-like scripts posted to this group in the
past. Use www.deja.com to find them.
If that is not what you mean, then please post again, but try to phrase
your question a bit clearer.
Martien
--
Martien Verbruggen |
Interactive Media Division | Freudian slip: when you say one thing
Commercial Dynamics Pty. Ltd. | but mean your mother.
NSW, Australia |
------------------------------
Date: 1 Nov 1999 04:52:33 GMT
From: lt lindley <ltl@rgsun40.viasystems.com>
Subject: Re: It is always like this here?
Message-Id: <7vj6ah$eih$1@rguxd.viasystems.com>
Martien Verbruggen <mgjv@wobbie.heliotrope.home> wrote:
:>On 31 Oct 1999 13:41:03 -0500,
:> David Foster <dfoster@panix.com> wrote:
:>> In <slrn81n0bd.66b.abigail@alexandra.delanet.com> abigail@delanet.com (Abigail) writes:
:>> To be quite honest, and I know you'll probably disagree with this,
:>> enough regulars here *enjoy* the situation as it stands so much
:>> that it will never change.
:>And this is what I disagree with most. The fact that the most
:>knowledgeable of people keep dropping off this newsgroup should show you
:>that they are not happy at all with the situation. The fact that these
:>discussions keep appearing should show you that as well. Nobody is happy
:>with the situation as it is. And nobody knows how to fix it, if it's
:>fixable at all.
I'll admit it. I'm a sick puppy. I've actually come to appreciate
the abuse. It is often funny and sometimes subtle. The cruelty
is somewhat repulsive, but the wit can be entertaining.
I don't advocate it and have made clear that I think it is counter-
productive. But still, you have to appreciate the art of a well
written putdown (in a sick and perverted kind of way :-).
I can't tell you the number of times I've written my own and pulled
it back without hitting the send key. I am really conflicted
about this. I feel a pull toward the dark side of the force. ;-)
--
// Lee.Lindley /// I used to think that being right was everything.
// @bigfoot.com /// Then I matured into the realization that getting
//////////////////// along was more important. Except on usenet.
------------------------------
Date: 31 Oct 1999 22:22:03 -0800
From: Mike Coffin <mhc@Eng.Sun.COM>
Subject: Re: It is always like this here?
Message-Id: <8p6r9iaafzo.fsf@Eng.Sun.COM>
mgjv@wobbie.heliotrope.home (Martien Verbruggen) writes:
> And this is what I disagree with most. The fact that the most
> knowledgeable of people keep dropping off this newsgroup should show you
> that they are not happy at all with the situation. The fact that these
> discussions keep appearing should show you that as well. Nobody is happy
> with the situation as it is. And nobody knows how to fix it, if it's
> fixable at all.
On the contrary, it's easy to fix: If you don't want to actually
answer a question, then ignore it. Why to people feel duty bound to
provide a response to every question?
A big percentage of the traffic on this newsgroup consists of messages
that basically say "you shouldn't have asked that---read the
documentation." This kind of message is pointless. It adds no useful
information. It's too late the stop the question from being asked.
It reduces the signal-to-noise ratio. It sounds rude. It *obviously*
doesn't stop others from asking questions that are in the
documentation. And, of course, it frustrates the expert, who gets
tired of answering all questions the same way and having no one
listen.
For better or worse, Perl, like Basic, has become a computer language
for non-programmers. It's used by system administrators, web-page
designers, and high school English teachers. They often don't know
enough to formulate reasonable questions. Telling these people to
grep through the provided documentation to solve their problem is like
telling your mother to read up on the thermodynamics of combustion
when she calls you on her cell phone to tell you her Honda Civic has
broken down on the highway.
-mike
------------------------------
Date: 1 Nov 1999 02:48:19 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: It is always like this here?
Message-Id: <slrn81qktf.66b.abigail@alexandra.delanet.com>
Mike Coffin (mhc@Eng.Sun.COM) wrote on MMCCLIII September MCMXCIII in
<URL:news:8p6r9iaafzo.fsf@Eng.Sun.COM>:
^^
^^
^^ For better or worse, Perl, like Basic, has become a computer language
^^ for non-programmers. It's used by system administrators, web-page
^^ designers, and high school English teachers. They often don't know
^^ enough to formulate reasonable questions. Telling these people to
^^ grep through the provided documentation to solve their problem is like
^^ telling your mother to read up on the thermodynamics of combustion
^^ when she calls you on her cell phone to tell you her Honda Civic has
^^ broken down on the highway.
Well, my mother wouldn't attempt to fix her car if it broke down; she'd
hire professional help. But if she would call me and says she wants to
repair her car, I'd point her to some reading material....
Abigail
--
perl -wle 'print "Prime" if (0 x shift) !~ m 0^\0?$|^(\0\0+?)\1+$0'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 1 Nov 1999 09:44:08 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: It is always like this here?
Message-Id: <slrn81qof0.vrq.mgjv@wobbie.heliotrope.home>
On 31 Oct 1999 22:22:03 -0800,
Mike Coffin <mhc@Eng.Sun.COM> wrote:
> mgjv@wobbie.heliotrope.home (Martien Verbruggen) writes:
>
> > And this is what I disagree with most. The fact that the most
> > knowledgeable of people keep dropping off this newsgroup should show you
> > that they are not happy at all with the situation. The fact that these
> > discussions keep appearing should show you that as well. Nobody is happy
> > with the situation as it is. And nobody knows how to fix it, if it's
> > fixable at all.
>
> On the contrary, it's easy to fix: If you don't want to actually
> answer a question, then ignore it. Why to people feel duty bound to
> provide a response to every question?
Because, if nobody did, the poster would keep posting. And no one would
ever be told that there is documentation. And no one would ever be told
that there are other newsgroups.
If the people who know the correct answer don't post, then someone who
doesn't will. And then all the people who know the correct answer have
to correct that post. And that's even more annoying, because by then the
misinformation will have spread.
> For better or worse, Perl, like Basic, has become a computer language
> for non-programmers. It's used by system administrators, web-page
> designers, and high school English teachers. They often don't know
> enough to formulate reasonable questions. Telling these people to
> grep through the provided documentation to solve their problem is like
> telling your mother to read up on the thermodynamics of combustion
> when she calls you on her cell phone to tell you her Honda Civic has
> broken down on the highway.
My mother would probably call a professional to fix her car. She would
certainly not call a professional and ask them to tell her exactly how
to fix her car, for free. My mother also doesn't feel compelled to
perform surgery on her pets when they're sick. She goes to a vet. My
mother probably could have gone to University to learn how to be a vet,
and then, but only then, could she have successfully operated on her
pets.
That is the issue. It may be true that English teachers want to use
Perl, but if they can't be bothered to put the same amount of work into
it that a professional programmer has, then they never will be very
good.
It is no more than reasonable that we expect from someone who wants to
program that they behave like a programmer, or at least are willing to
learn how to be one. And if they aren't willing, they should pay someone
who is.
Why is it that everyone _thinks_ they can program in Perl without even
lifting a finger to type m-a-n ?
Martien
--
Martien Verbruggen |
Interactive Media Division | Hi, Dave here, what's the root
Commercial Dynamics Pty. Ltd. | password?
NSW, Australia |
------------------------------
Date: Mon, 01 Nov 1999 06:45:00 -0400
From: Arved_37@chebucto.ns.ca (Arved Sandstrom)
Subject: Re: MacPerl 5 assign to Listelement
Message-Id: <Arved_37-0111990645000001@dyip-36.chebucto.ns.ca>
In article <381C70D9.155C66C6@etech.hs-bremen.de>, "Dr.-Ing. M. Hartje"
<hartje@etech.hs-bremen.de> wrote:
> The following Program works with WinPerl 5 different ports but not on
> MacPerl 5:
>
> #!/perl
> for ($i =0; $i <=10; $i++) {
> $f[$i] = $i;
> print "*";
> };
> print "\n\n elements: $#f;\ncontents:\n";
>
> foreach $a (@f) { print $a, "="
> };
>
> On MacPerl 5 the output is:
> |out of memory!
> |*
> On Win with a Perl 5 I got
> |***********
> |
> | elements: 10;
> |contents:
> |0=1=2=3=4=5=6=7=8=9=10=
>
Having just run this on MacPerl less than a minute ago, on a PPC 6100 no
less, I can confirm Brian Foy's observation that the MacPerl output is:
***********
elements: 10;
contents:
0=1=2=3=4=5=6=7=8=9=10=
(This is copied and pasted).
I can't think of anything useful off the top of my head - the "out of
memory" message seems implausible for this script but if that's what it
said then that's what it said.
The MacPerl mailing lists are very active. Try going to the MacPerl Pages,
www.macperl.com (or .org - can never remember which). There is a link
there for the mailing lists.
Arved Sandstrom
------------------------------
Date: Mon, 01 Nov 1999 09:57:53 GMT
From: sgrantz@visi.com (Steve Grantz)
Subject: module proposal for WML
Message-Id: <BudT3.644$rK2.48201@ptah.visi.com>
Keywords: WML,WAP
WML (wireless markup language) is a valid XML subset developed
by the WAP (wireless application protocol) Forum, http://www.wapforum.org .
I am building a library of functions to be accessed as virtual methods
that will produce valid WML text through
the use of named paramter attributes.
While I realize B. Holzman's XML::Generator module would do an excellent
job of this, by building a specific subset of functions I hope to create
a library that enforces the WML standards as developed by the WAP
Forum, and therefore gives a helping hand in validation. These would
be similar to the CGI form functions of L. Stein's CGI.pm.
I think an appropriate name might then be XML::WML.
I would love to hear comments on this idea, especially its
place in the namespace, the extent to which the functions should
enforce valid WML standards, and other areas.
-Steve
--
http://www.visi.com/~sgrantz
------------------------------
Date: 1 Nov 1999 08:28:56 GMT
From: eric@fruitcom.com (Eric Smith)
Subject: multiline editing
Message-Id: <slrn81qjq7.lr2.eric@plum.fruitcom.com>
I was appealing in the comp.lang.python group for an equivalent to my
favourite method of prototyping in perl i.e.
perl -e '..multiline.."
Someone came back with the suggestion of a here-documnet in zsh - this
works great but can someone tell me how I may get it to work in perl if at
all.
Thanx
usenet exchange follows:
========================
Eric> one liners are useful:
Eric> 1. I use their history arrows to access them from the unix shell
Eric> 2. You can use the unix fc for editing long ones
Eric> 3. You can paste them into your scripts.
Eric> 4. They are easy to go back to and edit etc.
I usually either run a python session in an xterm (bad for multiline), or
do python -c '...' multiline. In zsh ;-)
Really, try the zsh... I with readline were as good as zsh's ZLE.
Kick-Ass (really) multiline editing. And a history that correctly
deals with it.
You can also edit here-documents...
~ % python <<EOF
heredoc> class MyTest:
heredoc> def __init__(self):
heredoc> print "I'm ready"
heredoc>
heredoc> a = MyTest()
heredoc> EOF
I'm ready
~ %
Which is much better than -c, because you don't have to worry about
quoting (the snippet above, with the ' inside a ", gets complicated
inside *another* pair of ')
Go back in history, and edit the little snippet... no problem.
--
Eric Smith
eric@fruitcom.com
www.fruitcom.com
unix perl - terrorising the tautologists.
------------------------------
Date: 31 Oct 1999 23:10:00 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Need Help!
Message-Id: <slrn81q845.66b.abigail@alexandra.delanet.com>
jingdong li (jingdongli@networld.com) wrote on MMCCLII September MCMXCIII
in <URL:news:381cb3d1@nntp.networld.com>:
'' I am a beginner in perl, right now I got a question. Can somebody tell me
'' how can I get and install the perl interpreter on my homecomputer so I can
'' test my cgi program on my PC. Right now, I just write done my cgi program
'' and then upload to unix machine to test it. It took a lot of time.
'' Thanks a lot!
You download Perl. You read the instructions. You follow the instructions.
You have Perl installed. You download a web server. You read the
instructions. You follow the instructions. You have your web server
installed. Your read more instructions. You configure your webserver. You
start your webserver.
You are now ready to test your CGI program.
If you have any detailed questions about the *first* line of my reply,
feel free to ask a more detailed question. The rest is off topic to
this group.
Abigail
--
perl -wlne '}for($.){print' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 01 Nov 1999 20:58:06 +1100
From: Geoff Roberts <groberts@itc.com.au>
Subject: Need routine to find banned or "Bad" words
Message-Id: <381D642E.C27C9D66@itc.com.au>
Hi,
I was after a routine that I could use to look up either reserved or
banned words (eg. rude or offensive words and system reserved words).
This is primarily for logins and email addresses.
Does anyone know of such a routine? Does anyone also know of any
dictionary files that might contain such words?
Thanks
Geoff
------------------------------
Date: 01 Nov 1999 21:13:02 +1100
From: Tim Potter <Tim.Potter@anu.edu.au>
Subject: Re: Perl disallowed at ACM programming contests?
Message-Id: <6y7lk2ed01.fsf@anu.edu.au>
bart.lateur@skynet.be (Bart Lateur) writes:
> Mark W. Schumann wrote:
>
> >This is just killing me. ACM is now handing out Visual C++ as a
> >"prize"?
>
> They probably got it somewhere for free.
For some reason all the ACM programming competitions I've seen have
been sponsored by Microsoft.
I didn't know what to do with my prize either. (-: It think it was
some odd version of Visual Basic.
Tim.
--
Tim Potter, System Admin/Programmer "Disco Stu doesn't advertise"
Advanced Computational Systems CRC, RSISE Bldg Australian National University,
Canberra 0200, AUSTRALIA Ph: +61 2 62798813 Fax: +61 2 62798602
------------------------------
Date: 31 Oct 1999 23:42:39 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Perl4 and Y2K
Message-Id: <m1iu3mwtcg.fsf@halfdome.holdit.com>
>>>>> "Kragen" == Kragen Sitaker <kragen@dnaco.net> writes:
Kragen> But what's wrong with Perl4 Y2K-wise?
See Deja for "perl4" and "y2k" posted by me.
Hint: the warning I posted has two meanings. You may have misread it.
That's deliberately so. :)
--
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: Mon, 01 Nov 1999 08:45:43 GMT
From: nospam.newton@gmx.li (Philip 'Yes, that's my address' Newton)
Subject: Re: Perl4 and Y2K
Message-Id: <381d5317.701436768@news.nikoma.de>
On 31 Oct 1999 23:42:39 -0800, merlyn@stonehenge.com (Randal L.
Schwartz) wrote:
>>>>>> "Kragen" == Kragen Sitaker <kragen@dnaco.net> writes:
>
>Kragen> But what's wrong with Perl4 Y2K-wise?
>
>See Deja for "perl4" and "y2k" posted by me.
That found only the message that started this thread.
Care to post a more specific Deja URL with article number?
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
------------------------------
Date: Mon, 01 Nov 1999 00:00:20 -0600
From: James Moore <bokler_1@hiwaay.net>
Subject: Re: regsrv32
Message-Id: <nSsdOPGvCJdtpBL2HAE8Ui3tq8qq@4ax.com>
Try looking under regsvr32.exe (there's no such thing as
regsrv32.exe). It should be in your winnt\system32 directory.
James Moore
On Fri, 29 Oct 1999 17:21:23 +0200, MATTHIAS DRESCHER
<MATTHIAS.DRESCHER@mchr2.siemens.de> wrote:
>can anybody tell me what is regsrv32 and where I can find it ?
>by the way: itīs not in my system32-dirctory.
>
>is it in a rescourcekit ??
>
>thanks Metty
------------------------------
Date: Mon, 01 Nov 1999 09:19:21 GMT
From: dVoon <dvoon@my-deja.com>
Subject: Report page-break and page-count
Message-Id: <7vjlum$lov$1@nnrp1.deja.com>
Hi all,
I have a series of reports to print. Each report resites in a different
subroutine, has its own format and top-of-page-format and so on. What I
want is to force a page-break and reset the page count after every
report. I have this subroutine below:
sub linefeed{
$~ = "LINEFEED";
write( STDOUT );
$% = 0;
$- = 0;
format LINEFEED =
.
}
so that I can do something like:
&report1();
&linefeed();
&report2();
&linefeed();
&report3();
:
The problem is, if I set the $% to 0, it won't linefeed. If I remove the
line $%=0, it linefeeds but page-count won't be correct. I knew the
problem is that the next linefeed won't be triggered unless
top-of-page-format is triggered with a page-count not equal to 0. But I
just don't know how to solve the problem. Any idea? Thanks.
Daniel
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 01 Nov 1999 09:20:23 GMT
From: dVoon <dvoon@my-deja.com>
Subject: Report page-break and page-count
Message-Id: <7vjm0i$lql$1@nnrp1.deja.com>
Hi all,
I have a series of reports to print. Each report resites in a different
subroutine, has its own format and top-of-page-format and so on. What I
want is to force a page-break and reset the page count after every
report. I have this subroutine below:
sub linefeed{
$~ = "LINEFEED";
write( STDOUT );
$% = 0;
$- = 0;
format LINEFEED =
.
}
so that I can do something like:
&report1();
&linefeed();
&report2();
&linefeed();
&report3();
:
The problem is, if I set the $% to 0, it won't linefeed. If I remove the
line $%=0, it linefeeds but page-count won't be correct. I knew the
problem is that the next linefeed won't be triggered unless
top-of-page-format is triggered with a page-count not equal to 0. But I
just don't know how to solve the problem. Any idea? Thanks.
Daniel
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 01 Nov 1999 09:21:23 GMT
From: dVoon <dvoon@my-deja.com>
Subject: Report page-break and page-count
Message-Id: <7vjm2f$lqu$1@nnrp1.deja.com>
Hi all,
I have a series of reports to print. Each report resites in a different
subroutine, has its own format and top-of-page-format and so on. What I
want is to force a page-break and reset the page count after every
report. I have this subroutine below:
sub linefeed{
$~ = "LINEFEED";
write( STDOUT );
$% = 0;
$- = 0;
format LINEFEED =
.
}
so that I can do something like:
&report1();
&linefeed();
&report2();
&linefeed();
&report3();
:
The problem is, if I set the $% to 0, it won't linefeed. If I remove the
line $%=0, it linefeeds but page-count won't be correct. I knew the
problem is that the next linefeed won't be triggered unless
top-of-page-format is triggered with a page-count not equal to 0. But I
just don't know how to solve the problem. Any idea? Thanks.
Daniel
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 01 Nov 1999 09:25:43 GMT
From: dVoon <dvoon@my-deja.com>
Subject: Report pagebreak & page-count
Message-Id: <7vjmaj$m4p$1@nnrp1.deja.com>
Hi all,
I have a series of reports to print. Each report resites in a different
subroutine, has its own format and top-of-page-format and so on. What I
want is to force a page-break and reset the page count after every
report. I have this subroutine below:
sub linefeed{
$~ = "LINEFEED";
write( STDOUT );
$% = 0;
$- = 0;
format LINEFEED =
.
}
so that I can do something like:
&report1();
&linefeed();
&report2();
&linefeed();
&report3();
:
The problem is, if I set the $% to 0, it won't linefeed. If I remove the
line $%=0, it linefeeds but page-count won't be correct. I knew the
problem is that the next linefeed won't be triggered unless
top-of-page-format is triggered with a page-count not equal to 0. But I
just don't know how to solve the problem. Any idea? Thanks.
Daniel
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 01 Nov 1999 09:41:19 GMT
From: dVoon <dvoon@my-deja.com>
Subject: Report pagebreak & page-count
Message-Id: <7vjn7v$ml0$1@nnrp1.deja.com>
Hi all,
I have a series of reports to print. Each report resites in a different
subroutine, has its own format and top-of-page-format and so on. What I
want is to force a page-break and reset the page count after every
report. I have this subroutine below:
sub linefeed{
$~ = "LINEFEED";
write( STDOUT );
$% = 0;
$- = 0;
format LINEFEED =
.
}
so that I can do something like:
&report1();
&linefeed();
&report2();
&linefeed();
&report3();
:
The problem is, if I set the $% to 0, it won't linefeed. If I remove the
line $%=0, it linefeeds but page-count won't be correct. I knew the
problem is that the next linefeed won't be triggered unless
top-of-page-format is triggered with a page-count not equal to 0. But I
just don't know how to solve the problem. Any idea? Thanks.
Daniel
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 31 Oct 1999 23:25:56 -0600
From: abigail@delanet.com (Abigail)
Subject: Re: Setuid Problem
Message-Id: <slrn81q920.66b.abigail@alexandra.delanet.com>
Chris Moewes (cmoewes@pobox.com) wrote on MMCCLIII September MCMXCIII in
<URL:news:381CF423.6D138446@pobox.com>:
$$ Given the following veru basic indea
$$
$$ #!/usr/bin/perl
$$ $userid = $ARGV[0];
$$ $passwd = $ARGV[1];
$$
$$ system "adduser -d /home/${userid} -p $passwd $userid";
$$
$$
$$ Which will create a user account when run as root. How do I modify this
$$ to make it work when run as a non-root user. I know the set chmod a+s,
Eew. Why would you want non-root users add new users?
$$ but then the script complains.
Did you read perlsec?
$$ I understand that you have to use the
$$ multi argument version of system but when I try to
$$
$$ system "adduser", " -d /home/${userid} -p $passwd $userid";
$$
$$ It doesn't seem to work. I appears that it passes the whole second
$$ string as the arguement to adduser, but it thinks that the whole string
$$ is the username. I don't know how to encapusuate the variables so I can
$$ pass them to adduser properly. Anyhelp greatly appreciated.
Well, you to pass it a list where each argument is an element in the list:
system adduser => -d => "/home/$userid},
-p => $passwd,
$userid;
Abigail
--
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 1 Nov 1999 01:16:52 -0500
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: What makes the web go?
Message-Id: <7vjb8k$haj@junior.apk.net>
In article <gUOR3.184$z73.4674@nsw.nnrp.telstra.net>,
Martien Verbruggen <mgjv@comdyn.com.au> wrote:
>On 27 Oct 1999 20:13:05 -0500,
> Abigail <abigail@delanet.com> wrote:
>> Randal L. Schwartz (merlyn@stonehenge.com) wrote on MMCCXLVIII September
>> MCMXCIII in <URL:news:m1k8o8ub1z.fsf@halfdome.holdit.com>:
>>
>> -- No, nobody doing the kind of volume that Yahoo or Amazon.com gets
>> -- could *ever* use M$ products. Most likely Oracle or Sybase instead.
>> -- (Seriously.)
>>
>> Well. It should be said that M$'s SQL server and Sybase's ASE [1]
>> come from the same parent: Sybase SQL server 4.something.
>Yes, but ASE has come a long long way since version 4.9. It has come a
>long long way since version 10 :) MS SQL hasn't had the same sort of
>improvement to it's internals.
Indeed.
Over on news.admin.net-abuse.email we have someone from Microsoft
saying that they can't clean up their mailing lists (to remove people
who, for example, never signed up for them) because of limitations in
the database.
Okay, in all fairness, he said they can't do it _quickly_, because it
is _complicated_.
Betcha they're not using Oracle.
------------------------------
Date: 1 Nov 1999 01:18:26 -0500
From: catfood@apk.net (Mark W. Schumann)
Subject: Re: What makes the web go?
Message-Id: <7vjbbi$hfi@junior.apk.net>
In article <S6YWOKQ6jKdBbwXIKAi81+lSdtp=@4ax.com>,
Master The Web <jjklimeck@home.com.com> wrote:
>What programming language powers sites like amazon, or
>yahoo?
You got some other good answers. But I want you to walk away with this:
Perl is not CGI. CGI is not Perl.
Perl is not Apache. Apache is not Perl.
Only Perl is Perl, unless you count perl.
------------------------------
Date: Mon, 01 Nov 1999 02:48:32 -0500
From: brian@smithrenaud.com (brian d foy)
Subject: Re: What makes the web go?
Message-Id: <brian-0111990248320001@134.new-york-61-62rs.ny.dial-access.att.net>
In article <7vjbbi$hfi@junior.apk.net>, catfood@apk.net (Mark W. Schumann) wrote:
> Perl is not CGI. CGI is not Perl.
certainly true.
> Perl is not Apache. Apache is not Perl.
that's a little fuzzy, because my apache is perl ;)
--
brian d foy
Perl Mongers <URI:http://www.perl.org>
CGI MetaFAQ
<URI:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
------------------------------
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 V9 Issue 1241
**************************************
