[9668] in Perl-Users-Digest
Perl-Users Digest, Issue: 3263 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 27 12:16:43 1998
Date: Mon, 27 Jul 98 09:01:28 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 27 Jul 1998 Volume: 8 Number: 3263
Today's topics:
Re: Announcement: ScriptV--a new language for 2D and 3D <jdporter@min.net>
bind() and connect() (The Wildman)
Compiling a script which uses Socket (Collin Rogowski)
Re: Date Question... <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: delete fiel after a certain date <r11630@email.sps.mot.com>
do loops in perl tljohn4@my-dejanews.com
Re: do loops in perl <nguyend7@egr.msu.edu>
do?user problems boyles@my-dejanews.com
Re: do?user problems (Abigail)
Dup STDERR to STDOUT under NT? <mortimer@ifrc.org>
Re: Dup STDERR to STDOUT under NT? <nguyend7@egr.msu.edu>
Expanding Pathnames <oneill@capsl.udel.edu>
Re: Expanding Pathnames (Abigail)
Re: getting the binary represenation of a number <nguyend7@egr.msu.edu>
help with parsing text <romank@graphnet.com>
Re: How can I get the name of the current subroutine ? (M.J.T. Guy)
Re: How to easily detect file perms on Unix files? <Borre.Fjeldso@ericsson.no>
Re: How to easily detect file perms on Unix files? <jdw@dev.tivoli.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: perl and setuid via WEB (apache) <NETtoyeur@usa.net>
Re: PLEASE HELP: Simple ascii to binary script <nguyend7@egr.msu.edu>
POST from perl? (Orlando Frooninckx)
Re: POST from perl? (Abigail)
Re: Reacting to 1 of 10 or so possible values.... Need (Mark-Jason Dominus)
Re: Reacting to 1 of 10 or so possible values.... Need <jdporter@min.net>
Re: Recent Secret Government Experiments Killing People <parera@teleline.es>
Re: Same code, diff machines, diff results <jdporter@min.net>
start win32 programs from perl for win32 creiner@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 27 Jul 1998 15:29:02 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Announcement: ScriptV--a new language for 2D and 3D animations and graphics
Message-Id: <35BC9E36.A0@min.net>
David Shang wrote:
>
> At last, high-level graphics software developments are no longer
> exclusively for the use of professional programmers.
At last, the 40,000th bloom of the
"You don't need to be a programmer to program, with our system"
meme.
--
John Porter
------------------------------
Date: 27 Jul 1998 14:36:24 GMT
From: the_wildman_98@hotmail.com (The Wildman)
Subject: bind() and connect()
Message-Id: <slrn6rp4ub.ikl.the_wildman_98@foobar.net>
Has the behavior of connect() changed from perl4 to perl5? I have a perl4
script that used to call bind() and then call connect(). For perl5, I had to
comment out the bind() or else connect() would hang.
--
The Wildman
PLEASE do NOT reply to this post! If you MUST email me, please use wildman at
microserve dot net, but a followup is preferred. If you DO reply to the
wrong address, I'll still read it but don't expect a reply. Unless you are a
spammer, in which case I will reply to your ISP.
Fight spam - http://www.cauce.org/
-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GCS/MU d- s: a- C++ UL+ P+ L+++ !E W-- N+++ o !K w--- !O !M V-- PS PE Y+ PGP?
t+ 5+ X R tv b++ DI+ D++ G e h---- r++++ y++++
------END GEEK CODE BLOCK------
------------------------------
Date: Mon, 27 Jul 1998 14:09:22 GMT
From: collin@rogowski.de (Collin Rogowski)
Subject: Compiling a script which uses Socket
Message-Id: <35bc8921.518821315@news.uni-X.net>
I just installed the latest perl. I want to compile (using perlcc) a
simple script which uses "Socket". If I just say "perlcc
socket_test.pl" I get an error messag about undfeined references.
After I read the manpages to B::CC and B::C I figured out I have to
compile Socket individually. I did that (resulting in Socket.so). But
what shall I do now. How can I tell the Perl-Compiler (or my
Perl-Source or my C-Source ???) that it should use Socket.so to get
the necessary functions.
Help appreciated,
Collin Rogowski
uni-X Software GmbH
------------------------------
Date: 24 Jul 1998 18:18:20 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Date Question...
Message-Id: <7xk953gr3n.fsf@fidelio.vcpc.univie.ac.at>
Re: Date Question..., Richard <rkim@temple.edu> said:
Richard> interested in getting yesterday's date using the
Richard> localtime function. Any other method would be
Richard> nice, but I am not interested in writing a long
Richard> drawn out program just to extract yesterday's date.
perldoc -f localtime
localtime's parameter is a value representing seconds since
the epoch. If not given, the implicit value is that of
`time', which gives the number of seconds since the epoch
*now*.
The number of seconds in a day is (24 * (60 * 60)) = 86400
Yesterday therefore = now - 86400
And the rest is AEFTR...
Richard> ^[[5;1m rkim@temple.edu ^[[0m
All the world is vt100? Makes a change from a VAX I suppose :-)
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, AT | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | personal email:
Stupid! Stupid!" ~ Eros, Plan9 fOS. | tony_curtis32@hotmail.com
------------------------------
Date: Mon, 27 Jul 1998 15:45:28 +0100
From: Michael Scott <r11630@email.sps.mot.com>
To: Anthony Luke Nelson <tony.nelson@mci.com>
Subject: Re: delete fiel after a certain date
Message-Id: <35BC9288.828794@email.sps.mot.com>
This can easily be done using find, either the good ol' fashioned
UNIX flavour, or using the File::Find module. The UNIX version would
be something like:
my_prompt>> find /usr/common/foo -mtime +3 -exec /bin/rm -rf {} \;
You could also use the find2perl program to convert this to a stand-
alone PERL script. There is a good example in the Camel book, p439.
Enjoy......
Michael.
------------------------------
Date: Mon, 27 Jul 1998 15:28:04 GMT
From: tljohn4@my-dejanews.com
Subject: do loops in perl
Message-Id: <6pi6a4$lea$1@nnrp1.dejanews.com>
What's wrong with this code, I see this type of construct a lot of places in
my new job and it looks ok but doesn't seem to work. #!/usr/local/bin/perl -w
use strict; my $process = "exit"; if (-e "mport.lock") { do { sleep(1);
print "$^T\n"; last if ($process ne 'process'); }until( (-z "mport.list")
&& (-z "mport.todo") ) }
I know how to make it work, that's not my question, something like this
works. #!/usr/local/bin/perl -w use strict; my $process = "exit"; if (-e
"mport.lock") { until( (-z "mport.list") && (-z "mport.todo") ) {
sleep(1); print "$^T\n"; last if ($process ne 'process'); } } but why
doesn't the first code work. What you get is the following output from the
first code: 901552616 Can't "last" outside a block at ./tmp.pl line 9. Terry
Johnson mailto:tljohn4@uswest.com Thanks to anyone with the interest to help
me on this.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 27 Jul 1998 15:49:26 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: do loops in perl
Message-Id: <6pi7i6$kpe$1@msunews.cl.msu.edu>
tljohn4@my-dejanews.com wrote:
: #!/usr/local/bin/perl -w
: use strict;
: my $process = "exit";
: if (-e "mport.lock") {
: do {
: sleep(1);
: print "$^T\n";
: last if ($process ne 'process');
: } until( (-z "mport.list") && (-z "mport.todo") )
: }
The reason it doesn't work is you chose to use 'do'. 'last' 'redo'
'next' will not work with do. So find someother way.
-dan
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Mon, 27 Jul 1998 14:31:05 GMT
From: boyles@my-dejanews.com
Subject: do?user problems
Message-Id: <6pi2va$h0u$1@nnrp1.dejanews.com>
Hi,
My ISP only allows perl scripts to be executed using the url of my cgi-bin
followed by do?user=<my username> &prog=<script name>
Sounds simple, but I continually get error message or simply cases where the
script is not called. Does anyone have any suggestions on how to deal withthis
problem ?
Thanks.
Eric
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 27 Jul 1998 15:44:08 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: do?user problems
Message-Id: <6pi788$st8$1@client3.news.psi.net>
boyles@my-dejanews.com (boyles@my-dejanews.com) wrote on MDCCXCI
September MCMXCIII in <URL: news:6pi2va$h0u$1@nnrp1.dejanews.com>:
++ Hi,
++
++ My ISP only allows perl scripts to be executed using the url of my cgi-bin
++ followed by do?user=<my username> &prog=<script name>
++
++ Sounds simple, but I continually get error message or simply cases where the
++ script is not called. Does anyone have any suggestions on how to deal withthis
++ problem ?
++
Tons of suggestions. None of them have anything to do with Perl though.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
Date: Mon, 27 Jul 1998 17:18:56 +0200
From: Jeremy Mortimer <mortimer@ifrc.org>
Subject: Dup STDERR to STDOUT under NT?
Message-Id: <35BC9A60.482DC421@ifrc.org>
This has got to be a FAQ, but I've spent the entire afternoon digging
around and I can't find it. I'm trying to duplicate STDERR onto STDOUT
using
open(STDERR, ">&STDOUT");
My Perl is the Activeware port on Windows NT, and it just writes to a
file called STDOUT. Am I doing something really dumb, or is this a
problem with NT? Either way, what can I do about it?
Many thanks for any help,
Jeremy
------------------------------
Date: 27 Jul 1998 15:32:06 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: Dup STDERR to STDOUT under NT?
Message-Id: <6pi6hm$gq4$1@msunews.cl.msu.edu>
Jeremy Mortimer <mortimer@ifrc.org> wrote:
: open(STDERR, ">&STDOUT");
: My Perl is the Activeware port on Windows NT, and it just writes to a
: file called STDOUT. Am I doing something really dumb, or is this a
: problem with NT? Either way, what can I do about it?
Unfortunately you are doing something dumb. Perl thinks your trying
to open a file called STDOUT.
*STDERR = *STDOUT;
Any time you refer to STDERR it'll go to STDOUT. However for some
reason, which I'm not sure of 'warn' will still print to STDERR.
-dan
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Mon, 27 Jul 1998 10:56:41 -0400
From: "Patrick W. O'Neill" <oneill@capsl.udel.edu>
Subject: Expanding Pathnames
Message-Id: <35BC9529.C6FBDF13@capsl.udel.edu>
I'm a lowly undergrad researcher at the University of Delaware. I've
done some *minor* things with perl for CGI in web pages, and suddenly
i'm the local expert. Has anybody written, or know of a program that
will let you type in a location of a file and return the full pathname?
Like,
~test.c returns /usa/oneill/test.c
../test.c returns the same thing if I was one directory deeper than
the previous directory
test.c returns the same thing if i'm in my home directory.
Etc, I think you get the picture. If nobody knows of a program to do
this, any quick pointers on how? :)
Thanks for the help.
Pat O'Neill
------------------------------
Date: 27 Jul 1998 15:45:56 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Expanding Pathnames
Message-Id: <6pi7bk$st8$2@client3.news.psi.net>
Patrick W. O'Neill (oneill@capsl.udel.edu) wrote on MDCCXCI September
MCMXCIII in <URL: news:35BC9529.C6FBDF13@capsl.udel.edu>:
++ I'm a lowly undergrad researcher at the University of Delaware. I've
++ done some *minor* things with perl for CGI in web pages, and suddenly
++ i'm the local expert. Has anybody written, or know of a program that
++ will let you type in a location of a file and return the full pathname?
Is there any reason "glob" doesn't do what you want?
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: 27 Jul 1998 14:08:47 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: getting the binary represenation of a number
Message-Id: <6pi1lf$l64$2@msunews.cl.msu.edu>
Amy Rogers <xxxx@xxxx.xxx> wrote:
: Hi-
: I'm a perl newbie. I'm trying to understand how to get the binary
: representation of a number. The process given in a book (David Till's
: Teach yourself Perl in 21 days) does not make it clear how it works and
: would like to hear another way to look at it, if at all possible.
Try 'Learning Perl' by Randal Schwartz and Tom Christiansen and
'Programming Perl' by those two and Larry Wall. You might want to try
"perldoc -f pack".
heres a little program. Run it and see what it does
#!/opt/bin/perl
for $_ (1..10) {
print unpack("B32", pack("N", substr("0" x 32 . $_, -32)));
}
-dan
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Tue, 21 Jul 1998 09:40:32 -0400
From: Roman Katsnelson <romank@graphnet.com>
Subject: help with parsing text
Message-Id: <35B49A50.A6E7ACE2@graphnet.com>
Hi,
I have a plain text db file which has the following format:
name password = password
att1 = val1,
att2 = val2,
att3 = val3
etc. Please note that the first field is just a value, without attribute
name. the records are separated by a #% entry. I am attempting to write
a script that will modify the file by user. I already got it to split
the file into records by the #% delim. and to add "name = " to the
beginning of each entry. However, right now I am stuck. I want to make a
hash for each record %value_pairs or something. But there are spaces
inbetween the words _as well_ as between the words and the = sign. Plus,
sometimes there are commas and sometimes not.
Can someone point me in the correct direction?
Thanks a lot in advance.
P.S. Please email responses directly (the news server is currently down
and this is relatively urgent). Thanks again.
-Roman
--
_________________________________________
| Roman Katsnelson |
| UNIX Network Engineer |
| Graphnet, Inc. |
|_________Email:romank@graphnet.com_______|
------------------------------
Date: 27 Jul 1998 15:17:00 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: How can I get the name of the current subroutine ?
Message-Id: <6pi5lc$blb$1@pegasus.csx.cam.ac.uk>
In article <35BC7624.B7445391@tase.co.il>, tzahi uni <tzahi@tase.co.il> wrote:
>hi ,
>please help,
>I need to know in which variable I can get the name of the current
>subroutine.
See perldoc -f caller
Mike Guy
------------------------------
Date: 27 Jul 1998 16:04:54 +0200
From: =?ISO-8859-1?Q?B=F8rre_Fjelds=F8?= <Borre.Fjeldso@ericsson.no>
Subject: Re: How to easily detect file perms on Unix files?
Message-Id: <gvl3ebnqtix.fsf@eto.ericsson.se>
creliar@etoho.gactr.uga.edu (Rick Crelia) writes:
> Can anyone point me in the direction of how to interpret the numbers
> for file mode returned by stat/lstat? I need to check files using
> standard Unix permissions in octal and I haven't been able to figure
> out what scale is used for the values in stat/lstat[2]. I know that
> a file mode of 0600 returns as 33152, and one of 0755 returns as
> 33261 - but, I'd like to know what those values represent. I've
> checked the perlfunc man page and looked around on some sites but
> still have no clue. Thanks!
>From <sys/stat.h> (on Solaris 2.5, but should be common) :
#define S_IFMT 0xF000 /* type of file */
#define S_IAMB 0x01FF /* access mode bits */
$type = $stat & 0xf000; # Get type of file
# i.e. regular, directory, fifo, device ...
$perm = $stat & 0x01ff; # Get permissions
33152 will then give:
$type == 32768 (0x8000 which is a regular file BTW).
$perm == 384 (0x180 or 0600 in respectively hex and octal).
so this would split them up nicely for you:
($suid, $sgid, $settext, $ownerperms, $grpperms, $otherperms) =
(($stat & 04000) >> 11, ($stat & 02000) >> 10, ($stat & 01000) >> 9,
($stat & 0700) >> 6, ($stat & 070) >> 3, ($stat & 07));
I am sure there is a better way with unpack but this one will not blow
up on big/little endian problems.
//Bxrre
--
Bxrre Fjeldsx - bgf@dod.no - Honda VFR750 - Dod# daf - NMCU #26215
We should develop anti-satellite weapons because we could not have
prevailed without them in "Red Storm Rising". -- Dan Quayle
------------------------------
Date: 26 Jul 1998 21:59:45 -0500
From: "Jim Woodgate" <jdw@dev.tivoli.com>
Subject: Re: How to easily detect file perms on Unix files?
Message-Id: <obbtqcdmn2.fsf@alder.dev.tivoli.com>
creliar@etoho.gactr.uga.edu (Rick Crelia) writes:
> permissions in octal and I haven't been able to figure out what scale is
> used for the values in stat/lstat[2]. I know that a file mode of 0600 returns
> as 33152, and one of 0755 returns as 33261 - but, I'd like to know what those
> values represent. I've checked the perlfunc man page and looked around on some
> sites but still have no clue. Thanks!
man perlfunc will show that mode is both the file type and
permissions. Try running the following:
perl -e "printf (\"%o\\n\",33152 & 07777);"
I would guess, though that you'd be happier using -r, -x,
etc. especially since you've already done the stat. Again see the
perlfunc manpage for a great example...
--
Jim Woodgate
Tivoli Systems
E-Mail: jdw@tivoli.com
------------------------------
Date: 27 Jul 1998 14:12:02 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <6pi1ri$30n$5@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 20 Jul 1998 14:07:45 GMT and ending at
27 Jul 1998 06:54:18 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" e-mail address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 307 (54.8% of all posters)
Articles: 473 (29.6% of all articles)
Volume generated: 807.7 kb (30.5% of total volume)
- headers: 315.8 kb (6,429 lines)
- bodies: 463.6 kb (14,329 lines)
- original: 349.0 kb (11,096 lines)
- signatures: 27.8 kb (494 lines)
Original Content Rating: 0.753
Averages
========
Posts per poster: 1.5
median: 1 post
mode: 1 post - 227 posters
s: 1.4 posts
Message size: 1748.6 bytes
- header: 683.8 bytes (13.6 lines)
- body: 1003.6 bytes (30.3 lines)
- original: 755.6 bytes (23.5 lines)
- signature: 60.2 bytes (1.0 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
10 19.0 ( 6.7/ 12.3/ 5.8) Michael Maraist <maraism@sterlingdi.com>
9 18.2 ( 5.2/ 13.0/ 11.9) schnibitz@my-dejanews.com
9 14.2 ( 6.3/ 7.8/ 3.4) "file" <file@job.to>
9 27.6 ( 7.5/ 20.1/ 7.0) "Firestarter" <majestik_12@hotmail.com>
8 22.5 ( 7.5/ 15.0/ 11.4) detlef@jojo.escape.de (Detlef Bosau)
7 14.2 ( 4.6/ 9.6/ 4.8) merzky@my-dejanews.com
6 8.5 ( 4.1/ 4.1/ 4.1) Mark Hickey <Mark.Hickey@veritas.com>
5 5.6 ( 3.2/ 2.4/ 1.3) "Sabre Taylor" <nonspammers.cut.after.the.period.hot_redox@hotmail.com>
5 4.8 ( 3.0/ 1.8/ 1.8) Kamran Iranpour <kamrani@ifi.uio.no>
5 8.4 ( 3.5/ 4.5/ 3.6) "Adam Atkinson" <ghira@mistral.co.uk>
These posters accounted for 4.6% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
29.2 ( 0.7/ 28.4/ 28.4) 1 James <James@comp4ncr.com>
27.6 ( 7.5/ 20.1/ 7.0) 9 "Firestarter" <majestik_12@hotmail.com>
22.5 ( 7.5/ 15.0/ 11.4) 8 detlef@jojo.escape.de (Detlef Bosau)
21.4 ( 0.7/ 2.0/ 2.0) 1 David Untiedt <davidu@is.co.za>
19.0 ( 6.7/ 12.3/ 5.8) 10 Michael Maraist <maraism@sterlingdi.com>
18.2 ( 5.2/ 13.0/ 11.9) 9 schnibitz@my-dejanews.com
14.2 ( 4.6/ 9.6/ 4.8) 7 merzky@my-dejanews.com
14.2 ( 6.3/ 7.8/ 3.4) 9 "file" <file@job.to>
14.0 ( 3.5/ 10.5/ 3.8) 4 Nobody <somewhere@over.the.rainbow>
10.2 ( 3.2/ 6.4/ 4.8) 4 Richard Proctor <Richard@waveney.demon.co.uk>
These posters accounted for 7.2% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.1 / 1.1) 4 John <cbob@isource.net>
1.000 ( 7.3 / 7.3) 4 neilm@il.us.swissbank.com
1.000 ( 4.1 / 4.1) 6 Mark Hickey <Mark.Hickey@veritas.com>
1.000 ( 1.0 / 1.0) 3 "Larry" <larryq@nospam.tuttle.com>
1.000 ( 1.8 / 1.8) 5 Kamran Iranpour <kamrani@ifi.uio.no>
0.913 ( 11.9 / 13.0) 9 schnibitz@my-dejanews.com
0.880 ( 1.7 / 1.9) 3 jjones@nospam.elementdesign.com (j)
0.861 ( 1.9 / 2.2) 3 spacy13@my-dejanews.com
0.837 ( 1.8 / 2.1) 3 Michael Bowler <mkbowler@nortel.com>
0.832 ( 2.7 / 3.3) 3 neil@elara.frii.com (Neil Neely)
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.470 ( 5.8 / 12.3) 10 Michael Maraist <maraism@sterlingdi.com>
0.438 ( 3.4 / 7.8) 9 "file" <file@job.to>
0.434 ( 1.2 / 2.7) 3 "The Lion King" <AVLEENSINGHVIG@nospammy.msn.com>
0.401 ( 1.3 / 3.2) 3 al@ioa.com (Al Gordon)
0.401 ( 1.8 / 4.6) 3 tomr@wpine.com
0.360 ( 3.8 / 10.5) 4 Nobody <somewhere@over.the.rainbow>
0.347 ( 7.0 / 20.1) 9 "Firestarter" <majestik_12@hotmail.com>
0.336 ( 0.9 / 2.8) 4 adtp@cix.compulink.co.uk ("Advent Dtp")
0.281 ( 1.7 / 6.0) 4 Richard J Kucera <kucerar@hhmi.org>
0.154 ( 0.5 / 3.1) 3 ben@sofnet.com
35 posters (11%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
72 detlef@jojo.escape.de (Detlef Bosau)
27 "Firestarter" <majestik_12@hotmail.com>
12 Nobody <somewhere@over.the.rainbow>
9 jean-luc@picard.franken.de (=?iso-8859-1?Q?Thomas_K=F6hler?=)
9 Dirk Bergemann <bergemann@carguard.de>
9 "The Lion King" <AVLEENSINGHVIG@nospammy.msn.com>
9 delta@gmx.de
7 jcs.random@asu.edu
6 "Alex Martelli" <martelli@cadlab.it>
6 "Phil Evans" <phile@ihug.co.nz>
------------------------------
Date: Mon, 27 Jul 1998 14:09:58 GMT
From: "Le NETtoyeur" <NETtoyeur@usa.net>
Subject: Re: perl and setuid via WEB (apache)
Message-Id: <01bdb968$db4f8140$0c4ec383@einstein>
Bernd Zimmermann <berni@ping-net.de> a icrit dans l'article
<35BC76E1.1252D58F@ping-net.de>...
> Hi !
>
> I have perl 5.004_04, Apache 1_3_0 and want to execute a script
> with suid root..
>
> Problem : chown root and chmod u+s did not work, because the
> script is called via the apache and still have the uid from the apache.
>
> I cannot user apaches suexec, because i want to run the script as root.
>
> So whats the trick ?
>
> Thankx a lot for help
>
> Bernd
Look for the 'suidperl' program. Type 'man perlsec' for more informations.
Or, you can use 'sudo' which can be downloaded at:
http://www.courtesan.com/sudo/
Le /\/ETtoyeur
NETtoyeur@usa.net
"Windows est une fenjtre ouverte sur le monde fermi"
------------------------------
Date: 27 Jul 1998 15:09:25 GMT
From: Dan Nguyen <nguyend7@egr.msu.edu>
Subject: Re: PLEASE HELP: Simple ascii to binary script
Message-Id: <6pi575$e2p$1@msunews.cl.msu.edu>
Dan Nguyen <nguyend7@egr.msu.edu> wrote:
: I'll be nice and show you the code that will do what I think you sort
: of want.
Okay. I was rethinking some of the code, and the new way below is
just slightly better.
: #!/usr/local/bin/perl
: while (<>) {
my @ascii = unpack "A" x length, $_; #use this instead.
: map { print "$_:\t", (unpack "B8", $_), "\n"; } @ascii;
: }
: I'll leave it to you to figure out what it does.
: -dan
: --
: Dan Nguyen | There is only one happiness in
: nguyend7@msu.edu | life, to love and be loved.
: http://www.cse.msu.edu/~nguyend7 | -George Sand
--
Dan Nguyen | There is only one happiness in
nguyend7@msu.edu | life, to love and be loved.
http://www.cse.msu.edu/~nguyend7 | -George Sand
------------------------------
Date: Mon, 27 Jul 1998 14:41:53 GMT
From: Frook@mail.dma.be (Orlando Frooninckx)
Subject: POST from perl?
Message-Id: <35bc9171.285146549@193.74.210.130>
hi,
Does anybody know how I can post data from my perl script to a script
on an other page?
regards,
Orlando
========================================================
Orlando Frooninckx
- - - - - - - - - - - - - - - - -
E:mail: of@lms.be - of@ping.be - Frook@mail.dma.be
URL: www.ping.be/crossbreed - bewoner.dma.be/Frook
---------------------------------------------------------------------------------------------------------
------------------------------
Date: 27 Jul 1998 15:47:26 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: POST from perl?
Message-Id: <6pi7ee$st8$3@client3.news.psi.net>
Orlando Frooninckx (Frook@mail.dma.be) wrote on MDCCXCI September
MCMXCIII in <URL: news:35bc9171.285146549@193.74.210.130>:
++ hi,
++
++ Does anybody know how I can post data from my perl script to a script
++ on an other page?
use LWP::UserAgent;
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: 27 Jul 1998 11:03:56 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Reacting to 1 of 10 or so possible values.... Need some streamlining help.
Message-Id: <6pi4ss$e24$1@monet.op.net>
In article <35BBD43C.7F5A9B72@spider.herston.uq.edu.au>,
Jaime Metcher <metcher@spider.herston.uq.edu.au> wrote:
>Genuine, non-sarcastic question: I can see that this is more perlish,
>but why is it more streamlined? For only ten possibilities, if all
>equally likely, the original version is doing an average of five tests
>per run.
Making the program faster is not the point. The dispatch table is
better not because it is faster, but because it makes the code
smaller.
Instead of a large, multi-way test that is spread out over many lines,
the test is very small and is in one place in the program. The
multi-way test has been replaced by a table that is so compact that
you can see the whole thing at once.
It's also more flexible. The subroutine that chooses an action based
on inputs no longer has its behavior hardwired in; instead, you can
pass it the dispatch table as an argument, and get different behaviors
by passing in different dispatch tables.
------------------------------
Date: Mon, 27 Jul 1998 15:39:01 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Reacting to 1 of 10 or so possible values.... Need some streamlining help.
Message-Id: <35BCA08D.5CF8@min.net>
Ronald J Kimball wrote:
>
> CASE:
> foreach ($reqType) {
> /^typeOne$/ && (&do_something, last CASE);
> /^typeTwo$/ && (&do_something_else, last CASE);
> &do_default_thing;
> }
Maybe this is a little neater:
for ( $reqType ) {
/^typeOne$/ and &handle_typeOne or
/^typeTwo$/ and &handle_typeTwo or
&do_default_thing
}
--
John Porter
------------------------------
Date: Mon, 27 Jul 1998 17:33:06 +0200
From: "J. Parera" <parera@teleline.es>
Subject: Re: Recent Secret Government Experiments Killing People!!!
Message-Id: <6pi7k7$4i6$1@talia.mad.ibernet.es>
?Este grupo no es de habla espaqola?
------------------------------
Date: Mon, 27 Jul 1998 15:06:13 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Same code, diff machines, diff results
Message-Id: <35BC98DD.42E9@min.net>
Harshal S. Chhaya wrote:
>
> $date = `/bin/date`;
> $ENV{"TZ"} = "Asia/Calcutta";
> $date1 = `/bin/date`;
> print $date, $date1;
>
> On machine1 (FreeBSD, perl 5.004_01) this prints:
> Fri Jul 24 19:18:13 EDT 1998
> Sat Jul 25 04:48:13 IST 1998
>
> (as expected)
>
> and on the other machine (Solaris 2.5, perl 5.003) it prints:
> Fri Jul 24 18:17:12 CDT 1998
> Fri Jul 24 23:17:12 Asia/Calcutta 1998
>
> Anyone know why the results are different? Are the diff versions the reason
> for this behavior?
(Despite what some folks say),
The difference isn't the perl, it's the machine.
Solaris is remarkably incomplete as to the world's timezones that it
knows about.
Solaris simply has no clue what timezone 'Asia/Calcutta' is.
But FreeBSD is fully clued.
No need to despair, however; the file formats used by the two
systems are compatible. If you just need a few zones (e.g. the ones
in India), you should try copying them from your FreeBSD system
to your Solaris system.
You might find them in:
Solaris: /usr/share/lib/zoneinfo
FreeBSD: /usr/share/zoneinfo.
However, check the path specified in /usr/include/tzfile.h
to be sure.
When I copied Asia/Calcutta from a BSD/OS system to a Solaris
system, it worked perfectly.
--
John Porter
------------------------------
Date: Mon, 27 Jul 1998 14:48:36 GMT
From: creiner@my-dejanews.com
Subject: start win32 programs from perl for win32
Message-Id: <6pi404$igk$1@nnrp1.dejanews.com>
Hi!
I'm a newbie and have a problem I can't find a solution for:
I'm trying to develope a Web-interface for our exchange server and use Perl 5
for Win32. I have to launch the administrator tool admin.exe coming with
exchange server with some command line options to export some information.
When I use something like
system('c:/exchsrvr/bin/admin.exe');
or my second version
use Win32::Process;
use Win32;
app = "c:/exchsrvr/bin/admin.exe";
$cmd = "admin.exe /e";
$dir = ".";
Win32::Process::Create($ProcessObj,$app,$cmd,0,DETACHED_PROCESS,$dir) || die
print "ERROR";
$ProcessObj->SetPriorityClass(HIGH_PRIORITY_CLASS) || die print "ERROR";
$ProcessObj->Wait(INFINITE) || die print "ERROR";
It starts a process on the server (which seems to do nothing) and the client
freezes. It works fine, if I start the script directly on the server. The
same happens when I try to launch notepad.exe. Has anybody a solution for my
problem?
Thanks in advance,
* Christian *
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3263
**************************************
