[6986] in Perl-Users-Digest
Perl-Users Digest, Issue: 611 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jun 15 06:07:25 1997
Date: Sun, 15 Jun 97 03:00:20 -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 Sun, 15 Jun 1997 Volume: 8 Number: 611
Today's topics:
Re: Counting Line numbers (Nathan V. Patwardhan)
Re: DBM,ndbm, error (Nem W Schlecht)
file test operators <williamw@host.igs.net>
Re: Help with script needed <rootbeer@teleport.com>
Interesting (?) problem forking from cgi script (Anthony Ciarochi)
It's Driving Me Nuts ... <eric@hilding.com>
Re: mac2iso.pl? mac2html.pl? (Even Holen)
Re: Mail::Send doesnt work? (Nathan V. Patwardhan)
Re: Need help extracting strings from binary file <usenet-tag@qz.little-neck.ny.us>
Re: Perl 5.004 binaries for Windows 95 (Paul Moore)
Re: Perl interface for PGP (Arnoud "Galactus" Engelfriet)
PLEASE HELP: Problems with using perl to generate HTML. <cgprice@austin.ibm.com>
Re: RFD: comp.lang.perl reorganization (Colin Kuskie)
Re: What does "UNIX" stand for.. (Kaz Kylheku)
Re: what would cause an eval to halt the entir program? <rootbeer@teleport.com>
Re: Writing a secure server < port 1024 <rootbeer@teleport.com>
Re: You don't wanna know (Nathan V. Patwardhan)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Jun 1997 20:34:53 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Counting Line numbers
Message-Id: <5nsatd$n18@fridge-nf0.shore.net>
chris smith (naxos@rocketmail.com) wrote:
: How do this? Tell thag. Thag need know to make program go. :)
perl -e '@lines = grep(//, <>); print $#lines+1,"\n";' filename
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: 13 Jun 1997 15:25:08 -0500
From: nem@abattoir.cc.ndsu.nodak.edu (Nem W Schlecht)
Subject: Re: DBM,ndbm, error
Message-Id: <5nsab4$4fr@abattoir.cc.ndsu.nodak.edu>
[courtesy copy e-mailed to author(s)]
In comp.lang.perl.misc, Otis Gospodnetic <otisg@puma.middlebury.edu> wrote:
>Hi,
>
> I'm using perl to manipulate DBM files. It seems that Perl automatically
> picks ndbm on my system, and I'm run into trouble every time I want to
> store more data in the DBM than what is defined as the maximum length of
> the value that can be assigned to a key, in /usr/include/ndbm.h
It is the default if you do a dbmopen() call, which you *shouldn't* really
be using... you should be doing something like this instead:
$database = tie(%db, 'NDBM_File', "db_file", O_RDWR|O_CREAT,0660);
> How can I increase that value? I could change the value in
> /usr/include/ndbm.h but what would I need to recompile?
You can't, unfortunately.
> Also, how would I tell Perl to use a different DB, say gdbm instead of
> ndbm?
Several solutions.. SDBM comes with perl, and although it has a 1k limit,
you can redefine it. The other solutions are to get gdbm and/or Berkeley
DB. Both are at your nearest CPAN site. I suggest DB_File because, well,
it's the best. ;-) It has no size limitations, is very fast and flexible.
Paul Marquess has done an excellent job writing a perl interface to it, and
I suggest you take advantage of that. In any case, you'll have to rebuild
perl. If you *do* get the Berkeley DB stuff, install it and rebuild perl -
perl should automatically find it. Then, you'll use the following line to
access a regular hash:
$database = tie(%db, 'DB_File', "db_file", O_RDWR|O_CREAT,0660, $DB_HASH);
--
Nem W Schlecht nem@plains.nodak.edu
NDUS UNIX SysAdmin http://www.nodak.edu/~nem
"Perl did the magic. I just waved the wand."
------------------------------
Date: Fri, 13 Jun 1997 12:46:26 -0400
From: William Wueppelmann <williamw@host.igs.net>
Subject: file test operators
Message-Id: <33A17962.10D3@host.igs.net>
I was hoping someone could answer a question:
I'm trying to get a list of subdirectories in $path by using
open(SRC,"$path");
@list = grep(-d, readdir(SRC));
There are several subdirectories in $path, but @list only contains . and
..
Is there something I'm doing wrong? It is just because its Friday and
I'm missing something really obvious?
Any help would be appreciated
--
William Wueppelmann
---------------------
It is pitch black. You are likely to be eaten by a grue.
>
------------------------------
Date: Sat, 14 Jun 1997 08:02:31 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Luka Crnkovic <lcrnkovi@sw.seisy.abb.se>
Subject: Re: Help with script needed
Message-Id: <Pine.GSO.3.96.970614080200.4940O-100000@kelly.teleport.com>
On Fri, 13 Jun 1997, Luka Crnkovic wrote:
> I have a large directory structure that I wish to
> move to another location and add an ".fm" file extension
> to every file.
>
> How would such an recursive script look in perl?
It would probably look like the output of find2perl with the -exec option.
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 15 Jun 1997 02:16:59 GMT
From: ciarochi@pe.net (Anthony Ciarochi)
Subject: Interesting (?) problem forking from cgi script
Message-Id: <5nvjar$sab$1@nnrp2.snfc21.pbi.net>
I have written a set of multi-threaded client/server scripts in perl to handle
accesses to a database from a web page.
The web page launches the client script, which then calls the server process.
The server is holding the database in RAM, having copied it from a series of
dbmfiles on startup, and when contacted it spawns a copy of itself to handle
the request and continues to monitor for other requests (technically this is
'multi-process', but the book calls it 'multi-threaded' so what the hell).
The client crunches the data according to how it was called, and returns the
result to the web browser.
I have a second 'admin' web page which calls a set of scripts to do adds,
deletes, and edits to the dbmfiles. Just before completion, each of these
scripts kills and restarts the server process, forcing it to sync with the
modified dbm files.
All of this works beautifully except for one annoying thing... the admin web
page 'hangs' after launching the server, waiting for it to return. I know this
is happening, because it immediately continues and updates if I manually kill
the newly launched server process.
I have tried using back-ticks, system(), forks and execs, and &'s, with the
same result.
Soooo, how DO you launch a perl script from a web page which launches a server
process which must stay up after the original script exits and not stall the
web page?
------------------------------
Date: Sat, 14 Jun 1997 21:51:57 -0700
From: Eric Hilding <eric@hilding.com>
Subject: It's Driving Me Nuts ...
Message-Id: <33A374EC.28C8@hilding.com>
Trying to do this pattern match is Driving Me Nuts...
Here are the 3 lines I need to match (#'s Added...one line
is a blank line)...it *must* be a one line regexp:
#Prepared by Eric R. Hilding *** Coldwell Banker Real Estate ***842-2222
on Sunday, June 8th, 1997
#
I can match m/Prepared/ okay. I've tried all kinds of combinations
for the next two lines but g-o-s-h ... it's Driving Me Nuts. The
date will always change so can't match on the characters.
Latest try:
($line =~ m/(Prepared by|^\s{8}\s{30,}$|^\s{70})/)
If you can help, please e-mail to: urgent@hilding.com
That will reach me *ASAP*, and can hopefully finish this tonight!
Thank you very much.
Eric
------------------------------
Date: 14 Jun 1997 16:17:50 GMT
From: evenh@bigblue.pvv.ntnu.no (Even Holen)
Subject: Re: mac2iso.pl? mac2html.pl?
Message-Id: <slrn5q5h1e.tae.evenh@bigblue.pvv.ntnu.no>
In article <33A14513.9843D784@pixelpark.com>, Martin Bernd Schmeil wrote:
>After searching for a Mac-character set to ISO 8859-1 or HTML converter
>in the perl
>FAQs, the perl archive, Alta Vista and Deja Vu without success I need
>your help. I can't believe that I'm the first one who needs stuff like
>this. So please let me know where I can find these code snippets. (BTW -
>I did find the scripts - at least the names - on a french site, but were
>not allowed to ftp / d/l them).
>
>Thanx a lot! - tB!
>
>PS - If these srcipts don't exist (public available) I would programm
>them myself. I'd need some infos on Mac-character codings (I heard
>something about multiple code
>characters). Thanx for any help!
I used to use a program called pep, which could convert to and from the
most used character codings. I used it from PC to ISO. But here comes it
translation table from mac to iso... I've also heard about a newer
program, but I doesn't remember the name of it...
# mac2iso 1995 April 02 [gh]
##--------------------------------------------------------------------------
# This file folds some nonstandard characters in the Macintosh 8 bit char-
# acter set into the same in the ISO Latin 1 character set. Those that
# cannot be translated is represented by an inverted "?".
## Identical: 162 (cent), 163 (sterling), 177 (plus/minus).
##--------------------------------------------------------------------------
128 196 ## A"
129 197 ## AA
130 199 ## C,
131 201 ## E'
132 209 ## N~
133 214 ## O"
134 220 ## U"
135 225 ## a'
136 224 ## a`
137 226 ## a^
138 228 ## a"
139 227 ## a~
140 229 ## aa
141 231 ## c,
142 233 ## e'
143 232 ## e`
144 234 ## e^
145 235 ## e~
146 237 ## i'
147 236 ## i`
148 238 ## i^
149 239 ## i"
150 241 ## n~
151 243 ## o'
152 242 ## o`
153 244 ## o^
154 246 ## o"
155 245 ## o~
156 250 ## u'
157 249 ## u`
158 251 ## u^
159 252 ## u"
160 191 ## ?? (dagger)
161 176 ## * (degree)
164 167 ## S (section)
165 183 ## * (middle dot)
166 182 ## P (pilcrow)
167 223 ## B (beta)
168 174 ## r (registered)
169 169 ## c (copyright)
170 191 ## ?? (trademark)
171 180 ## ' (acute)
172 168 ## " (diaeresis)
173 191 ## ?? (not-equal)
174 198 ## AE (norsk)
175 216 ## OE (norsk)
176 191 ## ?? (infinite)
178 191 ## ?? (smaller or equal)
179 191 ## ?? (greater or equal)
180 165 ## Y (Yen)
181 181 ## u (micro)
182 240 ## d (eth)
183 191 ## ?? (sigma)
184 191 ## ?? (PI)
185 191 ## ?? (pi)
186 191 ## ?? (integral)
187 170 ## a (feminine)
188 186 ## o (masculine)
189 191 ## ?? (Omega)
190 230 ## ae (norsk)
191 248 ## oe (norsk)
192 191 ## ? (inverted ?)
193 161 ## ! (inverted !)
194 172 ## -~ (not)
195 191 ## ?? (root)
196 191 ## ?? (florin)
197 191 ## ?? (approx)
198 191 ## ?? (triangle)
199 171 ## << (left quote)
200 187 ## >> (right quote)
201 191 ## ?? (ellipsis)
202 160 ## NBSP
203 192 ## A`
204 195 ## A~
205 213 ## O~
206 191 ## ?? (french OE)
207 191 ## ?? (french oe)
208 45 ## - (n-dash)
209 45 ## -- (em-dash)
210 34 ## " (start d-quote)
211 34 ## " (end d-quote)
212 39 ## ' (start s-quote)
213 39 ## ' (end s-quote)
214 247 ## -: (division sign)
215 191 ## ?? (diamond)
216 255 ## y" (y-diaeresis)
217 191 ## ??
218 191 ## ??
219 191 ## ??
220 191 ## ??
221 191 ## ??
222 191 ## ??
223 191 ## ??
224 191 ## ??
225 191 ## ??
226 191 ## ??
227 191 ## ??
228 191 ## ??
229 191 ## ??
230 191 ## ??
231 193 ## A'
232 191 ## ??
233 200 ## E`
234 205 ## I'
235 191 ## ??
236 191 ## ??
237 204 ## I`
238 211 ## O'
239 191 ## ??
240 191 ## ??
241 210 ## O`
242 191 ## ??
243 191 ## ??
244 217 ## U`
245 191 ## ??
246 191 ## ??
247 191 ## ??
248 191 ## ??
249 191 ## ??
250 191 ## ??
251 191 ## ??
252 191 ## ??
253 191 ## ??
254 191 ## ??
255 191 ## ??
## EOF
Regards,
Even Holen
--
<>< Even Holen, evenh@pvv.ntnu.no, http://www.pvv.ntnu.no/~evenh/ :-)
------------------------------
Date: 15 Jun 1997 02:50:50 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Mail::Send doesnt work?
Message-Id: <5nvlaa$f1f@fridge-nf0.shore.net>
Lap Yip... (lychow@hkucs.org) wrote:
: First, thx so much for your response, Nathan.
: One more question though:
: How can i explicitly specify using 'sendmail' instead of 'mail'?
Shame on you for not reading the POD included with Mail::Send :-), which
reads:
[code snipped]
DESCRIPTION
SEE ALSO
Mail::Mailer
In the Mail::Mailer docs, you'll note:
use Mail::Mailer qw(mail);
and
$mailer = new Mail::Mailer $type, @args;
where qw(mail) can also be qw(sendmail)
and $type can be sendmail, like:
$mailer = new Mail::Mailer 'sendmail';
OR, you can use Mail::Send, like:
$msg = new Mail::Send;
$msg->to($recip);
$msg->subject($subj);
$fh = $msg->open('sendmail'); # Start the mailer and output the headers
Hope this helps!
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: 13 Jun 1997 18:16:23 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: Need help extracting strings from binary file
Message-Id: <5ns2pn$nso$1@news.netusa.net>
Tomas Halvarsson <psycho@pobox.com> wrote:
> Hello all. I'm trying to extract some text strings from
> a lot of .dwg (AutoCad) files. At the moment, I'm using
> a system call to strings to do the first raw extraction,
> but it would be nice if there was a Perl equivalent, so
> that I didn't have to start up a lot of extra processes
> all the time.
> Since I'm from sweden, a lot of these .dwg files have
> some special characters in them (swedish has three
> special characters, six if we count both upper and lower
> case). However, strings don't understand these special
> characters. A word where '#' is the special character,
> like "granv#g", becomes just "granv" since strings don't
> recognize the special character and cuts the word after
> "granv".
Hmmm. Untested:
$class='\w\s'; # Change as you see fit. \0x20-\0x7e is default in strings(1)
$num=4; # 4 is the default in strings(1) I have used
@strings=();
open(IN,"<foo.dwg")|| die;
$\=undef;
$file=<IN>;
close(IN);
while( $file =~ m/\G.*?([$class]{$num,})/ ) {
push(@strings,$1);
}
# Now @strings should have all the string segments from the file
Elijah
------
\w probably has the special characters in it (assuming LOCALE is working)
------------------------------
Date: Fri, 13 Jun 1997 20:04:19 GMT
From: gustav@morpheus.demon.co.uk (Paul Moore)
Subject: Re: Perl 5.004 binaries for Windows 95
Message-Id: <33a19228.113599@news.demon.co.uk>
I looked into this, but I can't get things to work. I've tried under
both command.com (which doesn't like &&) and 4dos.com (which does).
There seem to be other problems as well...
The makefiles (the ones generated by MakeMaker in particular) seem to
assume that a construct like
cd ../lib && <some command 1>
<some command 2>
will execute <some command 1> in ../lib, but will execute <some
command 2> in the current directory. This isn't true on Windows 95. (I
don't know about NT).
Also, in MM_Win32.pm, there's a shell = 'cmd /c' which needs changing.
Finally, the XCOPY and DEL commands don't work right on 95.
The most annoying thing is that the "clean" target doesn't seem to
work properly, so I have to reinstall the sources from the
distribution after each failed attempt, to be sure I have a clean
starting point...
I simply don't have the time at the moment to get this right.
Especially as I don't begin to understand what's going on in the
make/MakeMaker complexities of a perl build...
Is anybody able to offer a pre-built distribution for Windows 95? It's
the only way I'm likely to get this working...
Thanks,
Paul Moore.
On 9 Jun 1997 04:37:13 GMT, "Gary Ng" <garyn@systekit.com> wrote:
>Change the makefile and mm_unix.pm and you should be able
>to build it on 95. email me if you want. This also allows you to build
>other extensions (on CPAN).
>
>Paul Moore <gustav@morpheus.demon.co.uk> wrote in article
><339ad438.10945601@news.demon.co.uk>...
>> As perl 5.004 is now available with Win32 support available "out of
>> the box", I'd like to use it. But from the readme, compilation is only
>> possible on Windows NT. As I have Windows 95, I can't compile. (I've
>> tried and it really doesn't work :-()
>>
>> Can anybody point me to precompiled Win32 binaries which work on
>> Windows 95 (you need to have uncommented a line in the Makefile) which
>> I could use?
------------------------------------------------------------------------
Paul Moore gustav@morpheus.demon.co.uk
I asked my mother for a mind of my own, but she said no
------------------------------------------------------------------------
... DisneyLand: A people trap operated by a mouse.
------------------------------
Date: Fri, 13 Jun 1997 19:51:40 +0200
From: galactus@stack.nl (Arnoud "Galactus" Engelfriet)
Subject: Re: Perl interface for PGP
Message-Id: <siYoz4uYOZMb089yn@stack.nl>
-----BEGIN PGP SIGNED MESSAGE-----
In article <5noigp$7kt@vidar.diku.dk>,
brother@diku.dk (Peter Makholm) wrote:
> galactus@stack.nl (Arnoud "Galactus" Engelfriet) writes:
>
> >Why do you need the sender's name or address for *signing* messages
> >posting to a newsgroup? Surely you as the moderator are doing the
> >signing?
>
> I should aprove postings if they are signed by some people. Not the
> other way.
In that case, what you could do is require that they submit their
public key in advance. Then, simply check the signature on the message,
and if it does not check out (for example, the public key is missing
or the signature is bad), do not approve it.
- --
To find out more about PGP, send mail with HELP PGP in the SUBJECT line to me.
NEW ADDRESS: --> galactus@stack.nl <-- Please PGP encrypt your mail.
Finger galactus@turtle.stack.nl for public key (key ID 0x416A1A35).
Anonymity and privacy site: http://www.stack.nl/~galactus/remailers/
-----BEGIN PGP SIGNATURE-----
Version: 2.6.3i
Charset: noconv
iQCVAgUBM6GisDyeOyxBaho1AQEekQQAvzBbKyCiDfSQl7+UrOHy2qog6I3zipxz
6rT52yr67kmO1TnMYsMQ5LpCXrmNLP6DWn9pH/UKOkSxM8ew0jvYXSU0JPEOOxZT
GatIeW6prdYztF2btYaUr7/Xdh8C0Te1IYKSDnQZQmISplWxtIV81RkqRgyjGSCy
PV10uLCCPeU=
=k4lz
-----END PGP SIGNATURE-----
------------------------------
Date: Fri, 13 Jun 1997 15:33:16 -0500
From: Temporary Account <cgprice@austin.ibm.com>
Subject: PLEASE HELP: Problems with using perl to generate HTML.
Message-Id: <33A1AE8C.41C6@austin.ibm.com>
Hi.
I have written a perl script to generate my home page. The script is
supposed to open a DBM file, read/update my "hits" counter, and then
generate the HTML page using the information from above. I am having a
strange problem--when I run the script from the command line, it works
fine. The dbm file is updated properly, and the output that comes up on
my screen is correct. It has a Content-type header with a blank line
after it, and then my html document.
The problem is, when I call the script through a browser (netscape), it
seems to be totally ignoring any commands that aren't "print"
statements. If I don't put the "print" statements right at the top
(which I can't, since I need to process some info first), the browser
spits up this message:
"Internal Server Error
The server encountered an internal error or misconfiguration and was
unable to complete your request."
If I move the print statements to the front, and put the processing
commands at the end of the script, then the browser reads the HTML file
properly and displays the page--HOWEVER, the other commands do not get
executed at all. The DBM file is not opened or modified at all. (I've
checked the time stamp). If I run the SAME script from the command
line, it updates the DBM just fine.
If I split the script by putting some print statements at the top,
followed by the processing commands, followed by the rest of the print
statements, the browser reads the first print statements, and once it
reaches the end of them, it immediately kills the execution of the
script. Neither the processing commands NOR the remaining print
statements are executed.
I have even toyed briefly with the $| variable, which is supposed to
control print buffering, but whether it is set to 1 or 0 I get the same
results.
If anyone has any idea how to solve this problem or what might be
causing it, I would really appreciate a response, preferably by e-mail
since I don't always have time to check the newsgroups. I'm growing a
bit desparate.
I will include the meat of the script below.
Thanks in advance for your time and help.
Chris Price (cgprice@austin.ibm.com, c.price@mail.utexas.edu)
***********BEGIN PASTE**********
#!/usr/local/bin/perl
$number_of_digits = 6;
#OPEN THE ACCESS COUNTER FILE AND INCREMENT THE COUNTER
while (-f "counter.lock")
{
select(undef,undef,undef, 0.1);
}
open(LOCKFILE, '>counter.lock') || die("Can't open counter.lock: $!\n");
dbmopen(%COUNTERS, '/PATH/counterfile', 0777);
if (!(defined($COUNTERS{'index'})))
{
$COUNTERS{'index'} = 0;
}
$COUNTERS{'index'}++;
$count=$COUNTERS{'index'};
dbmclose (%COUNTERS);
close(LOCKFILE);
unlink('counter.lock');
$formatted_count=sprintf("%0${number_of_digits}d",$count);
#THE FOLLOWING LOOP JUST CREATES A STRING TO EXECUTE AT THE SHELL
# WHICH WILL BE USED TO CREATE A GIF OF THE COUNTER
$make_img_comm = "/PATH/makeImage ";
for ($i = 0; $i < $number_of_digits; $i++)
{
$make_img_comm .= substr($formatted_count, $i, 1);
$make_img_comm .= " ";
}
#THE FOLLOWING COMMAND WILL CALL A PROGRAM THAT USES THE GD
#GRAPHICS LIBRARY TO GENERATE AN IMAGE ON-THE-FLY
`$make_img_comm`;
open(DEBUG, '>>debug.index');
printf DEBUG "The counter is: $formatted_count\n\n";
close(DEBUG);
$|=0;
print "Content-type: text/html\n\n";
print << "EOP";
<HTML>
#BODY REMOVED FOR THE SAKE OF BREVITY
</HTML>
------------------------------
Date: 13 Jun 1997 15:33:42 -0700
From: colink@latticesemi.com (Colin Kuskie)
Subject: Re: RFD: comp.lang.perl reorganization
Message-Id: <5nshs6$elt@defiant.latticesemi.com>
In article <s4vwwnyiw2q.fsf@et-sun4.uk.jpmorgan.com>,
Anthony Heading <heading_anthony@jpmorgan.com> wrote:
>The manual pages already provide a subdivision of language topics, and
>it's not unreasonable IMHO to expect people posting questions about
>inter-process communication to at least be aware of the perlipc manual
>page/pod documentation. So what is wrong with comp.lang.perl.ipc?
I agree, and along those lines, how about comp.lang.perl.dsc for
comp.lang.perl.data-structures?
Colin Kuskie
------------------------------
Date: 14 Jun 1997 15:55:19 GMT
From: kaz@vision.crest.nt.com (Kaz Kylheku)
Subject: Re: What does "UNIX" stand for..
Message-Id: <5nuet7$p7u@bcrkh13.bnr.ca>
In article <339c789b.35848461@news.mindspring.com>,
Robert Munck <munck@acm.org> wrote:
>On 5 Jun 1997 17:41:38 GMT, dgy@rtd.com (Don Yuniskis) wrote:
>
>>In article <01bc71a4$dca66980$49818e9f@gsa.gov>,
>>I've never understood the bias *against* MULTICS as I thought it was
>>*decades* ahead of it's time!
>
>The bias against MULTICS was entirely within IBM, who saw it as a
>major competitor and a reminder that they were unable to produce
>a usable time-sharing system. Big Blue's reaction was to create a
>planet-sized kludge called TSS. I once taught a semester course
>comparing the internal architectures of TSS and MULTICS.
>(at Brown in 1969)
>
>> I suspect the delays in getting it
>>up and running were the inspiration for UNICS's genesis.
>
>Nah, MULTICS was running wonderfully well years before
>UNIX was ever thought of. It ran on a mainframe (GE 635)
>that cost about $20 million in today's dollars. UNIX was
>created to provide similar, though greatly reduced, facilities
>on a machine in the $100K range. Like MSDOS a decade
Sure, reduced facilities like multi-user security, time sharing and memory
protection in 256K of RAM and a 50K operating system image, all written
in a portable high-level language.
>later, it was a huge setback in the development of operating
>systems. C took a similar position in HOLs.
Troll alert.
Nobody ever twisted the arm of the computing community to use C. The way I see
it, a whole lot of useful programs started to be written when C became popular.
It became the tool of choice for countless professionals.
>MULTICS -- a tremendous improvement on all of its successors.
Today, UNIX has a lot of MULTICS like features, such as memory mapped files.
A modern UNIX behaves a lot like MULTICS. The code image of a process
is a memory mapped region that's demand paged. So are shared libraries.
Also, if you look at kernels like Mach or Chorus, it's clear that MULTICS has
had it.
------------------------------
Date: Sat, 14 Jun 1997 08:13:43 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Keith Kwiatek <kkwiatek@nova.umuc.edu>
Subject: Re: what would cause an eval to halt the entir program?
Message-Id: <Pine.GSO.3.96.970614081210.4940R-100000@kelly.teleport.com>
On 13 Jun 1997, Keith Kwiatek wrote:
> For what reasons would this statement cause the
> entire program to halt , without putting anything in
> the $@..............?
>
> $myvar = '$secondvar = 10;'
> eval ($myvar);
> print $secondvar;
Perhaps a bug in Perl. If you can reproduce it with a small script under
5.004, run perlbug to submit it. Thanks!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 14 Jun 1997 07:27:47 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Aveek Datta <MoNoLiTH+@CMU.EDU>
Subject: Re: Writing a secure server < port 1024
Message-Id: <Pine.GSO.3.96.970614072003.4940J-100000@kelly.teleport.com>
On Thu, 12 Jun 1997, Aveek Datta wrote:
> how do we setuid in Perl, safely?
It sounds like you want to give up root's privileges. If memory serves,
something like this is what has worked for me...
# Set new uid and euid
($<, $>, $(, $)) = ($new_uid, $new_uid, $new_gid, $new_gid);
# Sanity check
($<, $>) = (0, 0);
die "Can't relinquish privileges, exiting" unless $< and $>;
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 14 Jun 1997 00:47:57 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: You don't wanna know
Message-Id: <5nspnt$kbd@fridge-nf0.shore.net>
Chris Hilton (chilton@scci-ad.com) wrote:
: 2. How do you sort @milkcows?
use CommonSense;
$please = new CommonSense;
$please->getSome('now');
:-)
: 3. How does a doctor retrieve file information in a hurry?
POSIX? Iodine? Scalpel?
: 4. What might the beginning japh need to do before pattern matching?
Pursue a degree in interior design? :-)
: 5. What did the sys admin tell the japh that was utilizing too many
: clock cycles?
Because the sys admin has been reading too much Dr. Seuss with all the
'clicks and clocks and bricks and socks and.'
: 6. What did the priest say when the japh confessed he'd written
: 'atan2($_[0], sqrt($_[0]*$_[0]))'?
bless $you
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
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 611
*************************************
