[26475] in Perl-Users-Digest
Perl-Users Digest, Issue: 8638 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 7 06:05:38 2005
Date: Mon, 7 Nov 2005 03:05:04 -0800 (PST)
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, 7 Nov 2005 Volume: 10 Number: 8638
Today's topics:
Re: The Evil American Corprotocracy <fishfry@your-mailbox.com>
threads in perl <nobody@this.home.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 06 Nov 2005 21:14:53 -0800
From: fishfry <fishfry@your-mailbox.com>
Subject: Re: The Evil American Corprotocracy
Message-Id: <fishfry-7BE671.21145306112005@comcast.dca.giganews.com>
In article <trtam1hlo9gp4t1vg7kv8jpcgpuc2sqj58@4ax.com>,
robic0@yahoo.com wrote:
> Been at this for 25 years (since writing assemblers on
> zilog/intel's .. z80a/8080/8086, all motorola's, wrote
> dynamic link libraries on Amiga 1000's (Lattice c),
> .., and up the food chain, basic, c/c++ compilers (all of them),
> used emacs editor in 1985, have every issue of Byte magazine (4 sale),
> dos extenders, tsr's, device drivers (dos/NT <- people aren't aware
> that win32 is just a wrapper into the kernel), gui (lots, with
> owner drawn controls), sql, mdac (recordsets, lots, et all),
> com (interface), com+ (active X-same,, client side, but I don't
> allow it on my machine), jscript (not my fav), here after it
> doesen't matter)). I'm probably getting tired of it all.
> There are some things through the years that captured my interest,
> this thread topic being one. Reason being is that through the
> years there are some things that never change, code performance
> seems to follow the inherant capabilities of the cpu (assembly).
> I'm so old I know and studied how micro-code works.
> I have a degree in Mechanical Engineering (82) and discovered
> bbs (Mustang software) then Usenet shortly after. WWW was something
> that came later. I'll never forget my 2400 Ventel modem. So much
> money was spent in those days for so little by todays comparison.
> I build my own machines, have since those days. I've always kept
> active programming, hours and hours on end. To date estimated at
> something over 15 million lines of code. I've been a paid
> proffesional programmer (mostly I designed and programmed) since
> 1983. I think Pascal was my first job on a Univac (tty) working
> as a ME. In 1981 I had an electronics elective at my college,
> taught by (Phd) the main designer of .... the IBM pc. In 82 it came
> out. We were 30 miles from IBM dev center. It was pcdos 1 (hahaha).
> All my instructors were Phd's who in the case of my thermo classes
> typcially an hour was he starts writing entropy formulea at the top
> left of one blackboard, wrapps to the next and the next. That was
> a typical day in the thermo classes. I needed an escape. I started
> doing programs on my hp30c calculator. That I think brought me
> to this point in my life. I believe I have contributed. I believe
> that our technical society is built on the shoulders of giants
> who stood on other giants shoulders (omg stop this now). Well..
> whatever. I'm optimistic about the future.. If corporations,
> who think of programmers as a "resource" remember that they are human
> beings then it will be ok. Now its offshore and outsourcing started
> in the dot com days because they do not have enough so called
> technical experts. Cat left the bag, outsourcing is not just for
> technical experts anymore. In the future, I'm sure you will place
> your McDonalds order to India at the window. Jeez......
>
> Time to "unionize" and get back America.
> Let me give you a simple example of how a "baseline" works:
> The electric power generating plants burn just enough oil to
> produce a baseline of power based on projected need at a certain
> seasonal point. This is the cheapest they can produce energy
> as it is guaranteed to be consumed using heating oil, the
> lowest of the refinery processes. They use it to boil water
> that drives their steam turbines. When summer comes, the
> energy demand spikes, they have to use added generating power
> from machinery such as a jet engine. This doubles their cost
> to produce the same KWH as the other fuel. However, it
> provides the same electricity but at a higher production
> cost. Your not charged that cost unless you go over your
> linear usage beyond the baseline, at which you are charged
> the doubled price "over" your baseline based on averages.
>
> If you flip the model upside down, whats going on today is
> your American wage is "compared" with the "lowest" wage they
> can get, and that is the baseline instead of the spike.
> The effect is to cause you, an American to take a much
> "lower" wage based on the spike, even though you are the
> baseline. Remember its flipped, so you the "baseline"
> should be at a much higher wage, but you are being
> brainwashed to think the spike is the norm.
>
> You would think then that corporations "will" replace
> you job with the spike, the offshore workers at 1/10th
> the price. In reality, if the 90% baseline Americans
> technical "resources" were to decline the offer of
> less pay, the corporations in America would be forced
> to run their development on the "spike" layer,
> representing 10% of development. So they would need
> 10 years to develope a product that would normally
> take 1 year. To be more precise, if all American
> developers declined to work for 4 - 1/2 weeks, it would
> push back the product release for 1 year. If
> off shore developers proportionally declined it would
> push back the release for 3 weeks.
>
> Actually it should the the power company model, where
> the "spike" is more expensive. Instead its the reverse.
> The "spike" is cheaper, and presto chango, the flim-flam
> man translates that into "the baseline has to be 1/2
> the spike". But in America, you can't pay technical
> folks 2 dollars an hour, so the corporate line is
> "These experts are making 1/3 rd of what you are, so
> you should make at least half" In reality, American
> techies are the "baseline" of corprate develpment.
> The thought that you can be replaced looms large.
> Did you ever think: OK, replace me! When you demand
> I come back, be aware I want my lost wages and
> without loss of benefits nor pay.
> Gentlemen, the demand for technical development
> will only "increase". The fact is, you are
> brainwashed to think your job is in jepordy
> by the "spike" when in reality, you, the
> American techinical expert are the "baseline"
> for corporate and worldwide development.
>
> The only recourse is to unionize. Engineers do it,
> all technical fields do it. Time to act. Right
> now the corporate world has the idiom of a
> seasonal "hire up" to deliver products, then
> "fire down" after. When you see an add for
> a "permanent" position specialist to write
> a device driver for their product, what does
> that mean to you? A device driver could take
> at most 3 months to develop. And a company
> wants to offer you a "permanent" position?
> Well a permanent position pays "alot" less than
> a specialized contract one. Gee, why would a
> company want you to be permanent for that?
>
> To be continued...
Can you imagine a union programming shop? One guy would do all the for
loops and another worker would do the while loops. They wouldn't be
allowed to do each other's jobs.
If there ever was a time for programmers to unionize, it was about 20 or
maybe 30 years ago. Way too late now. Bits flow over wires. Bitstreams
will be created where it's cheapest to create them.
------------------------------
Date: Mon, 07 Nov 2005 11:41:43 +0100
From: Krystian <nobody@this.home.com>
Subject: threads in perl
Message-Id: <6rbum15j8dd0mt672bp3g83fqtfrl0kaeh@4ax.com>
Hi there
What options do i have to build an application with threads that will
share some data? i found that below example doesn't work, probably it
uses fork under the curtain:
#!/usr/bin/perl
use warnings;
use strict;
use Thread;
my $s = 'blabla';
my $t1 = Thread->new( \&func );
my $t2 = Thread->new( \&func );
sub func {
my $ptr = \$s;
print "s = $s, ptr = $ptr\n";
}
$t1->join();
$t2->join();
output:
s = blabla, ptr = SCALAR(0x1907a6c)
s = blabla, ptr = SCALAR(0x29706e4)
i have tested it under Windows with ActivePerl 5.8.7, maybe it works
under linux/unix.
best regards
k
------------------------------
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 8638
***************************************
