[24803] in Perl-Users-Digest
Perl-Users Digest, Issue: 6956 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 3 14:07:12 2004
Date: Fri, 3 Sep 2004 11:05:08 -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 Fri, 3 Sep 2004 Volume: 10 Number: 6956
Today's topics:
Re: Data Structures in PERL <abigail@abigail.nl>
Re: Data Structures in PERL <abigail@abigail.nl>
Re: Execute Windows program from Perl script (??) (Tony McGuire)
Re: Execute Windows program from Perl script (??) <scobloke2@infotop.co.uk>
Re: Execute Windows program from Perl script (??) <nobull@mail.com>
Re: Getting System and Hardare Informatin <miknrene@drizzle.com>
Re: Getting System and Hardare Informatin <ThomasKratz@REMOVEwebCAPS.de>
Re: How do you lock a file BEFORE changes are made? ctcgag@hotmail.com
Re: NEw to Perl <abigail@abigail.nl>
Re: Newbie needs help on pattern matching <opengeometry@yahoo.ca>
OS/2 port of Perl 5.8 not adding CR to \n - partially s (Seymour J.)
Re: output becomes unicode (Peter J. Acklam)
Re: travesty.pl (was: YOU ALL SUCK!) <miknrene@drizzle.com>
Re: Unitialized variables <1usa@llenroc.ude.invalid>
Re: Xah Lee's Unixism <no.spam@here.dude>
Re: Xah Lee's Unixism <jwkenne@attglobal.net>
Re: Xah Lee's Unixism <lynn@garlic.com>
Re: Xah Lee's Unixism <stimpy1997uk@yahoo.com>
Re: Xah Lee's Unixism <stimpy1997uk@yahoo.com>
Re: Xah Lee's Unixism <albalmer@att.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 03 Sep 2004 16:38:12 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Data Structures in PERL
Message-Id: <slrncjh7fk.usv.abigail@alexandra.abigail.nl>
Roman Rodriguez (romanr@cablespeed.com) wrote on MMMMXXI September
MCMXCIII in <URL:news:yridnWpGgaZQyaXcRVn-ow@cablespeedwa.com>:
)) Can you use PERL to create data structures such as linked list?
Yes.
)) if so, is
)) there maybe a link where this can be studied?
"man perlref".
But you have to ask yourself whether you really want a linked list.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
------------------------------
Date: 03 Sep 2004 16:39:48 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Data Structures in PERL
Message-Id: <slrncjh7ik.usv.abigail@alexandra.abigail.nl>
Paul Lalli (mritty@gmail.com) wrote on MMMMXXI September MCMXCIII in
<URL:news:vfZZc.2291$ZS6.1737@trndny07>:
$$ "Roman Rodriguez" <romanr@cablespeed.com> wrote in message
$$ news:yridnWpGgaZQyaXcRVn-ow@cablespeedwa.com...
$$ > Can you use PERL to create data structures such as linked list? if
$$ so, is
$$ > there maybe a link where this can be studied?
$$
$$ (Perl. Not PERL. See: perldoc -q difference)
$$
$$ You *can*, but you don't want to. Perl's native arrays are already more
$$ powerful than linked lists.
There are things you can do more efficiently with linked lists than
with Perl arrays.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
------------------------------
Date: 3 Sep 2004 08:31:03 -0700
From: tony@paradoxcommunity.com (Tony McGuire)
Subject: Re: Execute Windows program from Perl script (??)
Message-Id: <f896a829.0409030731.7bbe6502@posting.google.com>
Ian Wilson <scobloke2@infotop.co.uk> wrote
>
> If I recall correctly, you want to invoke textpad to edit apache's
> config and then get Apache to reload its config.
>
> I'd find it a lot easier to use perl to
>
> * read the config file,
> * write a new httpd.conf.new,
> * rename httpd.conf httpd.conf.old
> * rename httpd.conf.new httpd.conf
> * get Apache's process ID (hit PID file)
> * send a 'reload your config' signal (HUP) to Apache. (perldoc -f kill)
>
> I suspect this would be an order of magnitude simpler.
Now *this* is the type of thing I was hoping for.
I've already gotten to the point of modifying the httpd.conf file with
Perl.
But I'm using an outside scheduler to reload Apache. It'd be smoother
to do it directly in the Perl script; much preferred.
So now I'm only left with figuring out retrieving a process ID, and
sending the 'reload'.
Ian, thank you.
------------------------------
Date: Fri, 3 Sep 2004 16:37:39 +0000 (UTC)
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: Execute Windows program from Perl script (??)
Message-Id: <cha6ki$88f$1@sparta.btinternet.com>
Tony McGuire wrote:
> Ian Wilson <scobloke2@infotop.co.uk> wrote
>
>>If I recall correctly, you want to invoke textpad to edit apache's
>>config and then get Apache to reload its config.
>>
>>I'd find it a lot easier to use perl to
>>
>>* read the config file,
>>* write a new httpd.conf.new,
>>* rename httpd.conf httpd.conf.old
>>* rename httpd.conf.new httpd.conf
>>* get Apache's process ID (hit PID file)
>>* send a 'reload your config' signal (HUP) to Apache. (perldoc -f kill)
>>
>>I suspect this would be an order of magnitude simpler.
>
>
> Now *this* is the type of thing I was hoping for.
>
> I've already gotten to the point of modifying the httpd.conf file with
> Perl.
>
> But I'm using an outside scheduler to reload Apache. It'd be smoother
> to do it directly in the Perl script; much preferred.
>
> So now I'm only left with figuring out retrieving a process ID, and
> sending the 'reload'.
Actually, I fell victim to Xah Lee's Unixism there. Whilst there is a
lot of interesting stuff in /var/run on a Linux system, on a Windows
system things are ... different. You could perhaps get the PID from
apache's error log but I've no idea if signals work in Win32. There may
be some Win32 API for service restart you could invoke using the
appropriate Perl modules for Win32.
I'd look at http://httpd.apache.org/docs/windows.html, especially the
bit at the end. Then perldoc -f system or perldoc -f exec.
------------------------------
Date: Fri, 03 Sep 2004 19:02:13 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: Execute Windows program from Perl script (??)
Message-Id: <chabb5$9bp$1@sun3.bham.ac.uk>
Ian Wilson wrote:
> Tony McGuire wrote:
>
>> Ian Wilson <scobloke2@infotop.co.uk> wrote
>>
>>> * send a 'reload your config' signal (HUP) to Apache. (perldoc -f kill)
>>>
>> Now *this* is the type of thing I was hoping for.
>>
>> So now I'm only left with figuring out retrieving a process ID, and
>> sending the 'reload'.
>
> Actually, I fell victim to Xah Lee's Unixism there.
>
> There may be some Win32 API for service restart you could invoke
> using the appropriate Perl modules for Win32.
I don't think there is for restart but there is for stop and start (as
mentioned elsewhere in this thread).
------------------------------
Date: Fri, 03 Sep 2004 09:17:42 -0700
From: Michael Slass <miknrene@drizzle.com>
Subject: Re: Getting System and Hardare Informatin
Message-Id: <m3d613ba3d.fsf@eric.rossnet.com>
Noname <Some.One@hotmail.com> writes:
>Noname <Some.One@hotmail.com> wrote in news:D%WZc.24507$k4.475860
>@news1.nokia.com:
>
>> Hi,
>> I need to get system and hardware Information using Perl Scripts
>> like
>> RAM Size and other memory sizes
>> Processor speed and Make/model etc
>> Hardware Make and Model
>> etc
>> how can I get these
>>
>>
>>
>
>I did found some in formation Using Win32::Registry module , like processor
>speed etc, but not Memory size and Exact Model name, on Windows (Sorry for
>not mentionaing before)
The Windows Management Interface (WMI) has an OLE object that can give
you all this info. You can get at it through Win32::OLE.
Microsoft's website has VBScript examples for twaddling the WMI COM
object, so those can be stolen and ported to Perl without too much
pain.
--
Mike Slass
------------------------------
Date: Fri, 03 Sep 2004 18:49:21 +0200
From: Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: Getting System and Hardare Informatin
Message-Id: <4138a093$0$14528$bb690d87@news.main-rheiner.de>
Michael Slass wrote:
> Noname <Some.One@hotmail.com> writes:
>
>
>>Noname <Some.One@hotmail.com> wrote in news:D%WZc.24507$k4.475860
>>@news1.nokia.com:
>>
>>
>>>Hi,
>>>I need to get system and hardware Information using Perl Scripts
>>>like
>>>RAM Size and other memory sizes
>>>Processor speed and Make/model etc
>>>Hardware Make and Model
>>>etc
>>>how can I get these
>>>
>>>
>>>
>>
>>I did found some in formation Using Win32::Registry module , like processor
>>speed etc, but not Memory size and Exact Model name, on Windows (Sorry for
>>not mentionaing before)
>
>
> The Windows Management Interface (WMI) has an OLE object that can give
> you all this info. You can get at it through Win32::OLE.
>
> Microsoft's website has VBScript examples for twaddling the WMI COM
> object, so those can be stolen and ported to Perl without too much
> pain.
>
Since I have done that lately for our software distribution here's a sub
that does exactly that
# Get Inventory Info from the WMI
sub GetWMIInfo {
# init
my $wmi = Win32::OLE->GetObject(
"winmgmts:{impersonationLevel=impersonate,(security)}"
);
unless ( $wmi ) {
print 'error initializing WMI interface, ', Win32::OLE->LastError;
return;
}
my %WMI;
# hardware params
my @inst = in($wmi->InstancesOf('Win32_ComputerSystem'));
$WMI{MEMORY_MB} = int($inst[0]{TotalPhysicalMemory} / 1024**2);
$WMI{CPU_COUNT} = $inst[0]{NumberOfProcessors};
@inst = in($wmi->InstancesOf('Win32_LogicalDisk'));
foreach my $i ( @inst ) {
next if $i->{DeviceID} ne 'C:';
$WMI{DISK_MB_TOTAL} = int($i->{Size} / 1024**2);
$WMI{DISK_MB_FREE} = int($i->{FreeSpace} / 1024**2);
last;
}
@inst = in($wmi->InstancesOf('Win32_Processor'));
$WMI{CPU_MHZ} = $inst[0]{MaxClockSpeed};
# hotfixes
$WMI{HOTFIX} = {};
@inst = in($wmi->InstancesOf('Win32_QuickFixEngineering'));
for my $h ( @inst ) {
if ( $h->{HotFixID} =~ /(\d{5,})/ ) {
$WMI{HOTFIX}{$1} = 1;
}
}
return(\%WMI);
}
For browsing the WMI get the 'WMI Tools' from Microsoft (sorry haven't got
the URL at hand). It should be easy to adapt the sub for fetching other data.
Thomas
--
open STDIN,"<&DATA";$=+=14;$%=50;while($_=(seek( #J~.> a>n~>>e~.......>r.
STDIN,$:*$=+$,+$%,0),getc)){/\./&&last;/\w| /&&( #.u.t.^..oP..r.>h>a~.e..
print,$_=$~);/~/&&++$:;/\^/&&--$:;/>/&&++$,;/</ #.>s^~h<t< ..~. ...c.^..
&&--$,;$:%=4;$,%=23;$~=$_;++$i==1?++$,:_;}__END__#....>>e>r^..>l^...>k^..
------------------------------
Date: 03 Sep 2004 15:18:55 GMT
From: ctcgag@hotmail.com
Subject: Re: How do you lock a file BEFORE changes are made?
Message-Id: <20040903111855.942$i7@newsreader.com>
jl_post@hotmail.com (J. Romano) wrote:
> tiltonj@erols.com (Jay Tilton) wrote in message
> news:<412fdce7.447163607@news.erols.com>...
> > jl_post@hotmail.com (J. Romano) wrote:
> > :
> > : Not only is this approach unfavorable because it uses extra lines of
> > : code that seem unnecessary, but according to "perldoc -f truncate",
> > : calling truncate() "produces a fatal error if truncate isn't
> > : implemented on your system," which makes me think that it's not all
> > : that portable.
> >
> > How much portability do you really need? Is it worth jumping through
> > hoops to make your program accommodate every platform that can run
> > Perl?
>
> I would just like to know if there is an easy way to lock a file
> before it gets truncated. If there isn't, then apparently flock()
> isn't meant to be used with an open() statement that uses ">" (or
> "+>"). This surprises me a little, because nowhere in "perldoc -f
> flock" does it say this.
Well, the damage is already done by the time flock gets to it, so
perldoc -f flock wouldn't be a very intuitive place to put such a warning.
Should it also warn that flock can't be used as a scalpel during brain
surgery?
It is given in perldoc perlopentut, which seems about right.
> As a result, anyone who doesn't realize this
> will get a nasty surprise when they try flock()ing a file they
> open()ed with ">".
Nasty, yes. Surprise? shouldn't be. There is no reason to think that
open is going look ahead in every possible execution path of your code to
see if you later flock the filehandle (but of course before you first write
to it), and then change the way it behaves based on that. That is
unreasonable.
>
> As for jumping through hoops, I just want to know how it's done,
> especially if there is an easier and better way to do it. I've only
> had this situation come up once, and I took the approach I stated in
> an earlier post (that is, open()ing with "+<", seek()ing to the start
> of the file, and then truncate()ing the file) and it worked great at
> the time.
Put that code in a subroutine library, and use it. (no, actually, take
the code out of perlopentut and use that. It handles the case that the
file you want to lock doesn't even exist yet.)
> Like I said, I just want to know how to lock a file for writing
> before it gets truncated for the next time I have to do it. I could
> stick with the approach I've used before, and if for some reason it's
> not portable enough to be used on the platform I will be using at the
> time, I can try the lock-file approach. (And if that doesn't work, I
> don't know what I'll do...)
Not use that platform :)
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 03 Sep 2004 16:36:41 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: NEw to Perl
Message-Id: <slrncjh7cp.usv.abigail@alexandra.abigail.nl>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMMMXXI September
MCMXCIII in <URL:news:ch9joo$m74$1@mamenchi.zrz.TU-Berlin.DE>:
-- Abigail <abigail@abigail.nl> wrote in comp.lang.perl.misc:
-- > Shawn Melnic (sham_x30@yahoo.com) wrote on MMMMXXI September MCMXCIII in
-- > <URL:news:a365c2aa.0409021716.4dde5964@posting.google.com>:
-- > `` greetings,
-- > ``
-- > `` how do I make while in perl do this:
-- > ``
-- > `` while(&list) {
-- > `` @line = ..
-- > `` bla bla
-- > `` bla
-- > `` }
-- > ``
-- > `` sub list {
-- > `` print "line 1";
-- > `` print "line 2" ;
-- > `` print "line 3" ;
-- > `` }
-- > ``
-- > `` Basically, I want while to read the sub list into an array..
-- >
-- >
-- > sub list {
-- > ("line 1", "line 2", "line 3");
-- > }
-- >
-- > while (my @line = list) {
-- > bla bla
-- > bla
-- > }
--
-- That's the second infinite loop to be suggested in this thread :)
Well, that all depends on what 'bla bla bla' does, doesn't? Or what the
real 'sub list' returns. Or do you really think the OP intented to have
a subroutine that always returned the three strings "list 1", "list 2",
and "list 3"?
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: 3 Sep 2004 16:33:04 GMT
From: William Park <opengeometry@yahoo.ca>
Subject: Re: Newbie needs help on pattern matching
Message-Id: <2prklvFne4avU1@uni-berlin.de>
In <comp.lang.awk> Madhusudan Singh <msdebian@yahoo.com> wrote:
> Hi
>
> I am kind of new to perl (dabbled in it a little bit 4-5 years
> ago, but never needed it till now - I am writing an
> application).
>
> I need to extract some info from /sbin/iwconfig eth1 :
>
> $ /sbin/iwconfig eth1 | grep "Link"
>
> Link Quality:90/92 Signal level:-8 dBm Noise level:-148
> dBm (updated)
>
> I want to extract 90/92 from the stuff above. How do I code it
> ?
>
> If it is possible to use awk to do the above ('{print $2}'
> yields "Quality:90/92", when I need to extract 90/92 or even
> better 90 and 92 separately, that is also ok.
>
> How does one embed an awk command in perl ? I tried :
>
> $info=`/sbin/iwconfig eth1 | grep "Link" | awk '{print $2}'`;
> but it did not work (just reproduced o/p as if the second pipe
> were not even present).
If you're adventurous, use shell.
1. iwconfig eth1 | grep Link | while IFS=' :/' read a b c d e; do
echo $c $d
done
2. line=`iwconfig eth1 | grep Link`
sscanf "$line" ' Link Quality:%[0-9]/%[0-9]' c d
echo $c $d
--
William Park <opengeometry@yahoo.ca>
Open Geometry Consulting, Toronto, Canada
------------------------------
Date: Fri, 03 Sep 2004 11:19:38 -0300
From: "Shmuel (Seymour J.) Metz" <spamtrap@library.lspace.org.invalid>
Subject: OS/2 port of Perl 5.8 not adding CR to \n - partially solved
Message-Id: <41388b8a$2$fuzhry+tra$mr2ice@news.patriot.net>
In <ch7lhs$2ll6$1@agate.berkeley.edu>, on 09/02/2004
at 05:33 PM, Ilya Zakharevich <nospam-abuse@ilyaz.org> said:
>Looking at your `perl -V', I suspect that just
> perl -we "print qq(a\nb\n)"
>will do the same, no playing with %ENV is necessary...
Probably; the problem turns out to be the eval "require CGI in the
BEGIN block.
>And again, it does not make sense posting a "piece" of code.
Well, in this case the piece of code turns out to be all that was
relevant. I got it working by commenting out that code. Looking at
CGI.pm, I see
$needs_binmode = $OS=~/^(WINDOWS|DOS|OS2|MSWin|CYGWIN)/;
if ($needs_binmode) {
$CGI::DefaultClass->binmode(main::STDOUT);
$CGI::DefaultClass->binmode(main::STDIN);
$CGI::DefaultClass->binmode(main::STDERR);
}
I couldn't find anything in the documentation mentioning that, so now
my question is "Is that a bug or a feature?"
--
Shmuel (Seymour J.) Metz, SysProg and JOAT <http://patriot.net/~shmuel>
Unsolicited bulk E-mail subject to legal action. I reserve the
right to publicly post or ridicule any abusive E-mail. Reply to
domain Patriot dot net user shmuel+news to contact me. Do not
reply to spamtrap@library.lspace.org
------------------------------
Date: 03 Sep 2004 18:42:41 +0200
From: pjacklam@online.no (Peter J. Acklam)
Subject: Re: output becomes unicode
Message-Id: <u0ufs3r2.fsf@online.no>
"Jürgen Exner" <jurgenex@hotmail.com> wrote:
> Leif Wessman wrote:
>
> > Sorry for this silly question. I've seeked for answer but
> > haven't found anything.
> >
> > This simple program:
> >
> > --
> > #!/usr/bin/perl
> > use strict;
> > use warnings;
> > print "åäö";
>
> [Rest of posting being snipped as signature; don't do that]
> [Manually re-attached]
Perhaps you should fix your newsreader so it doesn't consider "--"
as a signature separator.
Peter
--
#!/local/bin/perl5 -wp -*- mode: cperl; coding: iso-8859-1; -*-
# matlab comment stripper (strips comments from Matlab m-files)
s/^((?:(?:[])}\w.]'+|[^'%])+|'[^'\n]*(?:''[^'\n]*)*')*).*/$1/x;
------------------------------
Date: Fri, 03 Sep 2004 09:12:55 -0700
From: Michael Slass <miknrene@drizzle.com>
Subject: Re: travesty.pl (was: YOU ALL SUCK!)
Message-Id: <m3hdqfbabc.fsf@eric.rossnet.com>
jl_post@hotmail.com (J. Romano) writes:
>Dear Eric,
>
> The first edition of "Programming Perl" (back when it was the "Pink
>Camel book", not the "Blue Camel book") had several real-world
>programs, many of which are now found in the Perl Cookbook. One such
>program (that never made it into the cookbook) was "travesty," a
>program that spewed out somewhat random text based from standard
>input.
>
> It analyzed every two-word combination and stored off in a lookup
>hash all the words that came next. When printing out text, it would
>print out a new word based on the previous two words printed.
BTW: You're describing a Markovian model; _The Practice of
Programming_ by Kernighan and Pike details what the Markovian model
should do, and then gives C examples of good ways to implement the
data structure. (Perl, of course, makes that last bit a bunch
easier).
--
Mike Slass
------------------------------
Date: 3 Sep 2004 16:48:28 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Unitialized variables
Message-Id: <Xns955982499A5C2asu1cornelledu@132.236.56.8>
brad@van-orden.org (Brad) wrote in
news:e32c2b09.0409030701.13a2ed3e@posting.google.com:
> Does anyone know a good test for an unitialzed variable? I tried
> "! defined $var", but that doesn't seem to work.
What do you mean it does not work? What do you expect and what happens
instead? Where is the code?
C:\Home> cat d.pl
my $var;
print "\$var is not defined\n" if ! defined $var;
print "\$var is not defined\n" unless defined $var;
C:\Home> cat d.pl
$var is not defined
$var is not defined
> I've also tried '$var eq ""' and that doesn't work either.
my $var;
print "\$var is not defined\n" if '$var eq ""';
C:\Home> perl d.pl
$var is not defined
This last one underscores the importance of posting real code rather than
BS.
> Any suggestions would be greatly appreciated!
Read the posting guidelines.
Sinan.
------------------------------
Date: Fri, 03 Sep 2004 15:37:46 GMT
From: red floyd <no.spam@here.dude>
Subject: Re: Xah Lee's Unixism
Message-Id: <ed0_c.15495$5w.5025@newssvr29.news.prodigy.com>
Rob Warnock wrote:
> But as I finished there:
>
> Though there were certainly other places where the mc68000's imprecise
> exceptions left no choice but to blow the offending process away...
>
Hence the need for the MC68010.
------------------------------
Date: Fri, 03 Sep 2004 16:12:52 GMT
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: Xah Lee's Unixism
Message-Id: <8K0_c.2928$lv3.518794@news4.srv.hcvlny.cv.net>
Anne & Lynn Wheeler wrote:
> i have some recollection of competing bids building single unit
> assemblies at sea coast sites allowing them to be barged to
> florida. supposedly the shuttle boosters were sectioned specifically
> because they were being fabricated in utah and there were
> transportation constraints.
Yes. A vastly inferior design was used, which ended up killing seven
astronauts, because Orrin Hatch had to be appeased with boodle for Utah.
--
John W. Kennedy
"Give up vows and dogmas, and fixed things, and you may grow like That.
...you may come to think a blow bad, because it hurts, and not because
it humiliates. You may come to think murder wrong, because it is
violent, and not because it is unjust."
-- G. K. Chesterton. "The Ball and the Cross"
------------------------------
Date: Fri, 03 Sep 2004 10:45:24 -0600
From: Anne & Lynn Wheeler <lynn@garlic.com>
Subject: Re: Xah Lee's Unixism
Message-Id: <uk6vbs3mj.fsf@mail.comcast.net>
SM Ryan <wyrmwif@tango-sierra-oscar-foxtrot-tango.fake.org> writes:
> It's nice to know people still have time to work on really important things.
was also responsible for adeventure inside the company ... recent
pst in a.o.m
http://www.garlic.com/~lynn/2004k.html#38 Adventure
slight reference to the internal network in above
http://www.garlic.com/~lynn/subtnetwork.html#internalnet
one of the arguments we used in proposed security sweeps to find all
copies ... was that a public entertainment area would be less of a
problem than attempting to outright & totally outlaw such activities.
for one thing a single (trusted?) entertainment area would use less
disk space than lots of disguised (to evade security sweep) individual
copies.
random past adventure threads
http://www.garlic.com/~lynn/98.html#56 Earliest memories of "Adventure" & "Trek"
http://www.garlic.com/~lynn/99.html#169 Crowther (pre-Woods) "Colossal Cave"
http://www.garlic.com/~lynn/2000b.html#72 Microsoft boss warns breakup could worsen virus problem
http://www.garlic.com/~lynn/2000d.html#33 Adventure Games (Was: Navy orders supercomputer)
http://www.garlic.com/~lynn/2001m.html#14 adventure ... nearly 20 years
http://www.garlic.com/~lynn/2001m.html#17 3270 protocol
http://www.garlic.com/~lynn/2001m.html#44 Call for folklore - was Re: So it's cyclical.
http://www.garlic.com/~lynn/2003f.html#46 Any DEC 340 Display System Doco ?
http://www.garlic.com/~lynn/2003i.html#69 IBM system 370
http://www.garlic.com/~lynn/2003l.html#40 The real history of computer architecture: the short form
http://www.garlic.com/~lynn/2004c.html#34 Playing games in mainframe
http://www.garlic.com/~lynn/2004g.html#2 Text Adventures (which computer was first?)
http://www.garlic.com/~lynn/2004g.html#7 Text Adventures (which computer was first?)
http://www.garlic.com/~lynn/2004g.html#49 Adventure game (was:PL/? History (was Hercules))
http://www.garlic.com/~lynn/2004g.html#57 Adventure game (was:PL/? History (was Hercules))
--
Anne & Lynn Wheeler | http://www.garlic.com/~lynn/
------------------------------
Date: Fri, 3 Sep 2004 18:10:57 +0100
From: "Stimpy" <stimpy1997uk@yahoo.com>
Subject: Re: Xah Lee's Unixism
Message-Id: <2prn7jFonemvU1@uni-berlin.de>
SM Ryan wrote:
>
> Not really. It was known to be a problem from the first Multi-Finder.
The Faulty-Minder :-)
------------------------------
Date: Fri, 3 Sep 2004 18:12:20 +0100
From: "Stimpy" <stimpy1997uk@yahoo.com>
Subject: Re: Xah Lee's Unixism
Message-Id: <2prna6Fnrv5rU1@uni-berlin.de>
jmfbahciv@aol.com wrote:
>
> There was a city getting restored in Turkey that JMF and I visited;
> I cannot remember its name other than it's in the New Testament
> written by Paul. It was one of most fascinating places I'd ever
> been other than aquariums and zoos. There are ruts in the
> stone-block pavements caused by running carts to/from harbor/city.
> We were told that these ruts were worn down by usage.
There are many streets and paths in the UK still in everyday use where this
is the case!
------------------------------
Date: Fri, 03 Sep 2004 10:45:27 -0700
From: Alan Balmer <albalmer@att.net>
Subject: Re: Xah Lee's Unixism
Message-Id: <3vahj09m887i64osgm65bhhh6l9tl6j38a@4ax.com>
On Fri, 03 Sep 2004 16:12:52 GMT, "John W. Kennedy"
<jwkenne@attglobal.net> wrote:
>Anne & Lynn Wheeler wrote:
>> i have some recollection of competing bids building single unit
>> assemblies at sea coast sites allowing them to be barged to
>> florida. supposedly the shuttle boosters were sectioned specifically
>> because they were being fabricated in utah and there were
>> transportation constraints.
>
>Yes. A vastly inferior design was used, which ended up killing seven
>astronauts, because Orrin Hatch had to be appeased with boodle for Utah.
The first disaster was due to (possibly inferior) gaskets and inferior
judgment on launch day. The second was falling foam, and inferior
realization of the gravity of the problem. I'm not clear on what
either had to do with Utah.
--
Al Balmer
Balmer Consulting
removebalmerconsultingthis@att.net
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 6956
***************************************
