[6529] in Perl-Users-Digest
Perl-Users Digest, Issue: 154 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 21 11:17:20 1997
Date: Fri, 21 Mar 97 08:00:21 -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 Fri, 21 Mar 1997 Volume: 8 Number: 154
Today's topics:
Re: %SIG <rootbeer@teleport.com>
Re: diff. between 0 and "" (Jim Miner)
file date ??? <pelatimtt@poboxes.com>
How do I make win NT registry settings take effect real <mike.dudziak@stoner.com>
How to concat many digits to be one string? <b39jrj@nontri.ku.ac.th>
Re: How to get file time and date stamps? (Clay Irving)
Re: learning perl (Stephen L. Ulmer)
Looking backwards through a text file <mrchristopher@inorbit.com>
Re: Looking backwards through a text file (Honza Pazdziora)
Major Help needed on CGI Forms (Mark R Arnold)
Re: Multi-dimension array creation <eric@nettown.com>
Re: Newbie Question on accessing elements of Strings (M.J.T. Guy)
numerical values as hash indices: bad idea? really_eliot@dg-rtp.dg.com_but_mangled_to_stop_junk_email
Re: Parsing a string <dbenhur@egames.com>
Re: Perl 100 times slower ... (Piers Cawley)
Perl Compiler for DOS (Guy Saner)
position of libperl.a (Andreas Schmidt)
Single character representing all regexp metacharacters x@apocalypse.org
Re: Single character representing all regexp metacharac (Honza Pazdziora)
Re: Suidperl! <vapi@student.dei.uc.pt>
Re: term 'regular expressions' considered undesirable (Clay Irving)
TEST for empty DIR <lewis@nexusint.com>
Re: Unix and ease of use (WAS: Who makes more ...) <NOSPAMplas@fmi.ch>
Re: What's a good Perl book? (Eric Pement)
Re: Who makes more $$ - Windows vs. Unix programmers? (Tim Ottinger)
Re: Who makes more $$ - Windows vs. Unix programmers? Curious@oncom.au
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 20 Mar 1997 12:49:45 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: root <root@nitram.socs.com.fr>
Subject: Re: %SIG
Message-Id: <Pine.GSO.3.96.970320124232.12789M-100000@kelly.teleport.com>
On 20 Mar 1997, root wrote:
> $SIG{"SIGCHLD"} = "child_handler";
>
> I have also tried
>
> $SIG{"SIGCLD"} = "child_handler";
Maybe you meant $SIG{CHLD} and $SIG{CLD}. You can find the keys to use on
your system (if Perl was properly built) by inspecting the output of 'perl
-V:sig_name'. The keys for %SIG always omit the 'SIG', so that you can
save time whenever you type them. :-)
-- 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: Thu, 20 Mar 1997 15:06:03 -0600
From: jfm@winternet.com (Jim Miner)
Subject: Re: diff. between 0 and ""
Message-Id: <jfm-2003971506030001@ppp-66-53.dialup.winternet.com>
In article <5gs3mt$t30$1@shadow.skypoint.net>, sstarr@skypoint.com (Susan
Starr) wrote:
[...]
> if ($val == "") { return 0; }
^^
eq
will compare strings, not numbers.
[...]
--
Jim Miner jfm@winternet.com +1 612 729 1667
------------------------------
Date: 21 Mar 1997 13:50:17 GMT
From: "Matteo Pelati" <pelatimtt@poboxes.com>
Subject: file date ???
Message-Id: <01bc35fe$bbcd71e0$2f4078c3@pelati>
I need to read the date of a file with perl. How can I do that? I tried
using the stat function but I can't get the file date ....
Thanks
Regards
------------------------------
Date: 21 Mar 1997 13:48:29 GMT
From: Mike Dudziak <mike.dudziak@stoner.com>
Subject: How do I make win NT registry settings take effect real time
Message-Id: <5gu3jd$3bu@frontier.stoner.com>
I already know how to change registry settings using perl scripts,
but then I have to click on the 'System' icon or the 'desktop' icon
and then click on 'OK' to get the new settings to take effect.
I want the new registry settings to take effect automatically when I run
the perl script. How can this be done?
Thanks in advance.
------------------------------
Date: Fri, 21 Mar 1997 20:08:21 +0700
From: Joruno Jobana <b39jrj@nontri.ku.ac.th>
Subject: How to concat many digits to be one string?
Message-Id: <33328845.1F79@nontri.ku.ac.th>
Dear,
I write program for randomming 8 digits.
#/usr/bin/perl
srand(time|$$);
for($i=0;$i<8;$i++) {
$ID[$i]=int(rand(10));
}
I want to concat all 8 digits to be one string;
e.g.
The random result is
$ID[0] = 2 $ID[1] = 4 $ID[2] = 6 $ID[3] = 8
$ID[4] = 1 $ID[5] = 3 $ID[6] = 5 $ID[7] = 7
I want this output
$ST = "24681357"
Sincerely.
------------------------------
Date: 21 Mar 1997 07:01:48 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: How to get file time and date stamps?
Message-Id: <5gttbc$818@panix.com>
In <01bc3526$e9ff8e00$LocalHost@marcelo> "Marcelo de Azevedo Camelo" <camelo@itanet.com.br> writes:
>I'm writing a CGI script in Perl 5, and I need it to
>read both time and date stamps from a file residing
>in current directory. Is it possible? If so, how can I
>do it?
I'm not sure what you mean by "both time and date stamps," but I think you're
looking for the builtin Perl function, stat -- From perlfunc man pages:
NAME
stat - get a file's status information
SYNOPSIS
stat FILEHANDLE
stat EXPR
stat
DESCRIPTION
Returns a 13-element array giving the status info for a file, either the file
opened via FILEHANDLE, or named by EXPR. If EXPR is omitted, it stats $_.
Returns a null list if the stat fails. Typically used as follows:
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($filename);
Not all fields are supported on all filesystem types. Here are the meaning of
the fields:
dev device number of filesystem
ino inode number
mode file mode (type and permissions)
nlink number of (hard) links to the file
uid numeric user ID of file's owner
gid numeric group ID of file's owner
rdev the device identifier (special files only)
size total size of file, in bytes
atime last access time since the epoch
mtime last modify time since the epoch
ctime inode change time (NOT creation time!) since the epoch
blksize preferred block size for file system I/O
blocks actual number of blocks allocated
(The epoch was at 00:00 January 1, 1970 GMT.)
[ mailed and posted ]
--
Clay Irving See the happy moron,
clay@panix.com He doesn't give a damn,
http://www.panix.com/~clay I wish I were a moron,
My God! Perhaps I am!
------------------------------
Date: 19 Mar 1997 16:47:20 -0500
From: ulmer@mercury.net (Stephen L. Ulmer)
Subject: Re: learning perl
Message-Id: <sl3etr1rmf.fsf@beaker.mercury.net>
+-- In article <5gkla7$fpo$6@csnews.cs.colorado.edu> Tom Christiansen <tchrist@mox.perl.com> writes:
|
|
| [courtesy cc of this posting sent to cited author via email]
|
| In comp.lang.perl.misc, bd@internet-etc.com writes:
| :The best starting point is http://www.cis.ufl.edu/perl/ - the University
| :of Florida Perl Archive. There is no substitute....
|
| This seems somewhat ingenuous.
|
| --tom
Particularly since it's now:
http://www.cise.ufl.edu/perl/
There was a name change associated with a network redesign and your
run-of-the-mill political fallout. :) This also looks like it hasn't
been touched in a very long time. Blah.
I don't know how long the old domain will remain, quite a while I
suspect...
I don't speak for any part of UF or CISE. Tom or Steve Potter might
want to make an official "end of life" inquery.
--
Stephen L. Ulmer http://www.mercury.net/~ulmer/
Senior Systems Administrator ulmer@mercury.net
Mercury Communications USA, Inc. (352) 332-1300
------------------------------
Date: Fri, 21 Mar 1997 22:36:36 +0900
From: Christopher Wright <mrchristopher@inorbit.com>
Subject: Looking backwards through a text file
Message-Id: <33328EE4.5F2D@inorbit.com>
Hi Hi
Sorry.... I've looked all over in beginner world and can't seem to
figure this one out and I'm sure it's pretty simple..
How do I go through a text file backwards rather than forwards without
reading it into an array first ? Everything I've seen uses "while"
going from start to finish.
Much appreciation in advance.
Christopher
-----------
mrchristopher@inorbit.com
http://www.wonderlandinorbit.com
------------------------------
Date: Fri, 21 Mar 1997 14:26:57 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Looking backwards through a text file
Message-Id: <adelton.858954417@aisa.fi.muni.cz>
Christopher Wright <mrchristopher@inorbit.com> writes:
> Hi Hi
>
> Sorry.... I've looked all over in beginner world and can't seem to
> figure this one out and I'm sure it's pretty simple..
>
> How do I go through a text file backwards rather than forwards without
> reading it into an array first ? Everything I've seen uses "while"
> going from start to finish.
I am not sure there is any easy way with today's computers. It's just
so that files have beginnings and ends and you have to read them just
that way.
Of course, you can always do a "seek and read" from the back but that
would not be too efficient. Operating systems are good in reading for
you long buffers of chars, but always in the forward manner. Question
is what you need it for. You might do a
$wholefile = <>; $reversed = reverse $wholefile;
and have it, if you do not like array. I can't think of other help to
give you. But I am sure your problem can be well solved by some other
more classical way.
Hope this helps.
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Fri, 21 Mar 1997 13:30:49 GMT
From: mark@channelzero.demon.co.uk (Mark R Arnold)
Subject: Major Help needed on CGI Forms
Message-Id: <33348c9f.3068855@news.demon.co.uk>
Hi I'm an artist for the net but I need to be able to put forms on my
WWW sites that send a meaning full reply HELP.
mark@channelzero.demon.co.uk
------------------------------
Date: Fri, 21 Mar 1997 07:45:22 +0000
From: Eric Poindexter <eric@nettown.com>
To: Jose4 Carlos Oliveira Pereira <jcp@misty.EUnet.pt>
Subject: Re: Multi-dimension array creation
Message-Id: <33323C92.20ED3086@nettown.com>
Jose4 Carlos Oliveira Pereira wrote:
>
> I'm having trouble creating multidimension arrays. What I
> want is something like:
>
> @allRecords( %record1,%record2,....) OR
>
> %allRecords{ $key1,%record1,$key2,%record2,.... }
>
> The actions I need are something like:
>
> CREATION:
> my $numrows= 10
> for($index= 0;$index< $numrows; $index++){
> $allRecords{"$index"} = &fetchhash;
> }
>
> DEREF:
> foreach $number (sort keys(%allRecords)){
> %next = $allRecords{$number};
>
> foreach $column (sort keys(%next)){
> print "columName : $column columnVal: $next{$column}\n";
> }
>
> I don't think that this is supported by perl. All the documentation I
> have on multi-dimension array emulation isn't very clear.(I am using
> perl5.003
> but have only perl4 documentation :( )
> I'd appreciate any help.
>
> Thanks in advance.
>
> --
> Jose' Carlos Pereira.
What you want to do can be done in perl, but perl4 documentation isn't
going to help you with this task. Take a look at
http://nettown.com/site_perl/doc/perl5.003_93/ for perl5 documentation.
Start with perlref.
What you need to do is use a reference. A reference is the memory
address of, in this case, the start of a hash array. The \ operator is
used to take the reference of something.
@allRecords( \%record1,\%record2,....) OR
%allRecords{ $key1,\%record1,$key2,\%record2,.... }
CREATION:
for(0..9){
push @allrecord, &fetchhash;
}
# fetchhash returns a hash reference
sub fetchhash {
...
return \%hash_fetched;
}
DEREF:
foreach $href (@allRecords) {
foreach $column (sort keys %$href){
print "columName : $column columnVal: $href->{$column}\n";
}
}
(untested)
I hope this helps, good luck!
--
Eric Poindexter
<mailto:eric@nettown.com>
[http://nettown.com/site_perl/]
have a good day! (yes, Poindexter is Really my name)
------------------------------
Date: 21 Mar 1997 11:51:38 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: Newbie Question on accessing elements of Strings
Message-Id: <5gtsoa$fml@lyra.csx.cam.ac.uk>
Opera Ghost <agent.email@NetTown.com> wrote:
>Mark Glover wrote:
>> I am reading lines of text into a string from a file using the READ
>> function call and now I want to cycle through the string character by
>> character but because PERL strings are not arrays I cannot see how to
>> do this; in 'C' I would simply do:-
>
>while ($str =~ /./g) {
> print "$&\n";
>}
Don't use that. Use one of the methods suggested in the other replies.
1. It triggers the '$&' pessimisation
2. All that regexpery will be much more expensive that split or substr.
3. Except in the very simplest cases, iterators such as the above
are best avoided. If you terminate the loop prematurely (with a
'last'), the iterator will be left in a half-cocked state, leading
to odd results.
Mike Guy
------------------------------
Date: 21 Mar 1997 14:29:01 GMT
From: really_eliot@dg-rtp.dg.com_but_mangled_to_stop_junk_email
Subject: numerical values as hash indices: bad idea?
Message-Id: <ELIOT.97Mar21092901@kern1.dg.com>
I've been told many times that one should never attempt to compare two
floating-point values for equality, because, for example, you could be
trying to compare 1.0000000000 to 0.9999999999, and the result would
be "not equal", even if that isn't what you expected. Fair enough.
Now Perl, by default, represents all numerical values as floating
point numbers. If I were to use such a value as a key to a hash
(associative array), the value would be converted into a string and
the string would be used as the actual key value. Right? Correct me
if I'm wrong. Later, if I go to access that array entry by
calculating a numerical value and using that as the key, once again a
floating point is converted to a string and used as the actual key.
Thus I could end up generating a key of "1.00000000" (or perhaps just
"1") the first time, and "0.99999999999" the second time (depending on
what calculations I used to generate the index) and finding that my
array entry had "disappeared". Or so it appears to me.
Should I conclude that using numerical values, or at least numerical
values that are the result of any kinds of calculations, as keys to an
associative array is a Bad Idea?
Topher Eliot Data General Unix Core Development
(919) 248-6371 eliot at dg-rtp.dg.com
Obviously, I speak for myself, not for DG.
Visit misc.consumers.house archive at http://www.geocities.com/Heartland/7400
"Stealing drugs from Sav-A-Center isn't just a crime, it's against the law!"
-- sign in local supermarket window
------------------------------
Date: Thu, 20 Mar 1997 21:12:37 -0800
From: Devin Ben-Hur <dbenhur@egames.com>
To: "Steven R. Johnson" <stevej@mistic.net>
Subject: Re: Parsing a string
Message-Id: <333218C5.5A1C@egames.com>
[mail&post]
Steven R. Johnson wrote:
> I guess basicly what I want to do is remove everything between
> all the <>
s/<[^>]*>//g; # replace all <...> with nothing
try reading man perlre
When you're done with that, move on to "Mastering Regular
Expressions" by Jeffrey Friedl.
HTH
--
Devin Ben-Hur <dbenhur@egames.com>
eGames.com, Inc. http://www.egames.com/
eMarketing, Inc. http://www.emarket.com/
"Sometimes you just have to step in it and see if it stinks" O-
-- Sonia Orin Lyris
------------------------------
Date: 21 Mar 1997 12:51:49 GMT
From: pdcawley@aladdin.net (Piers Cawley)
Subject: Re: Perl 100 times slower ...
Message-Id: <5gu095$51m$1@gunnar.aladdin.net>
In article <19970320114411589144@dialup16.ip.lu>,
domo@tcp.ip.lu (Dominic Dunlop) writes:
> Premkumar Natarajan <pnataraj@emerald.tufts.edu> wrote:
>> Is this usual or does your instinct suggest that some obvious optimizing
>> is required ?
>
> Yes. If you can isolate the costly bit of your script, and post it to
> this group with a "how should I optimize" question, I'm sure you'll get
> the help you need. (Although be warned that it's hard to make
> math-intensive stuff go particularly fast without heavy-duty help from a
> C-language add-on module.) If you have Programming Perl, 2nd edition
> (and probably you should have it), you might like to check out the
> section on efficiency before you post so as to avoid the possibility of
> accusations of dumbly pessimal programming. Or you can experiment
> yourself, with the aid of the Benchmark module.
Also remember to check out the perl Profiler Devel::DProf (available
at all good CPAN sites...) which is deeply useful and more than
slightly cool...
--
Piers Cawley
------------------------------
Date: Fri, 21 Mar 1997 14:20:35 GMT
From: gs@iscon.demon.co.uk (Guy Saner)
Subject: Perl Compiler for DOS
Message-Id: <33329888.561711@news.demon.co.uk>
Keywords: *
Does anybody have, or know the location of
a precompiled version of the Perl Compiler for DOS.
By Perl Compiler, I mean the compiler that converts
Perl code into C code. I think it's still in it's alpha release.
Thanks in advance.
Guy
------------------------------
Date: 21 Mar 1997 13:16:54 GMT
From: schmidt@misun13.iai.fzk.de (Andreas Schmidt)
Subject: position of libperl.a
Message-Id: <5gu1o6$id3$1@nz12.rz.uni-karlsruhe.de>
Keywords: xsubpp objectstore interface libraries
hi
i am currently developing an interface between perl and the objectstore database.
now i have the problem that when i want to delete a persistent object from a
database the delete operator from the libperl.a library is called, which tells me
'Bad free() ignored at ./t/test1.t line 95',
because an overloaded objectstore-new operator was used when i created the
object. to use the objectstore delete-operator i changed the sequence order of
the included libraries, when building a new static perl-executable from:
CC -o perl -O ./perlmain.o /public/perl/lib/sun4-solaris/5.003/CORE/libperl.a
/public/perl/lib/sun4-solaris/5.003/auto/DynaLoader/DynaLoader.a
./blib/arch/auto/ostore/ostore.a `cat ./blib/arch/auto/ostore/extralibs.all`
-lsocket -lnsl -ldl -lm -lc -lcrypt
to:
CC -o perl -O ./perlmain.o
/public/perl/lib/sun4-solaris/5.003/auto/DynaLoader/DynaLoader.a
./blib/arch/auto/ostore/ostore.a `cat ./blib/arch/auto/ostore/extralibs.all`
-lsocket -lnsl -ldl -lm -lc -lcrypt
/public/perl/lib/sun4-solaris/5.003/CORE/libperl.a
(taking libperl.a as the last library to include).
now all runs fine and i could delete persistent objects with the
objectstore-delete operator. my questions are now:
- do i run in serious other problems, changing the order of the libraries?
- if this solution is possible, how could i tell MakeMaker to build the
perl-executable in such a way?
any hints or suggestions would be helpful
thanks in advance
smiff
========================================================================
andreas schmidt email: schmidt@iai.fzk.de
institut fuer angewandte informatik (iai) phone: +49 7247 82 5714
forschungszentrum karlsruhe gmbh
- technik und umwelt -
postfach 3640 76021 karlsruhe (germany)
------------------------------
Date: Fri, 21 Mar 1997 08:01:24 -0600
From: x@apocalypse.org
Subject: Single character representing all regexp metacharacters? wheeere?
Message-Id: <858952544.24963@dejanews.com>
Is there a single escaped character which represents all the
metacharacters recognized by the perl regexp engine?
I'm trying to program a simple search engine with user input...
The only solution I've found, which I hate, is, for each metacharater,
to preprend it with a backslash. It would be much easier to say:
$user_input = s/(\metagroup)/\\$1/g
If there's no special character, then which characters specifically
do I need to do the individual search and replace with?
The metacharacters *and* all the quantifier characters?
(CC:ed replies are appreciated)
Thanks! - xochi (x@apocalypse.org)
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Fri, 21 Mar 1997 14:22:42 GMT
From: adelton@fi.muni.cz (Honza Pazdziora)
Subject: Re: Single character representing all regexp metacharacters? wheeere?
Message-Id: <adelton.858954162@aisa.fi.muni.cz>
x@apocalypse.org writes:
> Is there a single escaped character which represents all the
> metacharacters recognized by the perl regexp engine?
> I'm trying to program a simple search engine with user input...
> The only solution I've found, which I hate, is, for each metacharater,
> to preprend it with a backslash. It would be much easier to say:
> $user_input = s/(\metagroup)/\\$1/g
> If there's no special character, then which characters specifically
> do I need to do the individual search and replace with?
> The metacharacters *and* all the quantifier characters?
> (CC:ed replies are appreciated)
Why don't you just use
$user_input = "\Q$user_input\E";
See man perlre.
Hope this helps.
[CC'ed to original poster.]
--
------------------------------------------------------------------------
Honza Pazdziora | adelton@fi.muni.cz | http://www.fi.muni.cz/~adelton/
I can take or leave it if I please
------------------------------------------------------------------------
------------------------------
Date: Fri, 21 Mar 1997 11:11:04 +0000
From: Pedro Vapi <vapi@student.dei.uc.pt>
To: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Suidperl!
Message-Id: <Pine.OSF.3.95.970321110506.1714A-100000@student.dei.uc.pt>
On Thu, 20 Mar 1997, Tom Phoenix wrote:
> > I am trying to implement a suid perl script on a system. It does allow
> > suid scripts (i made a bourne shell suid and guid, and it worked).
>
> Does your system have secure setid scripts? If not, the fact that that
> worked is scary! (Or did you mean that you made the bourne shell _binary_
> suid, instead of a bourne shell _script_?)
>
> > It does have the suidperl wich is a link to sperl.5003 program (with
> > permitions 4711). I have made a small program that just have the
> > following lines:
> >
> > #!/usr/bin/perl
>
> Are you certain that that is a binary which knows which suid perl to
> execute? You may need to recompile it, if it's not.
>
> > I have made this program chown root:bin at a Linux system.
>
> Uh, oh. Linux does not have secure setid scripts. Something isn't right
> here; either you're talking about two different systems, or something is
> wrong with Linux, or something else. Let us know what you're really doing,
> and we may be able to help. Good luck!
>
I am really sorry but i have already find out which one was the problem!!
I need to run the script wrapsuid to turn my program in binary! It is
because, i supose, Linux doesn't suport suid scripts...
Well, the most trouble i have had, was that i couldn't find the program
"wrapsuid", and when i tried to get the latest version of perl, it took
too long to came (at www.perl.com... it is realllllly slow!). But as
internet is big, i find out it at ftp.telepac.pt (near me!) :))
There was the script wrapsuid, and voila!! It's ready!
Thanks to you in special Tom, for your worry, and to the guy that made
that wonderfull script to send a mail to everyone that send the first mail
to that mailing list!!
By the way, is it possible to send the contents of this newssgroup to my
mailbox?? I just don't use much newsgroup.... i do really prefer to read
in my mailbox...
Thx!
()'s
Pedro Vapi
---------
vapi@student.dei.uc.pt
PGP @ finger
------------------------------
Date: 21 Mar 1997 07:06:59 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: term 'regular expressions' considered undesirable
Message-Id: <5gttl3$93j@panix.com>
In <JFRIEDL.97Mar21012955@tubby.nff.ncl.omron.co.jp> jfriedl@tubby.nff.ncl.omron.co.jp (Jeffrey) writes:
[...]
>Ah, well, I could go on forever. But basically, the term ``regular
>expression'' has no implied meaning to most people that first come across
>it in Perl or whatnot, so little confusion arises. It would have been nice
>had some other word been used from the start (perhaps one giving more of a
>hint as to what the thing is all about), but for the most part we're stuck
>with history. I suppose you could start a crusade to use a different
>phrase. How about 'whachamacallit'? :-)
And I highly recommend the second edition of Jeffrey's Book called,
"Mastering Whachamacallits"
--
Clay Irving See the happy moron,
clay@panix.com He doesn't give a damn,
http://www.panix.com/~clay I wish I were a moron,
My God! Perhaps I am!
------------------------------
Date: Thu, 20 Mar 1997 17:27:52 -0800
From: Lewis Taylor <lewis@nexusint.com>
Subject: TEST for empty DIR
Message-Id: <3331E418.4885@nexusint.com>
Here is a very long (and primative) routine I wrote to test if the
directory in $d is empty
$c=0;
opendir(D,$d);while(readdir(D)){$c++;}closedir(D);
if ($c > 2) # remember ./ and ../
{#directory not empty}
else
{#directory empty}
it works but there must be more elegant code to do the same, is there?
Cheers, Lewis (lewis@nexusint.com)
------------------------------
Date: Fri, 21 Mar 1997 08:27:42 GMT
From: Stephane Plattner <NOSPAMplas@fmi.ch>
Subject: Re: Unix and ease of use (WAS: Who makes more ...)
Message-Id: <3332467E.98@fmi.ch>
mwolfe@shrike.depaul.edu wrote:
>
> In the end Linux will bury MS. Linux is open. This means open
> competition. This means better products. LINUX RULES.
>
IMHO this answer contradicts to the basics of economics. Openess means
to a great extent equality and equality prohibits competition.
(communism). Competition rises only when differences exists and it's
the market (or the environment), who dictates which product is better.
--
Best
Stephane Plattner
DMS - Digitale Medien Systeme
Broadcast Communication Technologies
For reply remove NOSPAM!
------------------------------
Date: Fri, 21 Mar 1997 09:33:20 GMT
From: epement@jpusa.chi.il.us (Eric Pement)
Subject: Re: What's a good Perl book?
Message-Id: <33325513.42713937@news.jpusa.net>
On 17 Mar 1997 05:41:05 GMT, jgoerzen@complete.org (John Goerzen) wrote:
>>"Programming Perl" by Larry Wall, Tom Christiansen and Randal Schwartz
>
>Let us not forget that it is important to get the **second edition** of this
>book!
>
>>both available from:
>>
>>http://www.ora.com
>
>Or cheaper, from http://www.amazon.com, or (for the cheapest price I found),
>from http://www.cheapbytes.com.
Several dollars cheaper than that are the books from
<http://www.readmedotdoc.com>. The prices there cut the cost of even
new O'Reilly books by about 30 percent. Check them out.
Eric Pement <epement@jpusa.pr.mcs.net>
--
Eric Pement <epement@jpusa.pr.mcs.net>
senior editor, Cornerstone magazine
939 W. Wilson Ave., Chicago, IL 60640-5706
tel: 773/561-2450, x2084 fax: 773/989-2076
------------------------------
Date: Fri, 21 Mar 1997 05:36:34 GMT
From: tottinge@oma.com (Tim Ottinger)
Subject: Re: Who makes more $$ - Windows vs. Unix programmers?
Message-Id: <332ee82a.103435682@news.dave-world.net>
>> Where I work we're running "real time" client/server progs with custom
>> screens with NT and the screens provided to us by the Navy developers
>> using unix need to be run on a Pentium 200 to eliminate flicker. Our
>> programs can be run on a low end 486. I'm not sure to the specifics to
>> why this happens (I'm not a graphics programmer)but I was told that it
>> was a limitation of UNIX.
>
>Your problem is with X Windows, not Unix. Whoever told you that it was a
>limitation of Unix either doesn't know Unix at all, or was oversimplifing.
Also, it doesn't mention that the main market for Unix is not on the
PC. Most unix servers I know have many processors running at
reasonable speeds, and many, many GB of disk space and many dozens to
hundreds of users. That is an entirely different thing from a scaled-
down version running on a PC with cheezy support.
That's another thing about Unix: it's harder to generalize
performance. Unix on a 32-processor sequent runs rather differently
from Unix on a Pentium.
But to handle the question at hand, the SGI machines and some of the
Sparcs are really considered to be great at graphics. It may be that
they chose the wrong combination of machine/os/task.
Tim
-------------------------------------------------------------
Tim Ottinger | Object Mentor Inc. | OOA/D, C++, more..
tottinge@oma.com | http://www.oma.com | Training/Consulting
-------------------------------------------------------------
"... remember, there are ways of succeeding that we would not
personally have chosen. " - Bjarne Stroustrup
-------------------------------------------------------------
------------------------------
Date: Fri, 21 Mar 1997 15:17:12 GMT
From: Curious@oncom.au
Subject: Re: Who makes more $$ - Windows vs. Unix programmers?
Message-Id: <3334a413.22473822@droppa.tpgi.com.au>
On 20 Mar 1997 18:52:10 GMT,
really_eliot@dg-rtp.dg.com_but_mangled_to_stop_junk_email etched upon the
phospher:
Not related to the above in any way shape or form I want to ask
the man from DG Some thing.
Topher could you in a hundred words or less explain the core element's
of DG-DOS 4
I used it for a long time it originally came with my DG 286 but a early version
then my DG with a 486Dx in it came with ver 4 some thing. I always wondered
about it. Back then I had no programming knowledge on intel based machine's
Probably why I bought those other one's
It was a great OS with lots of non ms-dos thing's in it they were DG's
implementations obviously. It was the same OS used in the 4000 series
Please if I got that wrong forgive me this was back when DG were sponsering two
F1 cars and built a lot of main frames in Australia. From memory the last server
I saw from DG was a 4000 ????
thanks
>Yes, but they then sold it to the Santa Cruz Operation (SCO).
>
>Topher Eliot Data General Unix Core Development
>(919) 248-6371 eliot at dg-rtp.dg.com
>Obviously, I speak for myself, not for DG.
>Visit misc.consumers.house archive at http://www.geocities.com/Heartland/7400
>"I like to get the chicks messy."
> -- Peter, age 4, on why he likes the barnyard-scene cereal bowl.
------------------------------
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 154
*************************************
