[8937] in Perl-Users-Digest
Perl-Users Digest, Issue: 2556 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 11 12:09:30 1998
Date: Mon, 11 May 98 09:01:55 -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, 11 May 1998 Volume: 8 Number: 2556
Today's topics:
Re: Passing long command line to shell, best way? (Andrew M. Langmead)
Re: Perl problem <lr@hpl.hp.com>
Re: pipe turns off the alarm() ? <aqumsieh@matrox.com>
Problems with installing Perl on VMS <feck@fre.fsu.umd.edu>
Re: QRe: == vs. eq (Greg Bacon)
Re: Share an array among processes (Martien Verbruggen)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Strange behaviour of references... <horowitz@cream.maths.warwick.ac.uk>
UID = 0 <stephen@megacrawler.com>
uuencode algorithm <chrishester@NOSPAMmyself.com>
Re: Win95 Perl scripts DONT WORK on UNIX (Phil Hanna)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 May 1998 14:05:06 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Passing long command line to shell, best way?
Message-Id: <EsspsI.EtF@world.std.com>
sherman@unx.sas.com (Chris Sherman) writes:
>Of course, the following doesn't work:
>
> @output = `cmd blah blah\
> more blah blah\
> even more blah`;
You could say:
@output = `cmd blah blah\\
more blah blah\\
even more blah`;
Since backquotes do doublequote-ish stuff, to get a literal backslash
to pass to the shell, you just need to double it.
>
>or how about:
>
> $cmd = "cmd blah blah " .
> "more blah blah " .
> "even more blah ";
>
> @output = `$cmd`;
>
>Ugly, but I guess it works. Is there a better way?
You could use Here documents
@output = `END_OF_SCRIPT`;
cmd blah blah
more blah blah
even more blah
END_OF_SCRIPT
If the outdented text bothers you, you could always perform some
tricks to ignore the indentation.
@output = do {($script = <<END_OF_SCRIPT) =~ /^\s+!//mg; `$script`};
!cmd blah blah
!more blah blah
!even more blah
END_OF_SCRIPT
I'll let you judge the asthetics for yourself. (Which I find a bit
different than "good programming style". The concatinated strings is
perfectly good programming style, and keeping it from being "ugly" is
second good programming style.)
[stuff deleted]
>I suppose I could open /bin/sh and pipe the commands to it, but how do I
>format the commands to be feed into the pipe? Is there a best way for
>doing this that is easy to read and not that messy?
>
>If I do something like this:
>
>$cmd = <<EndOfCmd;
> cmd1
> cmd2
> cmd3
>EndOfCmd
>@output = `$cmd`;
>
>This doesn't work right. All the commands appear on one line with '^J's
>separating them when you list the processes with `ps` (in Unix).
>
If perl doesn't see any shell metacharacters in the string, it assumes
it is a simple command, and doesn't pass it to the shell. I guess the
simplest solution would be to introduce an otherwise benign
metacharacter, and then the shell would treat the newlines as the
command separator.
@output = <<`EndOfCmd`;
cmd1
cmd2
cmd3;
EndOfCmd
Or you could explicitly call the shell with the commands as arguments.
@output = <<`EndOfCmd`;
sh -c '
cmd1 \\
cmd2 \\
cmd3 '
EndOfCmd
>I suppose I could open /bin/sh and pipe the commands to it, but how do I
>format the commands to be feed into the pipe? Is there a best way for
>doing this that is easy to read and not that messy?
How about forking another process which will send the commands to the
shell, and reading the output of that process.
open SHELL, "-|" or do {
open INPUT, "| /bin/sh" or die; # the child opens a pipe to the shell,
print INPUT @commands; # sends the commands the parent has arranged.
exit; # and quits.
};
@output = <SHELL>;
close SHELL;
The parent forks a child, and the childs standard output is redirected
to the parents filehandle SHELL. The child then forks a child to run a
shell and redirects the shells STDIN to the filehandle INPUT. It then
sends to INPUT the commands. As it is, it isn't too verbose, but once
you add the additional error checking for a failed fork, it will get
a bit longer.
--
Andrew Langmead
------------------------------
Date: Mon, 11 May 1998 07:05:59 -0700
From: "Larry Rosler" <lr@hpl.hp.com>
Subject: Re: Perl problem
Message-Id: <6j70lc$b3j@hplntx.hpl.hp.com>
[posted and emailed]
A.H. Roberts wrote in message <6j6t2f$gnc_001@leeds.ac.uk>...
...
>What I am TRYING to do is have $function do this:
>
>$ans = $a $function $b $function $c
>
>and give an answer depending on which operator $function was.
>
>However, as it records $function as a string not an operator it don't
work.
>
>IS there a way of doing this?
YES, there is. Look at 'perldoc -f eval' for the form that says 'eval
string'.
$ans = eval "$a $function $b $function $c";
should do exactly what you want.
--
Larry Rosler
Hewlett-Packard Laboratories
lr@hpl.hp.com
------------------------------
Date: Mon, 11 May 1998 10:00:39 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: pipe turns off the alarm() ?
Message-Id: <35570487.A3FFFAA7@matrox.com>
kis1380@cs.rit.edu wrote:
> Dear Perl Gods,
>
> I am using the following script to rsh to a computer and execute a command -
> in this case, the command is date.
> I fork a child because if the computer that I connect to is "hosed" the rsh
> will take forever to come back with something like "RPC error" or "Connection
> timed out" (if it comes back).
> In this script I give the rsh 6 seconds to complete, and after that the alarm
> goes off and kills the child. The parent is waiting for the child to finish
> (or be finished). This works fine, but I need to pass the result from the rsh
> back to the parent. As far as I know I can do that with pipe. However when I
> use pipe the alarm does not go off - neither the parent's nor the child's
> alarm.
> I can always have the child write to a file and parent read it, but this is
> not a very good solution.
>
> If somebody has an idea of how this could work I would appreciate it very
> much.
>
> Thank you!
>
> Katerina
>
> #!/usr/local/bin/perl
>
> pipe(INPUT,OUTPUT);
> $retval = fork();
>
> if($retval != 0){
> #parent
> close(OUTPUT);
> alarm(10);
> $procid = wait();
> alarm();
> $date = <INPUT>;
> print("I got $date from my child\n");
> print(" status of waitpid is $procid\n");
> }
> else {
> #child
> close(INPUT);
> alarm(6);
> $date = `rsh nice date`;
> print OUTPUT ($date);
> }
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/ Now offering spam-free web-based newsreading
Hi ..
I am not exactly a Perl God .. but I would not go through the hassle of fork and
exec .. and writing and reading from pipes!
A better solution would be to use either system() .. or eval().
The system command does not seem very useful since it returns whether the
command succeeded or not rather than the output of the command.
I would therefore use the backtick (``) operator within an eval block.
Hope that was helpful,
--
Ala Qumsieh | No .. not just another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Mon, 11 May 1998 11:47:58 -0500
From: "Teresa J. Feck" <feck@fre.fsu.umd.edu>
Subject: Problems with installing Perl on VMS
Message-Id: <35572BAF.EAA@fre.fsu.umd.edu>
I am trying to install Perl 5.004 on using VAX C and running VMS 6.2.
I've installed the MadGoat Make Utility. However, I get the
following error when I try to run Make.
CC
/Define=(DEBUGGING,VMS_DO_SOCKETS,DECCRTL_SOCKETS)/Include=[]/Object=.obj/NoL
ist SOCKADAPT.C
%DCL-W-NOQUAL, qualifiers not allowed - supply only verb and parameters
\OBJECT\
%MMK-F-ERRUPD, error status %X000380C8 occurred when updating target
LIBPERL.OLB
I used the following MAKE commands trying to get perl to compile.
$MMS/DESCRIP=[.VMS]DESCRIP.MMS
$MMS/DESCRIP=[.VMS]DESCRIP.MMS/Macro=("CC=CC/VAXC","decc=1")
Any Help will be greatly appreciated,
Teresa Feck
------------------------------
Date: 11 May 1998 14:09:45 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: QRe: == vs. eq
Message-Id: <6j70r9$iae$2@info.uah.edu>
In article <6j58pk$49t$0@206.165.146.190>,
"Allan M. Due" <due@murray.fordham.edu> writes:
: Greg Bacon wrote in message <6j4r5s$jn0$7@info.uah.edu>...
: >I can only assume that Lookout! doesn't warn posters when their lines
: >are beyond the 78 columns that netiquette requests.
:
: Well no, no warning but the default is 76 so Outlook users are unlikely to
: change it since they are unsophisticated users by definition. Which
: programs offer such warnings?
GNKSA 2.0 compliant software warns about lines longer than eighty
characters. A newsreader allowing its users to change this value is
evil.
: > (Keep in mind that you should try to keep the lines you write around 72
: > columns
[watch your quoting]
: Have changed the default values, thanks. But as long as I use Outlook
: wisely (no MIME for example) I am not discomfiting folks unduly, is that
: correct? Just trying to be clear.
You'll be much better off if you can coax it into omitting whatever
identifying headers (e.g., X-Newsreader:, X-MIME-Ole:, etc.) it might
otherwise insert. Son-of-1036 frowns on such vanity headers anyway.
With real newsreader software (as opposed to hardware on CD), you can go
in and modify the source to do the right thing.
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: 8 May 1998 05:15:46 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Share an array among processes
Message-Id: <6iu4e2$r2i$1@comdyn.comdyn.com.au>
In article <35519439.680E4AD9@calstatela.edu>,
Razmik Khachikyan <rxk@cobra.jpl.nasa.gov> writes:
> The simplified version of the problem is the following:
> I have 3 processes and 3x3 matrix. Each process calculates the sum of a
> column(i.e process 1 calculates the sum of the first column). At this point
> each process has a single value. I would like to store this values in an array
> such that after killing the child processes, the values would not be lost and
> the mother process can access them. Therefore I need to have an shared array.
Ah, ok.
You'll have to do some reading. The following documentation might be
of interest to you:
# perldoc perlipc
(SysV IPC section)
# perldoc -f shmget
# perldoc -f shmread
# perldoc -f shmwrite
# perldoc -f shmctl
# perldoc -f semget
# perldoc -f semctl
# perldoc -f semop
It's not straightforward or simple if you've never done this, so if
this seems to complex, or if you can't use System V IPC, you might
want to look into one of the other methods described in perlipc.
If you feel like experimenting, you might want to download the newest
beta version of perl, and play with the threading in there.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | For heaven's sake, don't TRY to be
Commercial Dynamics Pty. Ltd. | cynical. It's perfectly easy to be
NSW, Australia | cynical.
------------------------------
Date: 11 May 1998 14:22:55 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6j71jv$iae$4@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 04 May 1998 13:59:28 GMT and ending at
11 May 1998 06:38:45 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.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 582
Articles: 1652 (693 with cutlined signatures)
Threads: 478
Volume generated: 2807.1 kb
- headers: 1161.1 kb (23,299 lines)
- bodies: 1528.3 kb (46,120 lines)
- original: 1085.2 kb (34,959 lines)
- signatures: 116.1 kb (2,340 lines)
Original Content Rating: 0.710
Averages
========
Posts per poster: 2.8
median: 1.0 post
mode: 1 post - 368 posters
s: 6.6 posts
Posts per thread: 3.5
median: 2.0 posts
mode: 1 post - 140 threads
s: 6.7 posts
Message size: 1740.0 bytes
- header: 719.7 bytes (14.1 lines)
- body: 947.3 bytes (27.9 lines)
- original: 672.6 bytes (21.2 lines)
- signature: 72.0 bytes (1.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
77 118.5 ( 62.4/ 46.9/ 31.3) Tom Phoenix <rootbeer@teleport.com>
76 126.5 ( 51.8/ 59.0/ 38.3) mgjv@comdyn.com.au (Martien Verbruggen)
49 130.7 ( 40.7/ 83.3/ 74.6) tchrist@mox.perl.com (Tom Christiansen)
39 67.6 ( 34.5/ 23.6/ 12.0) comdog@computerdog.com (brian d foy)
38 89.0 ( 35.0/ 46.0/ 45.5) pudge@pobox.com (Chris Nandor)
36 45.3 ( 22.6/ 20.3/ 12.6) Jonathan Feinberg <jdf@pobox.com>
33 58.7 ( 23.9/ 34.8/ 13.6) Ala Qumsieh <aqumsieh@matrox.com>
28 40.0 ( 19.9/ 20.1/ 11.6) hawk@algonet.se
27 65.0 ( 22.8/ 41.3/ 28.2) Zenin <zenin@archive.rhps.org>
26 44.3 ( 16.9/ 27.4/ 19.8) cberry@cinenet.net (Craig Berry)
These posters accounted for 26.0% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
130.7 ( 40.7/ 83.3/ 74.6) 49 tchrist@mox.perl.com (Tom Christiansen)
126.5 ( 51.8/ 59.0/ 38.3) 76 mgjv@comdyn.com.au (Martien Verbruggen)
118.5 ( 62.4/ 46.9/ 31.3) 77 Tom Phoenix <rootbeer@teleport.com>
89.0 ( 35.0/ 46.0/ 45.5) 38 pudge@pobox.com (Chris Nandor)
67.6 ( 34.5/ 23.6/ 12.0) 39 comdog@computerdog.com (brian d foy)
65.0 ( 22.8/ 41.3/ 28.2) 27 Zenin <zenin@archive.rhps.org>
58.7 ( 23.9/ 34.8/ 13.6) 33 Ala Qumsieh <aqumsieh@matrox.com>
45.3 ( 22.6/ 20.3/ 12.6) 36 Jonathan Feinberg <jdf@pobox.com>
44.3 ( 16.9/ 27.4/ 19.8) 26 cberry@cinenet.net (Craig Berry)
41.5 ( 16.4/ 25.0/ 17.9) 23 Art Cohen <upsetter@shore.net>
These posters accounted for 28.0% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.990 ( 45.5 / 46.0) 38 pudge@pobox.com (Chris Nandor)
0.988 ( 11.9 / 12.0) 9 nord@aol.com
0.966 ( 11.8 / 12.2) 5 gnat@frii.com (Nathan Torkington)
0.896 ( 74.6 / 83.3) 49 tchrist@mox.perl.com (Tom Christiansen)
0.842 ( 3.2 / 3.8) 5 scott@softbase.com
0.835 ( 4.8 / 5.7) 9 bart.mediamind@tornado.be (Bart Lateur)
0.831 ( 13.8 / 16.6) 7 Andy Glew <glew@cs.wisc.edu>
0.804 ( 4.4 / 5.4) 8 "Allan M. Due" <due@murray.fordham.edu>
0.800 ( 6.8 / 8.5) 8 "Frank L. Quednau" <quednauf@nortel.co.uk>
0.781 ( 7.4 / 9.5) 5 angst <angst@scrye.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.479 ( 3.8 / 8.0) 8 les@MCS.COM (Leslie Mikesell)
0.464 ( 6.5 / 13.9) 14 Dan Boorstein <danboo@negia.net>
0.461 ( 0.9 / 1.9) 5 dha@panix.com (David Adler)
0.447 ( 1.4 / 3.1) 6 Tom.Grydeland@phys.uit.no (Tom Grydeland)
0.413 ( 3.0 / 7.2) 6 ced@bcstec.ca.boeing.com (Charles DeRykus)
0.392 ( 13.6 / 34.8) 33 Ala Qumsieh <aqumsieh@matrox.com>
0.378 ( 3.0 / 7.9) 7 Jan Krynicky <jkry3025@comenius.ms.mff.cuni.cz>
0.372 ( 4.7 / 12.8) 18 Bob Trieger <sowmaster@juicepigs.com>
0.308 ( 1.7 / 5.6) 9 kpreid@ibm.net (Kevin Reid)
0.252 ( 0.9 / 3.4) 5 techsoft@abcpages.com (Alex K)
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
123 Ever Wonder Why Not Everyone Uses Modules?
61 CPAN & Module gripes (was Re: Ever Wonder...?)
22 Grieving our dying community
19 perl scripts dealing with /etc/passwd
18 Win95 Perl scripts DONT WORK on UNIX
18 COUNTING DAYS UNTIL 2000
15 If Perl had immediate subroutines...
15 Perl/Wall lingo question
15 Using executable pathname to define include path
15 How to delete an element in an array?
These threads accounted for 19.4% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
286.6 ( 96.7/180.7/125.0) 123 Ever Wonder Why Not Everyone Uses Modules?
150.3 ( 52.1/ 88.0/ 64.7) 61 CPAN & Module gripes (was Re: Ever Wonder...?)
48.5 ( 14.1/ 33.1/ 24.0) 22 Grieving our dying community
36.7 ( 12.0/ 24.1/ 19.7) 15 Using executable pathname to define include path
35.4 ( 14.5/ 20.4/ 14.0) 19 perl scripts dealing with /etc/passwd
33.2 ( 8.2/ 23.6/ 22.0) 11 How old is Perl?
27.8 ( 11.2/ 16.3/ 10.8) 15 If Perl had immediate subroutines...
27.7 ( 14.7/ 10.9/ 6.5) 15 Perl/Wall lingo question
27.5 ( 12.1/ 13.7/ 9.6) 18 COUNTING DAYS UNTIL 2000
26.6 ( 12.6/ 13.0/ 7.2) 18 Win95 Perl scripts DONT WORK on UNIX
These threads accounted for 24.9% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.943 ( 12.3/ 13.0) 5 Anagram algorithm anyone.
0.932 ( 22.0/ 23.6) 11 How old is Perl?
0.878 ( 14.2/ 16.2) 10 #PERL the IRC Channel on Efnet.
0.819 ( 19.7/ 24.1) 15 Using executable pathname to define include path
0.813 ( 3.1/ 3.8) 5 Challange for perl `GURUS`
0.789 ( 3.6/ 4.6) 7 WIN32 tee command
0.786 ( 3.4/ 4.3) 5 DBM and Split Problem
0.774 ( 2.9/ 3.7) 6 Looking for Perl parser for 'C' language input files
0.773 ( 5.0/ 6.5) 8 Embedded systems programming
0.770 ( 3.4/ 4.5) 8 How to clear browser Cache with perl
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.557 ( 4.6 / 8.3) 6 Directory usage in Perl for win32
0.556 ( 7.2 / 13.0) 18 Win95 Perl scripts DONT WORK on UNIX
0.553 ( 2.7 / 4.9) 7 What is wrong with this?
0.549 ( 4.3 / 7.9) 5 Open to suggestions
0.548 ( 3.5 / 6.4) 5 Perl in background
0.547 ( 1.9 / 3.4) 5 How to make a "Please wait" page during script processing?
0.539 ( 1.6 / 3.0) 8 $$#_ ?
0.533 ( 3.5 / 6.7) 12 condition to subroutine
0.493 ( 6.6 / 13.4) 15 How to delete an element in an array?
0.425 ( 3.2 / 7.6) 8 problem reading DB_File on win32 platform
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
61 comp.lang.perl.modules
13 de.comp.lang.perl
11 sci.lang.translation
11 sci.lang
11 alt.usage.english
8 comp.sys.sgi.admin
6 rec.music.dylan
5 comp.infosystems.www.servers.unix
5 alt.os.linux
4 comp.sys.mac.graphics
Top 10 Crossposters
===================
Articles Address
-------- -------
27 nord@aol.com
11 "Manfred Schneider" <manfred.schneider@rhein-neckar.de>
11 mgjv@comdyn.com.au (Martien Verbruggen)
8 tchrist@mox.perl.com (Tom Christiansen)
7 Andy Glew <glew@cs.wisc.edu>
6 pudge@pobox.com (Chris Nandor)
4 "Tina" <proweb@gte.net>
4 techsoft@abcpages.com (Alex K)
4 sean@SSPPAAMMdcd.net (DCD)
4 Ala Qumsieh <aqumsieh@matrox.com>
------------------------------
Date: 11 May 1998 14:13:00 +0100
From: Joel Horowitz <horowitz@cream.maths.warwick.ac.uk>
Subject: Strange behaviour of references...
Message-Id: <xy5iund3q8z.fsf@cream.maths.warwick.ac.uk>
Hye,
I don't understand the behaviour of the few lines that follow. Can you
tell me where I'm missing the point?
#!/usr/bin/perl -w
@list=(1..10);
print ref(\@list)."\n"; # prints ARRAY... OK
print ref(\(1..10))."\n"; # prints ARRAY... that's what I would expect
@list=(1,10);
print ref(\@list)."\n"; # prints ARRAY... Normal
print ref(\(1,10))."\n"; # prints SCALAR... Why?
#### Even more surprising:
print ref(\(1,10..15))."\n"; # prints ARRAY... OK
print ref(\(10..15,1))."\n"; # prints SCALAR... Why?
print ref(\(10..15,1..4))."\n"; # prints ARRAY... OK
I didn't find the answers in the FAQ, and I'm still waiting for my Camel
Book to be shipped... :-)
Thanks
Joel
__ _
+------ / /__ -- (_)__ ------ Joel Horowitz <horowitz@ulb.ac.be> --+
| __ / / __ \ / / __ \ http://homepages.ulb.ac.be/~horowitz |
| / /_/ / /_/ / / / /_/ / http://mav.net/cyber (My CGI site) |
| \____/\____/_/ /\____/ Maths - Linux - Perl |
+----------- /___/ ------------ Music - Webdesign - CGI Scripting ---+
------------------------------
Date: Mon, 11 May 1998 14:58:46 +0000
From: Stephen Hill <stephen@megacrawler.com>
Subject: UID = 0
Message-Id: <35571225.D5ED0226@megacrawler.com>
I am makeing an adduser script which is run through a web based form.
Is there any way to set the UID to 0 so I can write to the password
file?
Thanks
buck@huron.net
------------------------------
Date: Mon, 11 May 1998 09:56:02 -0500
From: "Chris Hester" <chrishester@NOSPAMmyself.com>
Subject: uuencode algorithm
Message-Id: <6j73mi$6mg@bolivia.earthlink.net>
I am trying to execute a cgi script on a web server from a client written in
perl. I have everything working except the authentication - the cgi script
uses the REMOTE_USER variable. According to a book I have, the client
should send the following in the http header when authentication is
required:
Authorization: Basic user:password
where user:password is scrambled using the uuencode algorithm.
My first question is is this correct? If so, does anyone know where I can
get a uuencode algorithm in written in perl?
Thanks.
--
Chris
<<Remove NOSPAM from my e-mail address to reply>>
------------------------------
Date: Mon, 11 May 1998 15:12:32 GMT
From: (Phil Hanna)
Subject: Re: Win95 Perl scripts DONT WORK on UNIX
Message-Id: <3557151c.2828997875@newshost.unx.sas.com>
> If your system doesn't have this then why not write your own in Perl?
Like this:
perl -pe 0 -i.bak filename
----------
Phil Hanna
saspeh at unx dot sas dot com
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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". 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 2556
**************************************
