[12847] in Perl-Users-Digest
Perl-Users Digest, Issue: 257 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jul 26 04:07:14 1999
Date: Mon, 26 Jul 1999 01:05:06 -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 Mon, 26 Jul 1999 Volume: 9 Number: 257
Today's topics:
Re: Adding to and deleting from list boxes, text areas (Jaime)
Re: Best Perl book? (Martien Verbruggen)
Re: Can anyone explain concepts of Perl Objects? (Damian Conway)
Re: Can anyone explain concepts of Perl Objects? (Damian Conway)
Re: Can anyone explain concepts of Perl Objects? (Abigail)
Re: Can anyone explain concepts of Perl Objects? (Anno Siegel)
changing file owner (S Berch)
Re: FAQ 8.37: How do I make my program run with sh and (Martien Verbruggen)
Re: frames (Andreas Fehr)
Re: Geekspeak Programming Contest (Larry Rosler)
Re: Geekspeak Programming Contest (Anno Siegel)
Re: How can I get the number of users who are logging? (Martien Verbruggen)
Re: jpg files blown away (elephant)
Re: jpg files blown away (brian d foy)
Re: need to understand do { block } (elephant)
Re: Outputting text as entered by user (Martien Verbruggen)
RegEx: Capitalize 1st char. of string with spaces <coupal@uky.campuscw.net>
Re: RegEx: Capitalize 1st char. of string with spaces (elephant)
Re: RegEx: Capitalize 1st char. of string with spaces (Martien Verbruggen)
Re: RegEx: Capitalize 1st char. of string with spaces (Abigail)
Sending/Rec'ving input from programs <marcb@softhome.net>
Stock Options are there to keep you working there for t <webmaster@internetwebfactory.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 26 Jul 1999 09:58:40 +0300
From: lsprilus@weizmann.weizmann.ac.il (Jaime)
Subject: Re: Adding to and deleting from list boxes, text areas
Message-Id: <lsprilus-2607990958400001@meg.weizmann.ac.il>
In article <7ng17p$egf$1@vixen.cso.uiuc.edu>,
bhsu@lightsaber.ncsa.uiuc.edu (William H. Hsu) wrote:
> The functionality I am trying to achieve is similar to that in most
>resource-transfer utilities (e.g, "Add/Remove font" in many word processors,
>where one list box is updated from another; "move file/dir" in some graphical
>FTP clients; etc.). I can maintain a "deleted entries" bit vector on the Perl
>side; I just need to learn how to update the HTML list and text areas on the
>fly.
To dynamically update lists is a task for JavaScript
opt = new Option("newoption","newoption",false,false);
mylist.options[document.search.mylist.length] = opt;
where 'search' is the name of the <FORM where the <SELECT is located.
--
Jaime Prilusky
lsprilus@weizmann.weizmann.ac.il
------------------------------
Date: Mon, 26 Jul 1999 05:18:46 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Best Perl book?
Message-Id: <WcSm3.99$1m.11100@nsw.nnrp.telstra.net>
[removed alt.perl. Misplaced group]
In article <7nde0o$3g9@chronicle.concentric.net>,
"Julio R. Escobar" <escobar@oxy.edu> writes:
> I use the book titled Teach Yourself PERL for Windows NT in 21 days. Even
> though the title may lead you to think that the book is corrupted with
> Windoze, it is not. Most of the book is dedicated to PERL itself, and the
> last chapter or two talk about PERL for Win32.
Does it refer to Perl and/or perl as PERL? :)
# perldoc perlfaq1
[snip]
What's the difference between "perl" and "Perl"?
[snip]
No mention of PERL anywhere.
Martien
--
Martien Verbruggen |
Interactive Media Division | Useful Statistic: 75% of the people
Commercial Dynamics Pty. Ltd. | make up 3/4 of the population.
NSW, Australia |
------------------------------
Date: 26 Jul 1999 05:41:37 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: Can anyone explain concepts of Perl Objects?
Message-Id: <7ngseh$871$1@towncrier.cc.monash.edu.au>
abigail@delanet.com (Abigail) writes:
> > What does bless do? (yes I have read all about it and still do not
> > understand)
>It makes the reference to the datastructure aware to which class
>it belongs.
Nope. The reference knows nothing...nothing!
It is the data structure itself (the referent) that achieves
enlightenment under "bless".
> > What is the equivalent of bless in regards to C++ objects?
>I doubt there is any, but my knowledge of C++ is minimal.
The "new" operator is about the closest, but it's not very close.
> > What is the best way to represent member data in an object? Hash?
>Define "best way". Maybe there isn't a "best way"... IMO, Perl objects
>suck, its main reason being how member data is dealt with.
You need to read my book :-)
There are at least three reasonable ways of creating objects with
properly secured member data:
* closures (a la perltoot),
* flyweight scalars (a la Design Patterns), and
* Tie::SecureHash (a la CPAN).
> > What is the equilavent of "a pointer to an object" in Perl?
>Depending on one's view, it's either the reference to the datastructure
>(the thing you are blessing), or a reference to that.
No way is a \\(data structure) equivalent to a C++ object
pointer. That implies a \(data structure) is equivalent to a C++
object, which it ain't. See above.
>> How do you create and manipulate one (pointer to an object)?
>my $pointer_to_obj = bless {}, "Hello";
Yup.
>or
>my $pointer_to_obj = \ bless {}, "Hello";
Nope. See above.
Damian
------------------------------
Date: 26 Jul 1999 05:50:38 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: Can anyone explain concepts of Perl Objects?
Message-Id: <7ngsve$1em$1@towncrier.cc.monash.edu.au>
abigail@delanet.com (Abigail) writes:
>;; >It makes the reference to the datastructure aware to which class
>;; >it belongs.
>;;
>;; Oh dear. Did I see the godess stumble?
>For all practical purposes, it's the reference that's aware.
On the contrary, there is no practical purpose for which the
reference is aware. It's *always* the referent.
>You are doing 'ref $obj', and not 'ref %$obj', aren't you?
>And, $obj -> method(), and not %$obj -> method(), aren't you?
>I don't really care where in the perlguts the information is stored.
>If it's just stuck on the fridge-door, that would be fine with me.
>But when using Perl object, one almost always uses the reference, not
>the datastructure directly. Except for perverts that start off their
>methods with: %self = %{+shift};
Abigail, I know *you* know the difference between a reference and
its referent, and I know that where the difference matters, you'd
get it right.
But just because it's mentally convenient for you to equate the two,
doesn't mean you ought to answer novice questions with disinformation.
Real people have enough trouble understanding the reference semantics
of Perl objects, without goddesses appearing to them on the Information
Superhighway and leading them astray with false equivalences. Have pity
on them, Lady.
;-)
Damian
------------------------------
Date: 26 Jul 1999 01:19:15 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Can anyone explain concepts of Perl Objects?
Message-Id: <slrn7pnvdq.f12.abigail@alexandra.delanet.com>
Damian Conway (damian@cs.monash.edu.au) wrote on MMCLV September MCMXCIII
in <URL:news:7ngseh$871$1@towncrier.cc.monash.edu.au>:
<> abigail@delanet.com (Abigail) writes:
<>
<> >Define "best way". Maybe there isn't a "best way"... IMO, Perl objects
<> >suck, its main reason being how member data is dealt with.
<>
<> You need to read my book :-)
Well, send me a copy then. ;-)
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 26 Jul 1999 07:55:30 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Can anyone explain concepts of Perl Objects?
Message-Id: <7nh49i$70f$1@lublin.zrz.tu-berlin.de>
Damian Conway <damian@cs.monash.edu.au> wrote in comp.lang.perl.misc:
>There's also an explanation of the basics of OO Perl at:
>
> http://www.manning.com/Conway/Cyberdigest.html
Taking a look at the site, I found
Object Oriented Perl
Damian Conway
Foreward by Randal L. Schwartz
Damian! Randal! Sic'em!
Anno
------------------------------
Date: Mon, 26 Jul 1999 05:22:02 GMT
From: sberch_no-spam_@world.std.com (S Berch)
Subject: changing file owner
Message-Id: <379df04e.51342777@news.std.com>
I am creating a file with a cgi script. The script runs under the user
"nobody" and the file that is created has "nobody" as the owner. I
can't edit this file, or do anything but delete it.
I've tried adding "chown" to the script to get the file back to my
user name but get an error message that the script running "chown" is
not the owner.
Other than running the script under my user id, which I'm told is
risky, is there anything I can do?
Thanks for any help or suggestions.
-sb
------------------------------
Date: Mon, 26 Jul 1999 06:41:17 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: FAQ 8.37: How do I make my program run with sh and csh?
Message-Id: <hqTm3.120$1m.12441@nsw.nnrp.telstra.net>
In article <7ngmun$cf9$1@news.ml.com>,
mwang@tech.cicg.ml.com (Michael Wang) writes:
> Tom Christiansen <perlfaq-suggestions@perl.com> wrote:
>>
>> How do I make my program run with sh and csh?
>>
>> See the eg/nih script (part of the perl source distribution).
>
> what is "the eg/nih script"? Thanks.
A script with the name 'nih', in the subdirectory woth the name 'eg'
in the perl source tree.
Martien
--
Martien Verbruggen |
Interactive Media Division | If at first you don't succeed, try
Commercial Dynamics Pty. Ltd. | again. Then quit; there's no use being
NSW, Australia | a damn fool about it.
------------------------------
Date: Mon, 26 Jul 1999 07:15:48 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: frames
Message-Id: <379c0b12.7003760@news.uniplus.ch>
On 24 Jul 1999 01:58:53 GMT, jjcoparks4@aol.com (JJcoParks4) wrote:
>Hello I am trying to make a perl cgi script and I wan't part of it to be in a
>frame. Is this posibble? And if so how the heck do I do it?
Use Windows, this is very close to a frame.
Andreas
------------------------------
Date: Sun, 25 Jul 1999 23:15:53 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Geekspeak Programming Contest
Message-Id: <MPG.12059cf5ada3504b989d47@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <379bb17c@cs.colorado.edu> on 25 Jul 1999 18:53:16 -0700, Tom
Christiansen <tchrist@mox.perl.com> says...
...
> The year 2001, not the year 2000, will therefore be the first year of
> the twentieth century and of the third millennium. That doesn't change
^twenty-first (trivial mind-slip, but I'm pointing it out to show
that at least one person read this fine article to the very end :-)
> any part of the computer-related Y2K issues, sadly enough; we don't get
> a bonus year to prepare. The 00 place is where a lot of the programming
> mistakes (the real name for "bugs") show up. But that's the final year
> of the 20th century.
How would one characterize the difference between a 'programming
mistake' and a (software) bug?
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 26 Jul 1999 07:40:09 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Geekspeak Programming Contest
Message-Id: <7nh3cp$6v4$1@lublin.zrz.tu-berlin.de>
Larry Rosler <lr@hpl.hp.com> wrote in comp.lang.perl.misc:
>[Posted and a courtesy copy sent.]
>
>In article <379bb17c@cs.colorado.edu> on 25 Jul 1999 18:53:16 -0700, Tom
>Christiansen <tchrist@mox.perl.com> says...
>...
>> The year 2001, not the year 2000, will therefore be the first year of
>> the twentieth century and of the third millennium. That doesn't change
> ^twenty-first (trivial mind-slip, but I'm pointing it out to show
>that at least one person read this fine article to the very end :-)
>
>> any part of the computer-related Y2K issues, sadly enough; we don't get
>> a bonus year to prepare. The 00 place is where a lot of the programming
>> mistakes (the real name for "bugs") show up. But that's the final year
>> of the 20th century.
>
>How would one characterize the difference between a 'programming
>mistake' and a (software) bug?
Conceptually, I'd say a programming mistake is an error in
algorithm, i.e. applying an algorithm that doesn't solve the
problem at hand.
A bug is an error in implementation, i.e. using an algorithm
that would solve the problem, but failing to implement it
correctly.
Of course, this distinction is of little empirical value, because
it depends on the programmers state of mind, absent additional
evidence. Seeing the line
$sum_of_squares = $n*( $n - 1);
we don't know if the programmer misremembered his math (programming
error) or if he forgot to type in /2 (bug).
Anno
------------------------------
Date: Mon, 26 Jul 1999 06:31:25 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How can I get the number of users who are logging?
Message-Id: <1hTm3.114$1m.12441@nsw.nnrp.telstra.net>
In article <379be02c.0@news.tamu-commerce.edu>,
"Sanon Chowchaiyaporn" <csanon@hotmail.com> writes:
> I tried to write a program that shows the number of people who are logging
> in. Can I just simply use $num=system 'w|wc -l'?
No.
> If it's not, how can I do it?
# perldoc -f system
[snip]
This is I<NOT> what you want to use to capture
the output from a command, for that you should use merely backticks or
C<qx//>, as described in L<perlop/"`STRING`">.
[snip]
# perl -w
use strict;
my $num = qx( w | wc -l );
# $num still has whitespace in it. It's a string. Use it as a number
# to have perl convert it automagically
print $num + 0, "\n";
__END__
32
#
Of course, depending on your implementation of w, you may need to get
rid of headers before doing the wc, or give w an option that doesn't
print the header. Maybe who(1) is a better choice.
Martien
--
Martien Verbruggen |
Interactive Media Division | The gene pool could use a little
Commercial Dynamics Pty. Ltd. | chlorine.
NSW, Australia |
------------------------------
Date: Mon, 26 Jul 1999 15:25:13 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: jpg files blown away
Message-Id: <MPG.12069c47d1e7c1e6989b7a@news-server>
Joe Frey writes ..
> When I try to open the file after I've
>moved it Photoshop won't recognize it as a jpg. Why is this? Is there
>another way to move the jpg?
you're using Windows which has a different line ending for text files
than it does for binary files .. this means that you have to use binmode
on both your read and your write filehandles .. look up binmode in the
perlfunc manual
perldoc perlfunc
from the command line
> Also, when I get to it, should I print a bat file to STDOUT to
>run or should I pipe the file to the exe program?
you're confusing STDOUT with the command prompt STDIN .. the two are not
the same .. to get what you expect you would need to pipe any commands
(batch commands) to the cmd.exe program (the command shell)
eg.
#--begin
print "dir\n"; # this will just output 'dir' and a newline
# in the command window
open( CMD, '| cmd.exe')
|| die "Who knows how Win32 could get here: $!\n";
print CMD "dir\n"; # this sends the 'dir' to the cmd.exe interpreter
# this will interpret it and output the result to
# STDOUT .. probably what you want
#--end
I'm sure there's probably an easier way of doing whatever you want to do
.. you'll probably find that piping the JPEG file directly to the exe
(whatever that may be) will not work .. most Windows programs aren't
designed to take input optionally from STDIN
you'll probably find you'll either need to do your batch file idea as
I've adjusted it above .. or call system and pass the filename to
whatever exe it is that you have in mind as an argument .. eg.
system( 'd:/bin/someprogram.exe', 'd:/tofolder/moveme.jpg');
then you'll want to check status with $? .. see perlvar and perlfunc for
more information on $? and on system
--
jason - remove all hyphens for email reply -
------------------------------
Date: Mon, 26 Jul 1999 02:00:15 -0400
From: brian@pm.org (brian d foy)
Subject: Re: jpg files blown away
Message-Id: <brian-ya02408000R2607990200150001@news.panix.com>
In article <379BE221.9139CF3E@bon.net>, Joe Frey <jfrey@bon.net> posted:
> file. I've written this much, When I try to open the file after I've
> moved it Photoshop won't recognize it as a jpg.
> open ( READGRAB,"D:/fromfolder/moveme.jpg" || die "can't open
> READGRAB\n $!");
> open ( WRITEGRAB,">D:/tofolder/moveme.jpg" || die "can't open
> WRITEGRAB\n $!");
> while (<READGRAB>) { #read a line from new jpg
> print WRITEGRAB $_; #write a line to old jpg
does the Windows port not support rename()?
and, if you are fooling with binary data on a PoB system, you should
binmode() your filehandles.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Mon, 26 Jul 1999 15:33:18 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: need to understand do { block }
Message-Id: <MPG.12069e1ef26c9e31989b7b@news-server>
Michael Wang writes ..
>print(
> do {
> foreach $i (1..2) {
> $j=$i;
> }
> }
>)
>
>(3) foreach (1, 2) { } is a statement, not an expression
> which has no return value
>
>(7) do {} should return 1
>(8) print should output 1
>
>So I would like to know what steps in above analysis are not true?
3 is correct .. there's no return from the foreach
therefore do { foreach...etc... } has the same value as do {} ..
therefore 7 and 8 are incorrect .. do {} does NOT return 1 .. it returns
'' .. and that's what print outputs
--
jason - remove all hyphens for email reply -
------------------------------
Date: Mon, 26 Jul 1999 05:05:09 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Outputting text as entered by user
Message-Id: <90Sm3.96$1m.11100@nsw.nnrp.telstra.net>
In article <7ne17d$k5j$2@bertrand.ccs.carleton.ca>,
ansingam@chat.carleton.ca (Arul Singam) writes:
>
> Please email or post to newsgroup.
I think that either one of the two would have been the default action
for almost any newsreader. There really was no need to post that.
> Arul Singam (ansingam@chat.carleton.ca) wrote:
>
>> I would like to output the text entered by a user in a form as entered
>> (as opposed to a single line). i.e i want the formatting to remain the
>> same as entered by the user, when i output it back to the user. But i
>> dont want to use <BR> after each line since it breaks html code. Please help.
>> Should i use a special seperator??
Read up on HTML. This has absolutely nothing to do with perl. You may
want to have a look at the <PRE></PRE> html tags, and not even that
may be enough. Ask in a group that talks about html. As far as perl is
concerned there are no problems.
Martien
--
Martien Verbruggen |
Interactive Media Division | Begin at the beginning and go on till
Commercial Dynamics Pty. Ltd. | you come to the end; then stop.
NSW, Australia |
------------------------------
Date: Mon, 26 Jul 1999 01:17:05 -0400
From: "John J. Coupal" <coupal@uky.campuscw.net>
Subject: RegEx: Capitalize 1st char. of string with spaces
Message-Id: <932965762.673.84@news.remarQ.com>
What I would like to do is be able to capitalize the 1st character of any
string that may or may not have spaces.
For example:
"come back here" translates to "Come back here"
and
"cherry" translates to "Cherry"
I tried:
$var =~ s/^./\u/g;
and
$a =~ tr/^[\w]/\u/;
Any help would be appreciated!
------------------------------
Date: Mon, 26 Jul 1999 15:47:08 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: RegEx: Capitalize 1st char. of string with spaces
Message-Id: <MPG.1206a166e5803396989b7c@news-server>
John J. Coupal writes ..
>"come back here" translates to "Come back here"
>and
>"cherry" translates to "Cherry"
>
>$var =~ s/^./\u/g;
perl doesn't know what you want to substitute in place of ^. .. see the
\u is a modifier therefore
my $x = 'foobar';
my $y = 'bar';
$x =~ s/foo/\u$y/;
will set $x to 'Barbar' .. ie. \u says make the NEXT character uppercase
before making the substitution .. perl doesn't magically know what you
want to make uppercase .. so in your code
$var =~ s/^./\u/g;
you need to tell perl what to make uppercase .. ie. you want to say
"make the single character that I just matched uppercase" .. the easiest
way to do this in your code is with the $& builtin variable
look it up in perlvar .. from the command line
perldoc perlvar
NB: in most other code you would use parentheses to indicate subpatterns
that you would like available in the $1, $2, $x variables .. check the
perlre documentation for more details on that
perldoc perlre
the only other thing you may want to do is to think about why you need
the 'g' modifier .. ie. how many times is a single character following
the beginning of the string going to match ?
--
jason - remove all hyphens for email reply -
------------------------------
Date: Mon, 26 Jul 1999 06:22:53 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: RegEx: Capitalize 1st char. of string with spaces
Message-Id: <19Tm3.113$1m.12441@nsw.nnrp.telstra.net>
In article <932965762.673.84@news.remarq.com>,
"John J. Coupal" <coupal@uky.campuscw.net> writes:
> What I would like to do is be able to capitalize the 1st character of any
> string that may or may not have spaces.
# perldoc -f ucfirst
IOW: Look up the perl builtin function ucfirst. It will do exactly that.
or do something like:
foreach my $var ('come back here', 'cherry')
{
my $ucVar = "\u$var";
print $ucVar, "\n";
}
Martien
--
Martien Verbruggen |
Interactive Media Division | Think of the average person. Half of
Commercial Dynamics Pty. Ltd. | the people out there are dumber.
NSW, Australia |
------------------------------
Date: 26 Jul 1999 01:23:45 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: RegEx: Capitalize 1st char. of string with spaces
Message-Id: <slrn7pnvm8.f12.abigail@alexandra.delanet.com>
John J. Coupal (coupal@uky.campuscw.net) wrote on MMCLV September
MCMXCIII in <URL:news:932965762.673.84@news.remarQ.com>:
== What I would like to do is be able to capitalize the 1st character of any
== string that may or may not have spaces.
Why a regex when perl has a function for this?
Grep through the manual, and you will find out.
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 26 Jul 1999 15:43:34 +1000
From: Marc Brady <marcb@softhome.net>
Subject: Sending/Rec'ving input from programs
Message-Id: <379BF586.C9340FF7@softhome.net>
Can anyone help me out. I need to control a Win95 console mode program
using perl. I can start it up in its own window by creating a detached
process, however, I don't know how to find the handle to the window that
its in and thus send keystrokes to the program (and read text from the
window).
Does anyone know how to do this??
Thanks in advance.
------------------------------
Date: Mon, 26 Jul 1999 00:16:43 -0700
From: webmaster <webmaster@internetwebfactory.com>
Subject: Stock Options are there to keep you working there for the "LONG TERM"
Message-Id: <379C0B5B.4AC48B53@internetwebfactory.com>
Stock Options are there to keep you working there
for the "LONG TERM"
BACKGROUND:
More specifically, the stock options part that
defines the terms in which they vest, i.e. when
you can sell your stock options for cash.
It it typical for your stock options to vest in
like 4 years with say 2,500 options being vested
once a year, for 4 years in a row, for a total of
10,000 options.
PROBLEM WITH THE TYPICAL STOCK OPTION VESTING
TERMS
Due to the increasing speed, volatility, and
unpredictability of the internet; it is clearly
illogical to subscribe to the current terms of
vesting as "no one knows what will even happen a
year from now, regardless of how good a product or
service it.")
I mean are you really going to take a pay cut and
then take a gamble on your own stocks that goes up
and down like a roller coaster in less than a day.
Look at the history of all internet stocks, not
many have stayed close to the IPO price, See ***
below. And the fact is that there are only a few
Internet companies that are 2-4 years old and that
was when there wasn't 10,000 domain name being
registered each day.
POSSIBLE SOLUTION:
In order to counter this ridiculous notion of
having options being vested fully in 4 years, I
would suggest stock options, 12,000 to 15,000
shares, fully vested in eighteen (18)months, of
which 2,000-2,500 shares must vest every three (3)
months.
FINAL QUESTION to ASK:
Some companies may say, "... The Stock Option Part
is there in order "TO KEEP YOU WORKING THERE FOR
THE LONG TERM."
Excuse me, What do you mean by "LONG TERM"? In
Internet TIME, "LONG TERM" IS LESS THAN OR EQUAL
TO ONE (1) YEAR.
webmaster@InternetWebFactory.com
p.s. Any comments or follow ups are encouraged
*** New York Times
July 20, 1999, Tuesday
Not All Hit It Rich in the Internet Gold
Rush
As Barnesandnoble.com was preparing to go
public in April, employees talked giddily
about their future wealth. Having accepted
stock options as a big chunk of their
compensation -- a common practice among
Internet ventures -- many of them dreamed tha
...
Business/Financial Desk
1928 words
By By LESLIE KAUFMAN
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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 V9 Issue 257
*************************************
