[13202] in Perl-Users-Digest
Perl-Users Digest, Issue: 612 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 22 02:07:18 1999
Date: Sat, 21 Aug 1999 23:05:10 -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 Sat, 21 Aug 1999 Volume: 9 Number: 612
Today's topics:
Re: Artistic License <rra@stanford.edu>
Re: How to print a date in ISO week # format (Abigail)
Re: Is there a similar Perl command to C's gotoxy? <meowing@banet.net>
Re: matching <hanenkamp@networksplus.net>
Re: Message-ID vs. Reference Header (Abigail)
Re: Message-ID vs. Reference Header (J. Moreno)
most efficient method to communicate over sockets <chirstius@mediaone.net>
Re: Newsgroup archive (Abigail)
Re: Newsgroup archive <rra@stanford.edu>
Re: Packages and parent packages (Abigail)
Pattern Match - Don't Understand this particular one <splinter@monmouth.com>
Re: Permission problems: writing/running a .bat file vi <nospam.shardy@seanet.com>
Re: regular expressions in Perl and Oracle/SQL (Abigail)
Re: reverse() weirdness (Abigail)
Re: String to Int (Abigail)
Re: Subroutine redefined every time? Perl mod_perl apac (Abigail)
Substitute <darren01@pacbell.net>
Re: Testing (Abigail)
use of flock()... <kalexa2@_NOSPAM_mindspring.com>
Re: Why use Perl when we've got Python?! <xah@best.com>
Re: Why use Python when we've got Python? <xah@best.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Aug 1999 21:06:11 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Artistic License
Message-Id: <ylg11cbgss.fsf@windlord.stanford.edu>
Andrew Sterling Hanenkamp <hanenkamp@networksplus.net> writes:
> Can someone answer this for me? I wish to use the code in toke.c and a
> couple other Perl headers from the source to implement a syntax
> highlighter for Code Crusader--a programming IDE. Is this legal?
It's definitely and unquestionably legal if Code Crusader is released
under the GPL.
If Code Crusader is proprietary software, then you can't use the GPL
license Perl is covered under, and you have to switch to the Artistic.
The relevant clause appears to be:
| 3. You may otherwise modify your copy of this Package in any way,
| provided that you insert a prominent notice in each changed file stating
| how and when you changed that file, and provided that you do at least
| ONE of the following:
|
| a) place your modifications in the Public Domain or otherwise make
| them Freely Available, such as by posting said modifications to
| Usenet or an equivalent medium, or placing the modifications on a
| major archive site such as uunet.uu.net, or by allowing the
| Copyright Holder to include your modifications in the Standard
| Version of the Package.
You may want to consider doing this. In other words, you have to make
publically available whatever modifications you made to toke.c and the
headers to use it as part of Code Crusader.
| b) use the modified Package only within your corporation or
| organization.
This is presumably not acceptable for you.
| c) rename any non-standard executables so the names do not conflict
| with standard executables, which must also be provided, and provide
| a separate manual page for each non-standard executable that clearly
| documents how it differs from the Standard Version.
You may be able to take this route. Clearly the executable isn't going to
be named Perl, so depending on just how you interpret that clause, you
could potentially rather trivially fulfill it. You do need to include
documentation that clearly states how toke.c that you used differs from
the original.
| d) make other distribution arrangements with the Copyright Holder.
This is always a possibility.
The provisions for binary distribution are similar. Alternately, you
could look at clause 8:
| 8. Aggregation of this Package with a commercial distribution is always
| permitted provided that the use of this Package is embedded; that is,
| when no overt attempt is made to make this Package's interfaces visible
| to the end user of the commercial distribution. Such use shall not be
| construed as a distribution of this Package.
I personally have no idea whether this would apply to your use or not, but
it might.
> If so, what credit do I need to give to Larry Wall and anyone else who's
> worked on these files? Where should the credit be given? Just in the
> source files? Or should I instruct the author of Code Crusader to put
> something in the release notes or elsewhere?
Credit isn't a legal requirement of the Artistic License, just good form.
I think it would be polite and respectful to give credit to Larry Wall and
the others who have made substantial contributions to the code in the
release notes of the product.
> I just want to make sure I have legal priveleges to use the code before
> I do and give credit where it's due. I couldn't find anything in the
> Artistic License that implicitly or explicitly granted me such a
> privelege so I just wanted to find out from somebody who really knows
> and this seemed the place to start.
The Artistic License is, in my opinion, very imprecisely phrased, so
you're going to have difficulty finding people who can tell you exactly
what it means. You may want to go straight to the top, so to speak, and
mail Larry Wall and ask him what provisions he'd like you to make.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 21 Aug 1999 20:15:37 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to print a date in ISO week # format
Message-Id: <slrn7rujrh.c9p.abigail@alexandra.delanet.com>
Juan Riera (jriera@retemail.es) wrote on MMCLXXXI September MCMXCIII in
<URL:news:7pm0ea$9fu1@SGI3651ef0>:
$$ Hello,
$$ I have a table created in MS Access as Time/Date and exported to MySQL,
$$ afterwards I delete it from Access and vincule again to MySQL, so it retains
$$ time/date format.
$$ I need to format output to a CGI perl script as #week ISO (first week of
$$ the year is the week with four or more days on it, or the first week with
$$ thursday on it). MySQL has a week formatting option that formats dates as
$$ week number, i.e. week #1 is the week with 1st of January on it, and this is
$$ not what I need.
Well, that's easy. Get the week number from MySQL. Find out the day the
first of January is that year. If it's on a Friday, Saturday or Sunday,
subtract 1 from the week number.
However, you have to special case weeks 52 and 53. If the weeknumber is
52 or 53, and the date is in January, the weeknumber will become 1 if the
day of the week is Tuesday, Wednesday, or Thursday. Else, you will have
to look up the day of the week of the first of January of the *previous*
year. If that's a Friday, Saturday or Sunday, substract 1 from 52 or 53.
Icky, isn't it? Don't you wish the entire world would just use ISO standards?
Abigail
--
$" = "/"; split $, => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
-----------== 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: 22 Aug 1999 00:56:50 -0400
From: meow <meowing@banet.net>
Subject: Re: Is there a similar Perl command to C's gotoxy?
Message-Id: <87wvuopg4t.fsf@slip-32-100-244-100.ma.us.ibm.net>
Anthony Kirby <akirby@cableregina.com> wrote:
> I was wondering if there was a command that would allow me to move the caret
> (block curser) in a ascii environment to a specific place on the screen?
See the stock Term::Cap module for a simple, reasonably portable
interface. If you want something more capable, check out Curses and
Term::Slang in CPAN.
> I am currently re-drawing all 24 lines in order to move the curser from
> the bottom of the screen, to the top.
Kinda slow and yucky, but it will work anywhere :P
------------------------------
Date: Sat, 21 Aug 1999 20:17:58 -0500
From: Andrew Sterling Hanenkamp <hanenkamp@networksplus.net>
Subject: Re: matching
Message-Id: <37BF4FC5.64F0B33E@networksplus.net>
You have multiple problems here with your code. To convert you "HH:mm PM
M/D/YY" model to "YYMMDD", I might do something like this:
$new_date = $3 . $1 . $2 if $old_date =~ /(\d\d?)\/(\d\d?)\/(\d\d)$/;
This match will catch anything ending in x/y/z while ignoring the first part.
It will assign the $new_date a concatenated value stored in $1, $2, $3 which
are all created by the matches inside of the parenthesis in order. Also, the
"\d" is identical to "[0-9]" and the question marks after the second "\d" allow
those matches to match either one or two digits. (Question mark makes the
preceding match item optional.)
John Corbin wrote:
> I am trying to pick apart a string that will contain a date in it formattted
> as this
>
> 12:16 PM 8/9/99
>
> So I need to convert the date to YYMMDD format and I thought I could do
> something like:
>
> $month_temp=~/[0-9]\//)
>
> to get it into $1 for the month field and $2 should have the day field, but
> its not working :( Could someone skool me in the matching that I am fouling
> up?
>
> --
> John
> jcorbin@apci.net
> biggunn@stomped.com
------------------------------
Date: 21 Aug 1999 20:23:08 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Message-ID vs. Reference Header
Message-Id: <slrn7ruk9k.c9p.abigail@alexandra.delanet.com>
-Sneex- (bill@fccj.org) wrote on MMCLXXX September MCMXCIII in
<URL:news:200819991510293244%bill@fccj.org>:
,, [[ This message was both posted and mailed: see
,, the "To," "Cc," and "Newsgroups" headers for details. ]]
Really? Where did you mail to? It never arrived here....
,, I can create NEW threads anytime - but not actually to reply to a
,, thread. Not unless the orginal poster was kind enough to publish the
,, original References line as you have done.
,,
,, Any thoughts? Anybody?
,,
,, --------------------------------------------------------------
,, The (partial) HEADERS as found by my disfunctional news server:
,,
,, From: abigail@delanet.com (Abigail)
,, Newsgroups: comp.lang.perl.misc
,, Subject: Re: Message-ID vs. Reference Header
,, References: <199908161211.IAA23961@astro.fccj.cc.fl.us>
These headers are fine - assuming the Message-ID header is there and
you didn't copy it. I didn't do anything special to get those there. It
looks to me you're blaming the wrong party. Your news server is giving
you all the information you need. Perhaps the tool you use to compose
replies is utterly inadequate?
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== 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: Sat, 21 Aug 1999 23:24:30 -0400
From: planb@newsreaders.com (J. Moreno)
Subject: Re: Message-ID vs. Reference Header
Message-Id: <1dwwt4h.24thp2z6qlh4N@roxboro0-0006.dyn.interpath.net>
-Sneex- <bill@fccj.org> wrote:
> [[ This message was both posted and mailed: see
> the "To," "Cc," and "Newsgroups" headers for details. ]]
>
> > From: abigail@delanet.com (Abigail)
> > Message-Id: <slrn7rqq6l.bq6.abigail@alexandra.delanet.com>
-snip-
> > The same ID should not appear in both headers. And Message-ID isn't a
> > substitute for the References line either.
>
> I agree. :] Scary huh?
Not really -- the standards are crystal clear on this point.
> After a lot of research I believe that I will not be
> able to post to a 'threaded' discussion via a mail gateway.
>
> I can create NEW threads anytime - but not actually to reply to a thread.
> Not unless the orginal poster was kind enough to publish the original
> References line as you have done.
>
> Any thoughts? Anybody?
I'd like to find out exactly what your procedure for reading and
answering is...
> --------------------------------------------------------------
> The (partial) HEADERS as found by my disfunctional news server:
>
> From: abigail@delanet.com (Abigail)
> Newsgroups: comp.lang.perl.misc
> Subject: Re: Message-ID vs. Reference Header
> References: <199908161211.IAA23961@astro.fccj.cc.fl.us>
If I recall correctly you are getting clpm through a mailing list, the
script that I sent you that let's you reply using YA to a message that
you downloaded with OE can easily be modified to include a References
header (in fact I have recently done so).
I'm not sure why this message shows that you tried to post and mail, but
that doesn't help convince me that you aren't simply making a mistake.
--
John Moreno
------------------------------
Date: Sat, 21 Aug 1999 22:07:47 -0500
From: "Chuck Hirstius" <chirstius@mediaone.net>
Subject: most efficient method to communicate over sockets
Message-Id: <iOJv3.13233$s%1.51798875@rmnws01.ce.mediaone.net>
I'm coding up a program to do remote admin of many NT boxes, it basically
runs as a service, hooks onto a port and listens for a remote login, it then
allows you to get a report of drives capacity, memory usage, and various
other tidbits. I would also like to add the abilty to start and stop
services, or run certain applications. So here's my question, many of the
remote machines are on a satellite connection and transmission speed is
slower then a 28.8 modem, what is the most effiecient way to send "commands"
to these machines over a socket connection? Currently I'm using plain text
stuff like "get memory" and parsing it out on the other end, this is fine
for testing, and over a local lan spped is no problem, but for security and
bandwidth issues I feel I need to look into another way to do this. One
thought I had was pack() - ing the data, or using numeric messages, like
SNMP traps, anyone done anything like this? or have any suggestions? Please
reply by email whether or not you post a reply to the NG Thank you!!
Chuck
chirstius@mediaone.net
------------------------------
Date: 21 Aug 1999 20:37:12 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Newsgroup archive
Message-Id: <slrn7rul40.c9p.abigail@alexandra.delanet.com>
Irwin Feuerstein (websites@erols.com) wrote on MMCLXXXI September
MCMXCIII in <URL:news:37bf2718.78160438@news.erols.com>:
,, I have no idea what this message means, but I am aware of deja.com and
,, that is not what I want. Many mailing lists, for instance, have a way
,, to get a whole month of posts in one file, or a year's worth. Can I
,, get comp.lang.perl.misc by the month-ful, or the year-ful?
Unless they changed it recently, deja.com always had the option of
searching between 2 dates.
Figuring out the begin and end dates of a certain year are left as
an exercise to the reader.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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: 21 Aug 1999 20:58:31 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Newsgroup archive
Message-Id: <yliu68bh5k.fsf@windlord.stanford.edu>
Irwin Feuerstein <websites@erols.com> writes:
> In the spirit of helping oneself, is there an archive of messages for
> this newsgroup somewhere?
Wasn't there a full archive of all traffic to comp.lang.perl* stored in
mbox format on some CPAN site somewhere? Or is my memory playing tricks
with me?
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 21 Aug 1999 20:38:35 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Packages and parent packages
Message-Id: <slrn7rul6j.c9p.abigail@alexandra.delanet.com>
Donovan Rebbechi (elflord@panix.com) wrote on MMCLXXXI September MCMXCIII
in <URL:news:Pine.NEB.4.10.9908211720230.16039-100000@panix7.panix.com>:
== > In comp.lang.perl.misc you write:
== >
== > You seem to be redefining the idea of a parent class.
== > Why can't you just use normal inheritance? Or are you
== > really trying to work with sibling classes?
==
== I don't want to inherit all the methods from the parent
== class. Is there a way I can just inherit a select few ( ie make certain
== methods in the parent class non inheritable ) ? Maybe I should make a
== different class that's parent to both which includes the shared methods (
== I guess this is what you call a sibling class ) ?
Did you read the manpage of Exporter?
Abigail
--
sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f(
'%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f(
'%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f(
'%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f(
'%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,)))))))))))))))))))))))))
-----------== 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: Sat, 21 Aug 1999 23:14:39 -0400
From: "Matt" <splinter@monmouth.com>
Subject: Pattern Match - Don't Understand this particular one
Message-Id: <7pnpul$5b9$1@news.monmouth.com>
Hi,
I have this pattern match that grabs the file name out of a path name...for
instance if you have a string that says:
C:\windows\desktop\thing.jpg
This pattern should grab just "thing.jpg" and it does but I don't understand
FULLY why and am asking for a little help if anyone doesn't mind.
/([^\/\\]+)$/
So the ( ) just reserves the stuff in there into variable $1 for later...
But in English this says what? Take the end of the string ($) up to (+) a
part where it begins with a / or a \ (^).
Am I translating that correctly? Anyone like to clear this up?
Thanks!
-Matt
------------------------------
Date: Sat, 21 Aug 1999 22:27:39 -0700
From: "steve hardy" <nospam.shardy@seanet.com>
Subject: Re: Permission problems: writing/running a .bat file via perl under IIS
Message-Id: <7po1lv$7c5$1@q.seanet.com>
> the problem is that the web server (devadmin01) sits on a different server
> then the SourceSafe database (devwenb01). i am unable to get access to the
> shared directory that holds the SourceSafe db with the current web
> configuration.
>
> i created a simple perl script to test this. and it always gives me
"Access
> Denied". i also found a win32 version of "whoami". and guess what. . .the
> user the script runs as is "SYSTEM".
>
> i guess the question is "how do i make the perl script run as another user
> then SYSTEM?" is the problem with IIS or is it with the perliis.dll from
> ActiveState?
>
it's an NT thing. The SYSTEM user doesn't get any inherent right to access
network resources.
One simple remedy is to issue a NET USE command with the credentials of an
account with sufficient access to the target resource.
e.g.,
NET USE \\devwenb01\sourcesafeshare /u:mydomain\myusername myuserpassword
(Do this before trying to access the resource. When i do this, i set up a
specific account whose only access is to that resource... There are various
strategies to avoid having to put the password into your script.)
steve
http://www.seanet.com/~shardy/ntscript.html
------------------------------
Date: 21 Aug 1999 20:48:26 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: regular expressions in Perl and Oracle/SQL
Message-Id: <slrn7rulp2.c9p.abigail@alexandra.delanet.com>
SZEKERES Istvan (szekeres@sysdata.siemens.hu) wrote on MMCLXXIX September
MCMXCIII in <URL:news:slrn7ro94i.75b.szekeres@pc0504sd.sysdata.siemens.hu>:
?? In article <37BC1D7B.3F854DDB@infineon.com>, Philippe Emeriau wrote:
?? >I would like to know if there is somewhere in Perl a function that
?? >computes a regular expression and gives the result stored inside a
?? >string ?
?? >Example : the regexp is "foo[1-6]", and I would like to store the result
?? >"foo1 foo2 foo3 foo4 foo5 foo6" in a variable.
??
?? Tell me please what value do you expect for the regexp "a.*b" :-)
" a ---+-------------------+--> b
^ |
| |
+--- [\x00-\xFF] <--+ "
HTH. HAND.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== 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: 21 Aug 1999 21:07:00 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: reverse() weirdness
Message-Id: <slrn7rumrs.c9p.abigail@alexandra.delanet.com>
IGuthrie (iguthrie@aol.com) wrote on MMCLXXVIII September MCMXCIII in
<URL:news:19990818194558.21912.00001319@ng-ch1.aol.com>:
?? Hi I was mucking around with reversing a flat file so that the first line would
?? end up on the bottom. Anyway I wrote a two line program to do this and print
?? the reversed file to STDOUT.
??
?? If I do this it works fine:
?? open(FILE, "$file") || die "$! $file\n";
?? print reverse(<FILE>);
??
?? But if I do this:
?? open(FILE, "$file") && print reverse(<FILE>) || die "$! $file\n";
??
?? Not only does it reverse the order of the file but all of the charactes in the
?? file are printed in reverse order. Why does one do one thing and he other do
?? another?
That's due to precedence. Your second line parses as:
open (FILE, $file) &&
(print (reverse (<FILE>) || die "$! $file\n"));
Now, reverse provides list context to its argument, so <FILE> will slobber
in all lines. || provides scalar context to its arguments. reverse in scalar
context will return the reverse of all its arguments *IN REVERSE ORDER*.
Hence your result.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
-----------== 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: 22 Aug 1999 00:38:53 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: String to Int
Message-Id: <slrn7rv395.c9p.abigail@alexandra.delanet.com>
Daniel M. Phiffer (dphiffer@orion.ac.hmc.edu) wrote on MMCLXXVIII
September MCMXCIII in <URL:news:7pdp71$qqt$1@nntp1.interworld.net>:
"" I have a beginner's question: how do I convert from a string to an
"" int? (i.e. "32" compared to 32) Thanks.
You'd write an XS module that calls 'atoi' for you, and you link
in the resulting library.
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
-----------== 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: 22 Aug 1999 00:41:08 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Subroutine redefined every time? Perl mod_perl apache
Message-Id: <slrn7rv3dc.c9p.abigail@alexandra.delanet.com>
Brian P. Barnes (bbarnes@austin.ibm.com) wrote on MMCLXXIX September
MCMXCIII in <URL:news:37BBF656.5D19F147@austin.ibm.com>:
%% Hi,
%%
%% I am using mod_perl with a bunch of Perl modules
%% compiled into it. I have a rather long
%% program which runs under Apache and every time someone
%% clicks a button, I get a
%% message similar to the following for every function I
%% have:
A 17 character left margin, just to create lines over 80 characters?
Go away.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== 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: Sat, 21 Aug 1999 18:34:37 -0700
From: "Darren" <darren01@pacbell.net>
Subject: Substitute
Message-Id: <IrIv3.2247$36.293335@typhoon-sf.snfc21.pbi.net>
Hi
Heres what I need to be able to do ...
I have a line of text like ...
one two three four
I need to remove the spaces, replace them with a , and then call them from a
variable like $num[0] $num[1].
All help appreciated.
Regards
Darren
------------------------------
Date: 22 Aug 1999 00:58:31 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Testing
Message-Id: <slrn7rv4du.c9p.abigail@alexandra.delanet.com>
¶ÂȘL¶w (stupid@people.comos) wrote on MMCLXX September MCMXCIII in
<URL:news:7oocih$5f2$1@justice.csc.cuhk.edu.hk>:
.. Testing only
*ploink*
Abigail
--
perl -e '$a = q 94a75737420616e6f74686572205065726c204861636b65720a9 and
${qq$\x5F$} = q 97265646f9 and s g..g;
qq e\x63\x68\x72\x20\x30\x78$&eggee;
{eval if $a =~ s e..eqq qprint chr 0x$& and \x71\x20\x71\x71qeexcess}'
-----------== 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: Sun, 22 Aug 1999 00:36:19 -0500
From: "Kevin Alexander" <kalexa2@_NOSPAM_mindspring.com>
Subject: use of flock()...
Message-Id: <7po28n$9s8$1@nntp4.atl.mindspring.net>
I am writing a program that has a data file that needs some protection from
multiple accesses occurring at the same time.
The question is: Is flock() needed for NT based machines? If it isn't, will
it error out if flock() is used?
I suppose a better way of asking the question is: If I use flock() on an NT
machine, will it give me an error? -- ASSUMING I USE IT CORRECTLY :)
My PERL book doesn't touch flock().
Thanks..
--
Kevin Alexander
Shameless plug: http://www.aLawyerForMe.com
Bringing legal advice to the masses.
------------------------------
Date: Sat, 21 Aug 1999 21:19:47 -0700
From: "Xah" <xah@best.com>
Subject: Re: Why use Perl when we've got Python?!
Message-Id: <37bf7a63$0$8462@nntp1.ba.best.com>
----------
>From: Tom Christiansen <tchrist@mox.perl.com>
>Newsgroups: comp.lang.perl.misc
>Subject: Re: Why use Perl when we've got Python?!
>Date: 1999, Aug 13, , 5:44 PM
> > ...
> :
> :The Python FTP client module is designed to be a base class, not a user
> :class.
>
> Man, that's just superclever. You really expect to stuff all this
> complete OO crudolo down some poor script kiddie's throat complete
> just because they want a library that's simple to use? That's nutty.
> If that's all Python has, it's no wonder why they use Perl. Sheesh.
> Regular humans need to program, too, not merely the duly annointed
> OO indoctrinees.
>
> --tom
> --
> "Don't wear rollerskates to a tug-of-war." --Larry Wall
Exactly. For the same reason I pity how far our society has advanced. I
remember we use to use Roman Numerals. When the Arab number system were
introduced, millions of people complained, including me. Similarly, when
typewriters are invented, I and others got extremely offended. I heard that
one guy said something like "no thank you, I can read hand-written letters
just fine". Then there's the electronic calculator shit. I am a hard-core
slide ruler user. I don't need sticking "calculator", and I don't want to
hear theoretical advantages. Why change when it ain't broken? I can go on
and on, but the most infuriating thing is the propagation of math in the
last few centuries. They fucking ram that shit down every one's throat,
including my children. I couldn't myself deal with infinity clearly.
I don't want to be tooo bitter, since it's all in the past. Let bygones be
bygones, and live today. I think the important thing for us programers today
is to vehemently support the Perl principles, and let no computer scientists
gave us away to some fancy theories. Let's try to stay 100% pure natural and
human. No this functional or OOP shit.
Xah
xah@best.com
http://www.best.com/~xah/PageTwo_dir/more.html
--
"Don't shit in your pants" -- mom
------------------------------
Date: Sat, 21 Aug 1999 21:00:54 -0700
From: "Xah" <xah@best.com>
Subject: Re: Why use Python when we've got Python?
Message-Id: <37bf75f7$0$207@nntp1.ba.best.com>
----------
>From: Tom Christiansen <tchrist@mox.perl.com>
>Newsgroups: comp.lang.perl.misc,comp.lang.python
>Subject: Re: Why use Python when we've got Perl?
>Date: 1999, Aug 14, , 7:31 AM
>
> Certainly Perl's hooks into Unix are stronger than are its hooks for
> proprietary systems from Microsoft, Apple, or the erstwhile DEC, which
> even if existent, tend to manifest themselves as add-on modules rather
> than as original core functionality. This of course makes perfect
> historical sense, given the natal environment and concomitant problem
> domain.
>
> Nevertheless, "Perl: The Programmer's Companion" by Nigel Chapman
> (whose ambiguously worded title actually posits Perl as a companion
> of programmers) does a commendable job of providing a solid technical
> foundation for the language with nary a whit of system-specific arcana.
> This small and inexpensive volume (in which I aver no personal interest)
> stands head and shoulders above all others as the best introductory Perl
> book, especially for real programmers such as yourself. Script kiddies,
> tape operators, and all such ilk occasionally merit other recommendations,
> some of which occasionally include rather than a book title something
> on the order of, "Hey kid, hurry up with those french fries!" :-)
>
> --tom
You realize that book does the Perl community a de-service? It doesn't talk
about unix, the author uses MacPerl, it's written with clarity, real humor,
and exceptionally well organized. The worst is that it's written by an
computer scientist. <shudder>
No, I rather prefer YOUR opuses. Besides, yours are so popular and
voluminous that I can take it with me when I visit john and use it to wipe
my ass with spare.
I'm thinking of writing a comprehensive, free, quality Perl on-line manual
for the GNU project. Would you help out? Y'know, without your interjection,
I'll probably end up writing something like that Chapman fellow's.
Xah
xah@best.com
http://www.best.com/~xah/PageTwo_dir/more.html
"Perl my ass -- there are more than one way to express love too."
--Larry Wall, from antimatter universe.
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. Due to their sizes, neither the Meta-FAQ nor
the FAQ are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq" from
almanac@ruby.oce.orst.edu.
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 612
*************************************
