[6584] in Perl-Users-Digest
Perl-Users Digest, Issue: 209 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 31 18:15:34 1997
Date: Mon, 31 Mar 97 15:00:26 -0800
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, 31 Mar 1997 Volume: 8 Number: 209
Today's topics:
$^O <melissa@vorlon.mit.edu>
Re: ----- LOOKING FOR THAT EXTRA CASH? ----- <jlemons@myriad.net>
Re: crypt (Tom Faust)
Finding first day of a month <skinnard@vcd.hp.com>
Re: Free web-server (Michael Kenyon)
Re: Help! Making a perl script write to a log sheet <hanklem@ibm.net>
Re: HELP!! "POST" not work on perl??? (brian d foy)
Help: sys/ipc.ph reports errors but works (John L. Daschbach)
Help: date and time <amak@ernie.eecs.uic.edu>
Re: Hlp pls : "push" errors when scripts ported to Unix <rootbeer@teleport.com>
Re: Hlp pls : "push" errors when scripts ported to Unix (Simon Hyde (aka Jeckyll))
Re: Hlp pls : "push" errors when scripts ported to Unix <tchrist@mox.perl.com>
Re: how to check Backslash? (brian d foy)
Is Perl the ultimate scripting language? <behurzeler@ucdavis.edu>
New pages/mirror/FRENCH version -- 4200+ links on Objec <manfred.schneider@rhein-neckar.de>
Oraperl CGI Problem! Help... <orange@globalserve.net>
Replaceing Text <scs@huron.net>
Re: running a loop foreach $ARGV? (Andrew M. Langmead)
Type glob/ max # of files <stcpjd@micro.lucent.com>
Re: Unix and ease of use (WAS: Who makes more ...) (Steve Mading)
Re: Unix and ease of use (WAS: Who makes more ...) (Michael Derousselle)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 31 Mar 1997 14:38:36 -0500
From: Melissa Algeo <melissa@vorlon.mit.edu>
Subject: $^O
Message-Id: <m33etb7sxv.fsf@vorlon.mit.edu>
How do I use the special variable $^O? Am I supposed to initialize
it or otherwise do something to it? The following line
print "OS is $^O\n";
prints only
OS is
I tried using English.pm and $OSNAME, but that was empty too. This
happens to me both with Perl for Win32 and on Sun Unix.
--
melissa@vorlon.mit.edu Melissa Algeo aa575@seorf.ohiou.edu
"Never trust a machine that can't count higher than one."
-Unknown
------------------------------
Date: Mon, 31 Mar 1997 13:25:51 -0600
From: "John W. Lemons III" <jlemons@myriad.net>
Subject: Re: ----- LOOKING FOR THAT EXTRA CASH? -----
Message-Id: <33400FBF.16A5@myriad.net>
Stefan Puchta (Steiff) wrote:
>
> >> $$$YOU WILL NOT REGRET READING THIS$$$
> >>
>
> i did
> >
> >I don't think that this is the place for such strange dealings!!!
> >
> >everardo
> yes. i think he should try comp.lang.cobol
> maybe he4ll find some interested persons
I find that if I check between the cushions on my couch, I usually find
"THAT EXTRA CASH".
oh yea, under the seat in my car is good too...
------------------------------
Date: Mon, 31 Mar 1997 22:09:11 GMT
From: tom@vicspdi.com (Tom Faust)
Subject: Re: crypt
Message-Id: <33403191.514566768@client.sw.news.psi.net>
Julian Houlding <houlding@wdg.mot.com> wrote:
>I have written a script which reads the encrypted password from the
>/etc/passwd file, then ecrypts the users password using the crypt()
>function and returns true/ false. NOW, this script is working fine when
>I run it at the UNIX prompt, however, when I call the script through one
>of my web pages, I get VERY different results (even though I have hard
>coded the user and password into the script). I have written the
>encrypted password obtained from the /etc/passwd to a file>>>this
>appears as a * in the file when run through the web and appears properly
>(string of several characters) when run through UNIX prompt???
>
>Does anyone have any idea what is going on here???
Most modern Unix systems do not store the password in the /etc/passwd
file since /etc/passwd is readable by anyone. The actual password is
stored in /etc/security/passwd (usually) in a different format, and is
only readable by root (which could be a problem depending on your web
setup). Depending on the system, a * or some other special character
is used to denote that the password is stored in this alternate
location. Another special character might denote that the password has
never been set.
However, do you really think that it's a good idea to have a password
comparison program available on your web site?? Sounds a mite
dangerous to me.
Tom
------------------------------
Date: Mon, 31 Mar 1997 10:49:29 -0800
From: Scott Kinard <skinnard@vcd.hp.com>
Subject: Finding first day of a month
Message-Id: <33400739.4B4D@vcd.hp.com>
Greetings,
I need a method to get the first day of the week for a given month
during
a year. There is a nifty way I found to do this in JavaScript, but I'm
not
using it for this particular problem, I'm using Perl.
Here's the JavaScript method I'd like to emulate:
Start = new Date("March 1,1997");
Day = Start.getDay();
In this case, Start.getDay() will return the day of the week as an
integer
where 0=Sunday, 1=Monday, etc. I know I could use the current day/date
info
returned from the Unix date command and count backwards and such to
determine
this value, however, I need this to work for any month/year, not just
the
current one.
Please email your suggestions to kinards@teleport.com
Your help is appreciated,
Scott
------------------------------
Date: Mon, 31 Mar 1997 22:02:01 GMT
From: kenyon@ti.com (Michael Kenyon)
Subject: Re: Free web-server
Message-Id: <5hpci4$km$1@tilde.csc.ti.com>
Try OmniHTTPd from Harvard.
http://www.fas.harvard.edu/~glau/httpd/
Regards,
Michael
oaf@vingmed.no (Ole Asbjorn Fadum) wrote:
>--
>As a long term perl user on UNIX, I've started the move toward
>Windows. I'm very pleased that perl is available on the PC, and
>I've a project where I'm going to make some CGI programming on
>the PC.
>I would like to have a tip of free available web server, which
>run Windows95, and easily could interface to perl CGI.
>Any suggestion??
>========================================================================
>Ole Asbjorn Fadum (oaf@vingmed.no)
>Vingmed Sound A/S
>Box 141
>N-3191 Horten
>NORWAY
------------------------------
Date: Mon, 31 Mar 1997 11:00:08 -0700
From: Hank LeMieux <hanklem@ibm.net>
Subject: Re: Help! Making a perl script write to a log sheet
Message-Id: <333FFBA8.1CBB@ibm.net>
Brian,
I have a script that does just this. What you do is simply have your
html pages call the script each time they are hit (there are several
ways of doing this), then the script stores select CGI $ENV parameters
in a text log file.
You can see my script in action at
<http://www.rt66.com/~hanklem/cgi.htm>. If you want to know more, just
drop me an email.
Hank
--
Hank LeMieux
Professional Web Design/JavaScript/CGI
Santa Fe, NM, USA
(505) 986-8166
http://www.rt66.com/~hanklem
alternate email: hanklem@aol.com
On 22 Mar 1997, Brian Cohen wrote:
>
>Can someone please tell me how to make a perl script write to a log
>sheet so I can see who was on my web site and at what time. I would
>appreciate the advice.
------------------------------
Date: Mon, 31 Mar 1997 15:54:19 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: HELP!! "POST" not work on perl???
Message-Id: <comdog-3103971554190001@nntp.netcruiser>
In article <5hoqe9$dkg@news2.cais.com>, duffy@cais.cais.com (MCC) wrote:
> I just changed my Web server from NCSA 1.5 to Apache 1.2b7. After I started
> "httpd", I found all of my "CGI" programs with "POST" are not work any more.
> On server "error_log", the following error message will come out:
>
> fail for XXX.XXX.XXX.XXX reason: malformed header from script. Bad header =No
sounds like a CGI programming problem rather than a Perl problem.
perhpas if you posted more details to comp.infosystems.www.authoring.cgi
somebody can help. don't forget the standard troubleshooting things [1].
[1]
<URL:http://www.perl.com/perl/faq/idiots-guide.html>
--
brian d foy <URL:http://computerdog.com>
unsolicited commercial email is not appreciated
------------------------------
Date: 31 Mar 1997 13:11:42 -0800
From: d3h486@wd19518.pnl.gov (John L. Daschbach)
Subject: Help: sys/ipc.ph reports errors but works
Message-Id: <m3pvwfg41d.fsf@wd19518.pnl.gov>
I'm getting some warning errors when using "sys/ipc.ph" but semaphores
are working. It seems some of the entries in ipc.ph and sem.ph are
not valid, probably because they come from h2ph.
Running Linux (Redhat 4.0, Perl 5.003) I get the following:
[d3h486@wd19518 Sem]$ test_ipc.pl
Number found where operator expected at (eval 55) line 1, near ") 0"
(Missing operator before 0?)
Bare word found where operator expected at (eval 86) line 1, near "* &addr"
(Missing operator before addr?)
Operator or semicolon missing before &addr at (eval 86) line 1.
Ambiguous use of & resolved as operator & at (eval 86) line 1.
Operator or semicolon missing before &const at (eval 87) line 1.
Ambiguous use of & resolved as operator & at (eval 87) line 1.
String found where operator expected at (eval 87) line 1, near "const 'struct __dummy'"
(Do you need to predeclare const?)
Operator or semicolon missing before &addr at (eval 87) line 1.
Ambiguous use of & resolved as operator & at (eval 87) line 1.
Main here
Semget: 0
Waiting
Done
[d3h486@wd19518 Sem]$
where
#!/usr/bin/perl
#
# test_ipc.pl
#
# Purpose:
#
# $Log$
#
require "sys/ipc.ph";
require "sys/sem.ph";
print STDERR "Main here\n";
#
# Get sem id
#
$semkey = 1;
$numsem = 4;
$myflag = 0x1C0;
$semflag = $myflag | IPC_CREAT;
$semid = semget($semkey,$numsem,$semflag);
print STDERR "Semget: $semid $!\n";
#
# Wait for sem to go to zero.
# Must be set elsewhere (I use test2.c)
#
$semnum = 0;
$semop = 0;
$semflag = 0;
$semop = pack("s*",$semnum,$semop,$semflag);
print STDERR "Waiting \n";
semop($semid,$semop);
print STDERR "Done\n";
exit;
------------------------------
Date: Mon, 31 Mar 1997 14:51:28 -0600
From: Alex Mak <amak@ernie.eecs.uic.edu>
Subject: Help: date and time
Message-Id: <Pine.SUN.3.95.970331144144.26791A-100000@ernie.eecs.uic.edu>
Hi folks,
I am hoping to write a sub that would take
a year and a month as parameters and return the
day of the week of that month.
i.e:
print 'first day of month: ', &firstDayOfMonth(3,1997);
would return 6 for saturday.
what is my best approach?
Thanks,
Alex Mak
------------------------------
Date: Mon, 31 Mar 1997 11:45:13 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: sweeting@neuronet.com.my
Subject: Re: Hlp pls : "push" errors when scripts ported to Unix. (simple 2-d arrays)
Message-Id: <Pine.GSO.3.96.970331114321.14185A-100000@kelly.teleport.com>
On Mon, 31 Mar 1997 sweeting@neuronet.com.my wrote:
> push @allentries, [@entry];
> (The digital unix box is running perl 4 and NT has perl 5,
> but i thought 'push' was applicable in perl 4)
Push works in old version 4, but anonymous listrefs don't. Hope this
helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Mon, 31 Mar 1997 20:24:23 GMT
From: shyde@poboxes.com (Simon Hyde (aka Jeckyll))
Subject: Re: Hlp pls : "push" errors when scripts ported to Unix. (simple 2-d arrays)
Message-Id: <3341def0.6058184@news.uni-stuttgart.de>
On Mon, 31 Mar 1997 03:11:09 -0600, sweeting@neuronet.com.my wrote:
>
>Does anyone have any ideas why this may not work ?
>(The digital unix box is running perl 4 and NT has perl 5,
>but i thought 'push' was applicable in perl 4)
>
Why didn't u say that at the start...i just tralled through your
script looking for an error. You can't create 2D arrays this way under
perl4, i think it's time for you to upgrade your unix box, go and get
http://www.perl.com/CPAN/src/latest.tar.gz
------------------------------
Date: 31 Mar 1997 22:03:17 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Hlp pls : "push" errors when scripts ported to Unix. (simple 2-d arrays)
Message-Id: <5hpcb5$jif$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
sweeting@neuronet.com.my writes:
:Another scrips also choked on references to 2-d arrays, such as
:$allentries[$i][$j]
:
:Does anyone have any ideas why this may not work ?
:(The digital unix box is running perl 4 and NT has perl 5,
:but i thought 'push' was applicable in perl 4)
No, that will never work. Version 4 and before are all useless for any
of that. It's a dead flea-bitten camel. It's an ex-program. It's not
supported, and you're on your own.
Installing a current version of perl is so easy. Please do it.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Besides, including <std_ice_cubes.h> is a fatal error on machines that
don't have it yet. Bad language design, there... :-)
--Larry Wall in <1991Aug22.220929.6857@netlabs.com>
------------------------------
Date: Mon, 31 Mar 1997 15:48:19 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: how to check Backslash?
Message-Id: <comdog-3103971548190001@nntp.netcruiser>
In article <5homut$l0p$1@mhafc.production.compuserve.com>, Connie
Mueller-Goedecke <101233.3236@CompuServe.COM> wrote:
> My aim is: I have the path- and filename-information in a string
> (e.g. c:\myprog\sample.txt)
> Now I want to check each letter to localize the backslash that I
> can cut the filename.
>
> I have one problem with the right syntax:
> Now: how do I compare with '/'?
> if ($lastletter eq a) <- that's not a problem.
> But: how to write: if ($lastletter eq /)?
what's wrong with
if( $lastletter eq '/' ) { ... }
? you could also try a regular expression:
#match a forward slash at the end of a line
my $string = '/foo/bar/';
print "Matches!\n" if $string =~ m# / $ #x;
however, it you just want to get the last part of the path, you
could do something like this example:
#!/usr/bin/perl
my $path = '/usr/users/foo/bar/file.txt';
#we'll use an extended regular expression :)
$path =~ m| .* #everything up to last slash
/ #the last slash
(.*) #everything after the last slash
|x;
my $file = $1; #you'll want to make sure you have something!
print "I think the file name is $file\n";
__END__
--
brian d foy <URL:http://computerdog.com>
unsolicited commercial email is not appreciated
------------------------------
Date: Sat, 29 Mar 1997 13:27:44 -0800
From: "Dr. B. Hurzeler" <behurzeler@ucdavis.edu>
Subject: Is Perl the ultimate scripting language?
Message-Id: <333D894C.5363@ucdavis.edu>
Is Perl the ultimate scripting language?
This is probably a stupid question to ask in this news group but I try
anyway. I would really appreciate your comments! Please be as objective
as you can, I know it is hard!
So here is the question once more:
Are there any other scripting languages that can do what Perl
does? (JavaScript, ObjectREXX, and others)
I include a list of requirements:
1. Base Script Language: Basic capabilities to execute, loop, test &
branch with full range of boolean operators, math, date-time arithmetic,
full range of data-type (numeric, text, date, BLOB, arrays) manipulate
text, pass commands to host product, pass commands to system,
initiate/terminate processes both on the local and remote machine.
Environment variables: ability to read and set values.
API: ability to call program library routines from scripting language.
2. Scripting Language Is Both "Outside" and "Inside". - Outside: Ability
to invoke and sequence process execution, pass parameter, accept and
handle error codes which are returned. Inside: Ability to invoke
commands within process. Conditional structures to test the values of
settings, respond to alerts and dialog boxes, branch on user inputs
control sequencing and (in general) respond to the program outputs.
3. Ability to Invoke The Same Set of Commands and Functions as can be
Invoked via the GUI Interface - invoke commands, select dialogs box
options and change settings.
4. Provide for Program Initialization File - Ability to initialize
program settings and environment to know values at the start of
execution (similar to .cshrc, or like an .ini)
5. Marcos - Macros with parameters. Can be run by users interactively,
or by bootstrap (hands - off execution).
6. GUI Components - Allow user interaction with the script. Invoke GUI
components during the execution of scripts. Bring up a GUI alert, dialog
box, selection list, etc. Respond to control, input, and related events
signaled in GUI component, by the user.
7. Drag and Drop GUI Component Editor - Allow interactive drag and drop
creation and editing of GUI components to be used by scripts.
8. The Scripting Language should be usable one many different platforms.
9. The Scripting Language should support Composite Applications, OpenDoc
Compound Documents.
10. It should make it possible to make applications "scriptable"
through: Wrapping, Object modeling or Factoring.
11. It should make Agent-Based Computing possible.
Thanks a lot!
--
Dr. B. Hurzeler
Dept. of Civil and Env. Engr.
University of California
Davis CA 95616
USA
Tel.: (916) 752 82 81
Fax.: (916) 752 78 72
------------------------------
Date: 31 Mar 1997 16:50:48 GMT
From: "Manfred Schneider" <manfred.schneider@rhein-neckar.de>
Subject: New pages/mirror/FRENCH version -- 4200+ links on Object-Orientation
Message-Id: <01bc3dfc$44f681f0$b259c5c1@cetus>
Subject: Cetus Links -- 4200+ links on Object-Orientation
Newsgroups: Some comp.* newsgroups related to OO
Reply-To: manfred.schneider@rhein-neckar.de (Manfred Schneider)
Summary: News, topics and URLs of Cetus Links
Posting-Freq.: Monthly
Organization: Private Site
Hello,
are you interested in a collection of more than 4200 links on
Object-Orientation? No ads, few graphics, fast and free access!
What4s new?
o New pages "CLOS/Common Lisp" and "Simula"
o The Cetus Links are now also available in *French*
o New mirror in Canada
Main topics of the collection are:
o General Information and Links
o Distributed Objects, Business Objects, Object Request Brokers,
ActiveX/OLE, Corba, JavaBeans/RMI, OpenDoc
o OOA/OOD Methods and Tools, Diagram Layout
o Languages, Ada, C++, CLOS, Delphi, Eiffel, Java, JavaScript,
Modula-3, Oberon, Objective-C, Perl, Python, Sather, Simula,
Smalltalk, Tcl/Tk, VBScript, Visual Basic, Visual C++
o Databases, OO DBMS, OR DBMS, OR Mapping
o Patterns, Libraries, Frameworks
o Metrics, Reuse, Testing, Numerics
o Services and Companies
The collection runs on a server in Heidelberg, Germany.
Mirrors are available for faster access from other countries.
URL of original site:
o http://www.rhein-neckar.de/~cetus/software.html
URLs of mirror sites:
o Australia, Melbourne
http://www.csse.swin.edu.au/manfred/software.html
o Austria, Vienna
http://www.infosys.tuwien.ac.at/cetus/software.html
o Brazil, RS, Porto Alegre
http://www.intuitive.com.br/cetus/software.html
o Canada, Quebec
http://www.csioo.com/cetusen/software.html
o Japan, Osaka
http://aries.ise.eng.osaka-u.ac.jp/cetus/software.html
o USA, IL, Chicago
http://www.objenv.com/cetus/software.html
o USA, UT, Provo
http://mini.net/cetus/software.html
URL of *French* version:
o Canada, Quebec
http://www.csioo.com/cetusfr/software.html
I hope you will find the Cetus Links useful.
Please feel free to send suggestions, comments, new or changed URLs.
Manfred
------------------------------
Date: Mon, 31 Mar 1997 16:14:45 -0500
From: Angus Lai <orange@globalserve.net>
Subject: Oraperl CGI Problem! Help...
Message-Id: <33402945.68F2@globalserve.net>
Dear friends,
I using oraperl to retrieve data from oracle, the following code
work
well on unix prompt (By typing ./ScriptName to test).
-----------------------------------------------------------
#!/usr/local/bin/oraperl
require 'cgi-lib.pl';
print &PrintHeader;
$CityGetBrife = "select address from TABLE where upper(city) like
%TORONTO%";
#Connect Oracle
$lda = &ora_login($DataBase, $ID, $Pass)||print "login error
:$ora_errstr<p>\n";
#open and send SQL
$csr = &ora_open($lda, $CityGetBrife, 6)||print "Open Error :
$ora_errstr<p>\n";
while(($tra) = &ora_fetch($csr)) {
push(@BranchList, $tra);
}
print @BranchList;
do ora_close($csr) || die "can't close cursor";
do ora_logoff($lda) || die "can't log off Oracle";
------------------------------------------------------------
But When I run the program with web
broswer(http://domain/ScriptName.pl), It cannot login Oracle.
$ora_errstr is : Error while trying to retrieve text for error ORA-12546
Dear friend, What is this error message means? can u think of some
solution? What's happening?
Thanks A LOT.
-Angus
------------------------------
Date: 31 Mar 1997 21:59:53 GMT
From: "Stephen Hill" <scs@huron.net>
Subject: Replaceing Text
Message-Id: <01bc3e1e$37c91fc0$0a91e9cd@scs>
When I use the sniplet of script below it converts the text to all lower
case, this is not what I want. I wish the text to have the same cases as
before the manipulation. If the original word started with a capital I want
the manipulated text to start with a capital..
If you have any ideas please email me at scs@huron.net
@lines[$i] =~s/@keywords[0]/<I>@keywords[0]<\/I>/;
Thanks :-)
------------------------------
Date: Mon, 31 Mar 1997 19:44:00 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: running a loop foreach $ARGV?
Message-Id: <E7xAtC.8q0@world.std.com>
Douglas Lewis <no_nick@ix.netcom.com> writes:
>Randal Schwartz wrote:
>> Or, even simpler simpler
>>
>> while (<>) {
>> $the_file_I_am_working_on = $ARGV;
>> # whatever
>> }
>Unless of course you wanted to do pre/post processing for each new
>file..
Which in some cases, you may be able to handle by checking if
"eof(ARGV)" or "eof" returns true. (But not eof() which only returns
true at the end of the last file. Another one of those confusing perl
idioms. Probably more confusing than $scalar = @array, But since it
isn't used nearly as often, people don't complain as much.)
--
Andrew Langmead
------------------------------
Date: 31 Mar 1997 22:07:55 GMT
From: "Pat Doran" <stcpjd@micro.lucent.com>
Subject: Type glob/ max # of files
Message-Id: <01bc3e20$f5d23180$8b7a13c0@stcpd-pc.micro.lucent.com>
Help me if you can.....
I have a simple PERL script that uses a type glob to count the number of
files in a directory older than certain age. It seems to work fine for all
my directory's except one. This directory also has a HUGE amount of small
files !!!!
Is there a limit to the number of files that perl can loop through (this
does not seem to make sense) or is my script messed up (I am hoping this is
the case) ???
please email me some help at stcpjd@micro.lucent.com
Below is my script......
#!/usr/local/bin/perl
(($dir = shift) && ($age = shift)) || die "/You messed up\n";
$i = 0;
$j = 0;
while ( $filename = <$dir/*> ) #loop through files in dir
{
print "$filename \n";
#open file, fail if file is not there
open(WORDLIST, "$filename") ||
die "Sorry, there is data file integrity problem!!!\n";
$i++;
#check if file is more than $age days old
if (-M WORDLIST < $age )
{
$j++;
}
}
print "\nTotal files: $i\n";
print "\nOld files: $j\n";
------------------------------
Date: 31 Mar 1997 14:44:29 -0600
From: madings@earth.execpc.com (Steve Mading)
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <5hp7nd$550$1@earth.execpc.com>
Alicia Carla Longstreet (carla@ici.net) wrote:
: Actually, exactly the opposite would be true. Socialism has one major
: flaw, a flaw that will forever make it never more than marginally
: successful (unlike capitalism, which, over time is always very
: successful). Socialism fails to take into account the simple fact that
: any human will work harder and smarter when he/she directly enjoys the
: fruits of his/her labor. Why should any person work harder than needed
: to provide for him/herself when everything beyond their needs goes to
: someone else. Socialism assumes that all people are willing to work for
: the social good.
Capitalism works very well, not because Capitalism is good, but
because it accounts for the fact the people are selfish. No other
system admits that the human race's ethics are flawed, and tries
to make use of that flaw (greed).
Solialism will always fail because it assumes that people are
naturally nice to each other and polite. I have yet to see
this in evidence, though. People are generally jerks, and thus
an economic system designed for jerks is what works best.
Unfortunately in this system, its the jerks that rise to the top,
(Bill Gates), and the ones who are polite are good natured get
stepped on.
I have no idea what would fix this problem. But I think for
starters, adopting a philosophy that says we are responsible for
our own destiny would help. Our religious philosophy that might
makes right (God is big and powerful and therefore everything he
does is ethically correct), I think, leads us to accepting the
same attitude about business. We don't care because we think
"He's big and powerful, therefore he must be doing everything
right."
I'd be glad to continue this, but if anyone wants to
continue it, I'll continue it in e-mail, and not in
comp.os.linux.advocacy, or all the other places this
is crossposted to.
------------------------------
Date: Mon, 31 Mar 1997 21:24:36 GMT
From: hyyper@intersurf.com (Michael Derousselle)
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <3340274f.28336165@news1.alterdial.uu.net>
On 31 Mar 1997 14:44:29 -0600, madings@earth.execpc.com (Steve Mading)
wrote:
>Capitalism works very well, not because Capitalism is good, but
>because it accounts for the fact the people are selfish. No other
Capitalism works because it allows one to achieve his or her goals by
hard work in spite of the social sponges.
>system admits that the human race's ethics are flawed, and tries
>to make use of that flaw (greed).
>
>Solialism will always fail because it assumes that people are
>naturally nice to each other and polite. I have yet to see
Socialism will always fail because it promotes mediocrity. Just look
at France. Strikes every other week because the workers want the
government to give more and more.
>this in evidence, though. People are generally jerks, and thus
>an economic system designed for jerks is what works best.
It's designed for survival of the fittest.
>I have no idea what would fix this problem. But I think for
>starters, adopting a philosophy that says we are responsible for
>our own destiny would help. Our religious philosophy that might
In other words , Capitalism.
>makes right (God is big and powerful and therefore everything he
>does is ethically correct), I think, leads us to accepting the
Bill Gates is not God. God is right because he is morally wiser than
people.
>same attitude about business. We don't care because we think
>"He's big and powerful, therefore he must be doing everything
>right."
>
Michael C. Derousselle
hyyper@intersurf.com
Network Administrator
Unix Bigot
PGP key on request.
"Those who live by the sword, live longer"
------------------------------
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 209
*************************************
