[13255] in Perl-Users-Digest
Perl-Users Digest, Issue: 665 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 27 21:07:39 1999
Date: Fri, 27 Aug 1999 18:05:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 27 Aug 1999 Volume: 9 Number: 665
Today's topics:
Re: automatically printing a web page using embedded pe (Matthew Bafford)
Re: Computing loop over array problem <aqumsieh@matrox.com>
essentially; making a long file name into a 8.3 filenam (Jim Matzdorff)
Re: file size testing (Larry Rosler)
Find 'sendmail' with only ftp... (Hartgeorge)
Re: Graphs and Charts (Graham Ashton)
Re: Hashed sets (Eric Bohlman)
Re: Hashed sets (Anno Siegel)
Re: Hashed sets (Abigail)
Re: Images (Abigail)
newbie needs help <tsaaedel@bright.net>
Oraperl bug in Oracle 8.0.5 maya_ganesan@hp.com
Re: Perl a Black Sheep? lvirden@cas.org
Re: perl don't understand semicolon in passed form vari <flavell@mail.cern.ch>
Re: Perl Jargon Question (Abigail)
Re: Perl Y2K Bugs on the Internet (Eric Bohlman)
Re: Perl Y2K Bugs on the Internet <firstsql@ix.netcom.com>
UNIX or NT ? <singh_mandeep@jpmorgan.com>
Re: UNIX or NT ? <bmetcalf@nortelnetworks.com>
Re: Why use Perl when we've got Python?! <robin@jessikat.demon.co.uk>
Re: Why use Python when we've got Perl? (William Tanksley)
Win32::EventLog Issue <tom_lichti@interactivemedia.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 27 Aug 1999 21:09:55 GMT
From: *@dragons.duesouth.net (Matthew Bafford)
Subject: Re: automatically printing a web page using embedded perl
Message-Id: <slrn7sdtv8.3mc.*@dragons.duesouth.net>
On Fri, 27 Aug 1999 17:53:45 GMT, Bill <isspecial@fast.net> spewed
forth:
: database. My problem is that I want to provide a button or hyperlink
: to print out the page instead of requiring the user to use the print
Something like (tested in CGI's `offline mode'):
#!/usr/bin/perl -w
use CGI qw/:standard/;
my $url = param 'url';
system("lynx -dump $url | lpr");
print <<EOHTML;
Content-type: text/html
<html>
<head>
<title>
$url printed!
</title>
</head>
<body>
<h1 align=center>
$url printed!
</h1>
</html>
EOHTML
HTH,
--Matthew
------------------------------
Date: Fri, 27 Aug 1999 17:23:32 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Computing loop over array problem
Message-Id: <x3ylnawx6i5.fsf@tigre.matrox.com>
marcza@my-deja.com writes:
> Assume we have a string with an unknown number of pairs of numbers and
> spaces between them like:
>
> $str = " 6 34 23 33 7 0 2 03 ";
> Now I want to loop over these pairs and find out if more first parts
> greater then the refering second parts. If this is the case "y" should
> be returned otherwise "n":
[ snip example]
> How is the shortest way of doing this ?
Here's a subroutine to do it:
sub routine {
my %x = split ' ', shift;
my $y = 0;
map { $y += $_ > $x{$_} ? 1 : -1 } keys %x;
return $y > 0 ? 'y' : 'n';
}
You pass to it your string of numbers and it returns 'y' or 'n'.
> This is my current (slow) solution:
>
> sub calc {
> local($tmp) = $_[0];
You don't really need to use local(). Use my(). It's better. Check out
perlfaq7:
What's the difference between dynamic and lexical (static)
scoping? Between local() and my()?
> $tmp = trim($tmp); # removes leading/trailing spaces
You don't really need to do that. And if you did, you don't need it as
a separate function since it is a one-liner:
$tmp =~ s/^\s*|\s*$//g;
But there are better ways as discussed in perlfaq4:
How do I strip blank space from the beginning/end of a string?
> $tmp = split(/ +/,$tmp);
This is wrong. It will also generate a warning under '-w':
Use of implicit split to @_ is deprecated at - line xx.
That should be:
@tmp = split ' ', $tmp;
Note that pattern used is ' ', which is special. Read about it in
perlfunc (type 'perlfunc -f split' .. and scroll down .. down ..)
> local($w) = 0;
Again, use my().
> while(0 < $#tmp) {
What a strange way to iterate through an array!
> if (pop(@tmp) < pop(@tmp)) {
> $w++; }
> else {
> $w--; } }
> return((( 0 <= $w) ? "n" : "y")); }
Will you consider modifying the return value to make it 1 instead of
'y' and 0 instead of 'n'? This might make life a bit simpler for you
since you'll be able to do:
if (calc($str)) {
....
}
HTH,
Ala
------------------------------
Date: 27 Aug 1999 17:30:12 -0700
From: syran@best.com (Jim Matzdorff)
Subject: essentially; making a long file name into a 8.3 filename..
Message-Id: <7q7aik$rd5$1@shell18.ba.best.com>
Hello all,
I want to essentially take a string that is a long filename, with any
number of periods being replaced by "_" except for the last, all to make
it into a 8.3 valid format.
So,
"thislongfile.name" -> "thislong.nam"
and
"a.long.file.description" -> "a_long_f.des"
and
"noextention" -> "noextent.ion"
I've stared at my computer for a bit figuring out the way to pattern
match and substitute, but being honest with myself, I have no clue.
I had eventually was getting to this: (well, this was my last attempt)
$file =~ /(\w{0,8}).*(\.\w{0,3})$/;
but that doesn't do alot of things, and I was getting a bit lost and
getting a headache. Something tells me someone can spit it out in a
minute so I figured I would try. Thanks!
--jim
--
--
If life is a waste of time, and time is a waste of life,
then let's all get wasted together and have the time of our lives.
------------------------------
Date: Fri, 27 Aug 1999 14:10:23 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: file size testing
Message-Id: <MPG.12309e9c50bc059989ebd@nntp.hpl.hp.com>
In article <7q6ok1$ph$1@nnrp1.deja.com> on Fri, 27 Aug 1999 19:23:55
GMT, bshook@csrlink.net <bshook@csrlink.net> says...
> I'm writing a script that tests the size of a file to make sure it is
> not empty before I parsed its content and update a database. The
> problem is when I test the size and the file is 0 bytes the sytem hangs.
> This is running on unix. I was wondering if any one could offer me an
> explanation as to why this is happening and how I can fix it. Thank you.
> Even this small snippet won't work.
>
> $inputFile = "feature2";
You are using a relative path. Are you sure what the current directory
is?
> $inode = stat($inputFile);
Where is the check for the failure of the 'stat' system call? What is
'$inode'? In scalar context, stat() returns true or false.
> $size = $inode->size;
Did you forget to mention that you invoked the module File::stat that
redefines stat()?
Perhaps what you want is as simple as this:
defined ($size = -s $inputFile) or
die "Couldn't get size of '$inputFile'. $!\n";
perldoc -f stat
perldoc -f -X
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 28 Aug 1999 00:42:55 GMT
From: hartgeorge@aol.com (Hartgeorge)
Subject: Find 'sendmail' with only ftp...
Message-Id: <19990827204255.08359.00000751@ng-cc1.aol.com>
Hi
I have an assignment in which I am writing a autoresponder on a unix server in
which I only have ftp access. The problem: I need to know where sendmail is
located on their server to send out messages. I asked their technical support
folks but they had no idea what I was talking about. So I am desperate. I do
have the ability to write cgi programs on their server so I thought to create a
cgi program returning an html document that included the command -> system
("whereis sendmail") but this did not work. Any ideas?
Thank you
George Hart
hart@rohan.sdsu.edu
San Diego
------------------------------
Date: 27 Aug 1999 21:31:09 GMT
From: billynospam@mirror.bt.co.uk (Graham Ashton)
Subject: Re: Graphs and Charts
Message-Id: <slrn7se0su.lds.billynospam@wing.mirror.bt.co.uk>
In article <7q6mpg$vfo$1@nnrp1.deja.com>, Stone Cold wrote:
>How does Perl handle graphics?
with external modules, generally. unless you want to write the graphics
handling code yourself... ;)
>I'd like to create some code that will
>1. connect to a database via DBI module 2. grab data from database and
>3. Output the data via web interface into a graph/chart using CGI.
1 and 2 are obviously possible. you can do 3 in a number of ways. have a
look at the GIFgraph module. GNUplot would do it easily enough too.
--
Graham
------------------------------
Date: 27 Aug 1999 21:46:21 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Hashed sets
Message-Id: <7q70vd$ado@dfw-ixnews15.ix.netcom.com>
Steven de Rooij (srooij@wins.uva.nl) wrote:
: Hashes in Perl are obviously brilliant.
: But often, I don't really need an actual value in a hash;
: I just want to know if the key is there.
: For example, you have an array @arr, and you want to know if the string
: `strangelove' is in it.
: This is how I would write this:
:
: 1)
:
: while (@arr) {
: next unless /^strangelove$/;
: freak_out;
: }
:
: reasonably OK, but what I'd like to say is:
:
: 2)
:
: keys(my %hash)=@arr;
: if ($hash{'strangelove'}) {
: chill;
: }
:
: Now perhaps you feel the first method is much better than the second,
: and I shouldn't complain, but there are many circumstances when I
: feel that it would be nice to hashify an array.
The first method is rather slow. The real question is why you're using the
array rather than a hash in the first place (if it's to keep order, look
into Tie::IxHash which lets you create a hash whose keys can be retrieved
with each() or keys() in order of entry).
: Is there an alternative way to quickly store a (large) array in a hash?
There is: assignment to a hash slice:
@hash{@array}=(1) x @array;
However, this is going to be slow if you do it every time you need to
test for the existence of a key.
: Has there been any discussion as to this language feature?
Yes, do a Deja search on this group for "hash slice."
: (I'm absolutely new to this forum, so please don't get upset if everyone
: was just talking about this three minutes ago).
As it turns out, this isn't a Frequently Asked Question, but that still
doesn't excuse you from doing your homework. The FAQ documents that come
with Perl will quickly enable to tell if a particular question is likely
to be one that's been asked here over and over again And if so, they'll
give you your answer far faster than it would take to compose a question,
post it, and wait for the answer. And you'll have a high degree of
confidence that the answer you get will be correct, something that can't
be guaranteed on Usenet, where there are always people eager to show off
their "street knowledge" of how things work (the classic illustration of
"street knowledge" is "she can't get pregnant if she's on top during
sex"; the Perl equivalent might be "the sixth element of the list
returned by localtime() is the last two digits of the year.").
------------------------------
Date: 27 Aug 1999 22:07:53 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Hashed sets
Message-Id: <7q727p$ksh$1@lublin.zrz.tu-berlin.de>
Steven de Rooij <srooij@wins.uva.nl> wrote in comp.lang.perl.misc:
>Hello everyone,
>
>Hashes in Perl are obviously brilliant.
>But often, I don't really need an actual value in a hash;
>I just want to know if the key is there.
>For example, you have an array @arr, and you want to know if the string
>`strangelove' is in it.
>This is how I would write this:
>
>1)
>
>while (@arr) {
> next unless /^strangelove$/;
Hmmm... No pattern match needed here. $_ eq 'strangelove' would
have done. It would also carry over to what you want to do next.
> freak_out;
>}
>
>reasonably OK, but what I'd like to say is:
>
>2)
>
>keys(my %hash)=@arr;
>if ($hash{'strangelove'}) {
> chill;
>}
Yes you can do that, and it's an idiom or soon going to be:
@hash{ @arr} is a hash slice (a list) of lvalues. You can assign
undef to all of them at once by assigning an empty list. Later you
need to ask if a hash key exists, not if it has a true value, as in
your code above. This is how it works:
my @words = qw( abc def strangelove ghi);
my %hash;
@hash{ @words} = ();
print "there!\n" if exists $hash{ strangelove};
Anno
--
$,=$"; $\=$/; print map { m/(?<=")(\w*)(?=")/g } map { eval; $@ }
'another->Just', 'Hacker->Perl';
------------------------------
Date: 27 Aug 1999 18:52:25 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Hashed sets
Message-Id: <slrn7se9ba.tt.abigail@alexandra.delanet.com>
Steven de Rooij (srooij@wins.uva.nl) wrote on MMCLXXXVII September
MCMXCIII in <URL:news:37C6F958.D40E613E@wins.uva.nl>:
~~ Hello everyone,
~~
~~ Hashes in Perl are obviously brilliant.
~~ But often, I don't really need an actual value in a hash;
~~ I just want to know if the key is there.
~~ For example, you have an array @arr, and you want to know if the string
~~ `strangelove' is in it.
~~ This is how I would write this:
~~
~~ 1)
~~
~~ while (@arr) {
~~ next unless /^strangelove$/;
~~ freak_out;
~~ }
$_ eq 'strangelove'; is what I would write.
~~
~~ reasonably OK, but what I'd like to say is:
~~
~~ 2)
~~
~~ keys(my %hash)=@arr;
~~ if ($hash{'strangelove'}) {
~~ chill;
~~ }
Perhaps you mean:
@hash {@array} = ();
chill if exists $hash {strangelove};
~~ Now perhaps you feel the first method is much better than the second,
~~ and I shouldn't complain, but there are many circumstances when I
~~ feel that it would be nice to hashify an array.
~~
~~ Is there an alternative way to quickly store a (large) array in a hash?
How quick is "quickly"? You'd still need to build the hash, and the
larger the array is, the longer that will take.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
-----------== 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: 27 Aug 1999 18:54:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Images
Message-Id: <slrn7se9fm.tt.abigail@alexandra.delanet.com>
Jimmy Humphrey (jimmy@blackhole-designs.com) wrote on MMCLXXXVII
September MCMXCIII in <URL:news:37C6D12F.B35E063D@blackhole-designs.com>:
$$ Hey, I just hit the reply button on Netscape 4.6 and hit send.
And you can't be bothered trimming signatures, or putting your reply
underneath the thing you are replying to.
It proves once again that Netscape was made by lusers for lusers.
*ploink*
Abigail
--
perl -wlpe '}{$_=$.' file # Count the number of lines.
-----------== 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: Fri, 27 Aug 1999 18:57:35 -0400
From: "The DeLongs" <tsaaedel@bright.net>
Subject: newbie needs help
Message-Id: <qNEx3.158$q_6.4055@cletus.bright.net>
Attention all knowledgeable Perl people sirs,
I am in need of assistance. I'm running Perl in Win32, specifically
Win98 (yeah, I actually got it to work). Problem is, whenever I run a Perl
program, the program closes before I can ever see the output. So, I decided
to make a little bit of code that would make the user type 'quit' before the
program exits. Here's the code:
$inputline = <STDIN>;
print( $inputline );
print( "\n \n" );
print ( "Type quit to exit.\n" );
$inputline2 = <STDIN>;
$quitline = "quit";
until ( $inputline2 == $quitline) {
print ( "Please type quit to exit. \n" );
$inputline2 = <STDIN>;
}
Problem is, if the user types anything at the prompt, the program exits.
Please correct my foolish errors.
Adel
------------------------------
Date: 27 Aug 1999 22:03:05 GMT
From: maya_ganesan@hp.com
Subject: Oraperl bug in Oracle 8.0.5
Message-Id: <7q71up$oib$1@ocean.cup.hp.com>
Hello,
I have migrated my Oracle database from 7.3.3 to 8.0.2.
There has been no change in the UNIX platform which
is HP-UX 10.2.
I encountered this unique bug in Oraperl where I cannot
select 2 date columns using the conversion
format "TO_CHAR".
Example, the following script will not yield any values..
$lda =
&ora_login($ENV{'ORACLE_SID'},$ENV{'ORAUSER'},
$ENV{'ORAPASSWD'}) || die $ora_errstr;
$query = "select to_char(sysdate,'MM/DD/YYYY'),
to_char(sysdate,'MM/DD/YYYY hh24.mi.ss')from dual";
$csr = &ora_open($lda, $query) || die $ora_errstr;
while (($today) = &ora_fetch($csr)) {
$todays_date = $today;
$todays_datetime = $now;
}
&ora_close($csr) || die $ora_errstr;
The above script gave no output. I canot have
2 "to_char" in 1 sql in oraperl with 8.0.5.
For example, the following would work very well:-
$lda =
&ora_login($ENV{'ORACLE_SID'},$ENV{'ORAUSER'}
,$ENV{'ORAPASSWD'}) || die $ora_errstr;
$query = "select sysdate,
to_char(sysdate,'MM/DD/YYYY hh24.mi.ss') from dual";
$csr = &ora_open($lda, $query) || die $ora_errstr;
while (($today) = &ora_fetch($csr)){
$todays_date = $today;
$todays_datetime = $now;
}
&ora_close($csr) || die $ora_errstr;
So I do not understand how multiple to_char's in a SQL
against any table (not only dual) could yield no result
I would like to know if there are any ORAPERL drivers
for Oracle 8.0.5. And if available, where can I get it.
Oracle corp was not able to help me out and you are
my last resort.
Thank you for all your help and please reply to my email
maya_ganesan@hp.com
or
mganesan@yahoo.com
Regards,
Maya Ganesan
------------------------------
Date: 28 Aug 1999 00:37:28 GMT
From: lvirden@cas.org
Subject: Re: Perl a Black Sheep?
Message-Id: <7q7b08$2pm$1@srv38.cas.org>
According to <joeyandsherry@mindspring.com>:
:Why is Perl treated with such disdain? I've found many occasions where Perl
:programmers say "Perl can do that...", which doesn't seem to reinforce what
:I experienced today.
In my experience, the kind of reaction you found today is from someone with
infected with a "Bill Gates is God" meme. Because Microsoft didn't invent
Perl, they somehow think less of it. IMO, it's one of those
'inferiority complexes'.
--
<URL: mailto:lvirden@cas.org> Quote: Save us from the snobs.
<*> O- <URL: http://www.purl.org/NET/lvirden/>
Unless explicitly stated to the contrary, nothing in this posting
should be construed as representing my employer's opinions.
------------------------------
Date: Fri, 27 Aug 1999 23:05:56 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: perl don't understand semicolon in passed form variable?
Message-Id: <Pine.HPP.3.95a.990827224222.19229A-100000@hpplus03.cern.ch>
On Fri, 27 Aug 1999, JD Harlan wrote:
> I've got a script that is taking a template passed to it via a form
> (POST) and writing it to a directory. The problem is, the form variable
> has a bunch of semicolons in it, and it seems that either perl or cgi.pm
> is treating the semicolon as an escape character.
Well, CGI.pm (at least in the recent versions that I've investigated on
this point) supports the suggestion that has been contained in the HTML
specs since early on, to honour ";" as an alternative delimiter to the
standard "&". The reasons are well documented in the HTML specs.
However, if you're passing these (; and &) as data, it shouldn't be a
problem, because they should get encoded in %xx format as part of the
submission procedure.
> $custom_template = $cgiobject->param("custom_template");
>
> I.e., if the custom_template passed from the previous page is
>
> "10 - 4 ; good buddy"
There's several pieces of the puzzle that you haven't described here,
but none of them are about the Perl language. Suggest you follow them
up to c.i.w.a.cgi for more detailed analysis.
I've followed your directions as I understood them, and got the result
that I expected (i.e what you said you wanted and didn't get), namely
that the custom_template is set to the whole of the above string, with
no interference from the semi-colon. This was true with specimens of
the Big Two browsers, so I'd expect it a fortiori with the minority
browsers, whose respect for the published specifications is usually
higher.
So I don't know how you're getting confused, but it must be in some part
that you haven't exhibited here.
Please, f'up to c.i.w.authoring.cgi, or we can both expect some backlash
from the Perl fans here...
cheers
------------------------------
Date: 27 Aug 1999 18:46:48 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Perl Jargon Question
Message-Id: <slrn7se90s.tt.abigail@alexandra.delanet.com>
Kai Tham (ktham@tigerfund.com) wrote on MMCLXXXVII September MCMXCIII in
<URL:news:37C6C374.6D57226E@tigerfund.com>:
__
__ I am especially interested in how qq{""} and uc() work.
From left to right.
__ Could you also reply to kai_tham@tigerfund.com?
No.
Abigail
--
perl -we '$_ = q ?4a75737420616e6f74686572205065726c204861636b65720as?;??;
for (??;(??)x??;??)
{??;s;(..)s?;qq ?print chr 0x$1 and \161 ss?;excess;??}'
-----------== 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: 27 Aug 1999 21:14:36 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <7q6v3s$ado@dfw-ixnews15.ix.netcom.com>
John Callender (jbc@shell2.la.best.com) wrote:
: In comp.lang.perl.misc Eric Bohlman <ebohlman@netcom.com> wrote:
:
: > Larry's stated goals in creating Perl
: > are incompatible with a sandbox language for non-programmers.
:
: Which stated goals of Larry are you referring to? Clearly, he never
: intended Perl to be a sandbox language, but I don't believe it
: necessarily follows that he didn't intend for it to be used by
: non-programmers (or, more precisely, by programmers who are at such an
: early stage of their development that they would be unable to do useful
: work with a language less sophisticated than Perl).
By a "sandbox language" I meant one that was intended to protect novices
from the consequences of their mistakes. You're correct that Larry's
never claimed that Perl isn't useful for novices; he's just never felt
that limiting the amount of rope you give someone is a good idea. I
think it's safe to say he assumed that people who were confronted with an
unfamiliar construct would look it up rather than trying to guess at how
it worked.
------------------------------
Date: Fri, 27 Aug 1999 16:38:27 -0700
From: Lee Fesperman <firstsql@ix.netcom.com>
Subject: Re: Perl Y2K Bugs on the Internet
Message-Id: <37C72173.69EF@ix.netcom.com>
Jonathan Stowe wrote:
>
> It appears that Ms Amon has some particular animus toward Perl as a
> programming language. For those in newsgroups that have less experience
> of this persistent individual might like to see for instance the thread:
>
> <http://x21.deja.com/[ST_rn=ap]/viewthread.xp?AN=481002103&search=thread>
I did surf through some of that thread. It mainly confirmed my experience that things
are a bit virulent on the Perl NGs. I don't really see the animus from Ms Amon you see.
I found her comments fairly reasoned, even if she seemed somewhat lightweight in her
technical knowledge. Most of the attacks came from the Perl-heads, like:
"Now, go away, kid, and learn something before you embarrass yourself again. Lately you
can't even open your mouth but to change feet."
In reality, this date 'feature' is a weakness in Perl (and C, Javascript, ...) - a poor
design. Because of cross-posting, I'm viewing this from the Java NG. Java has this
deficiency but has recognized it, replaced it with a correct implementation and
deprecated the problematic stuff.
--
Lee Fesperman, FFE Software, Inc. (http://www.firstsql.com)
------------------------------
Date: Fri, 27 Aug 1999 17:45:05 -0400
From: Mandeep Singh <singh_mandeep@jpmorgan.com>
Subject: UNIX or NT ?
Message-Id: <37C706E1.659791E7@jpmorgan.com>
Is there a way to know which operating system you are on from inside
perl script?
------------------------------
Date: Fri, 27 Aug 1999 15:46:55 -0700
From: Brandon Metcalf <bmetcalf@nortelnetworks.com>
Subject: Re: UNIX or NT ?
Message-Id: <37C7155F.FF4B59DA@nortelnetworks.com>
The variable $^O contains the os.
Brandon
Mandeep Singh wrote:
> Is there a way to know which operating system you are on from inside
> perl script?
------------------------------
Date: Fri, 27 Aug 1999 19:10:38 +0100
From: Robin Becker <robin@jessikat.demon.co.uk>
Subject: Re: Why use Perl when we've got Python?!
Message-Id: <hAxJjJAeStx3Ew5V@jessikat.demon.co.uk>
In article <MPG.122fcf84a811c6099896e8@news.melbpc.org.au>, Factory
<faqtori@hotmail.com> writes
>In article <7putsq$3ql$1@lycaeus.calstatela.edu>, ramune@bigfoot.com
>says...
>> In article <slrn7s2lb3.k6b.abigail@alexandra.delanet.com>,
>> Abigail <abigail@delanet.com> wrote:
>> [snip amusing rant]
>> >Yeah, those math texts from the 16th and 17th century, they are sooooo easy
>> >to read, because they lack all the symbols. Not to mention the original
>> >Euclid and those other Greeks, who had no symbols at all!
>>
>> <GRIN>
>> Oh, but they're written with only symbols! All those confusing greek symbols
>> that mathematicians use are the basic building blocks for the language! Why
>> didn't they just use English?
>> </GRIN>
>
> Hmm that might be a bit off, the anchient Greeks had no concept of
>variables, thus you would never see f(x)= 2y in any old greek
>mathematics. IIRC variables were discovered(?) by Al-Jabar sometime
>after.
> Thus the Greeks certainly did not use symbols, and it held back
>mathematics. Not that this applies to python vs. perl.
C:\Python\Installs>python shaney.py \tmp\junk.txt
Anyway, I'll post this with my comments as I originally started to enter
them.
Great work.
In geek religion wars, there are two types of people.
One of them as a way to increase your understanding.
(Of course, while the abstract material in CS can come in handy, if
they're taught wrong, what's the point?) There's quite a bit slow on the
uptake.
I should have read all the way through.
And I looked at your web site.
I must admit you write great parody.
Anyway, I'll post this with my comments as I originally started to enter
them.
Great work.
--
Robin Becker
------------------------------
Date: Fri, 27 Aug 1999 22:09:58 GMT
From: wtanksle@dolphin.openprojects.net (William Tanksley)
Subject: Re: Why use Python when we've got Perl?
Message-Id: <slrn7se35m.sii.wtanksle@dolphin.openprojects.net>
On Thu, 26 Aug 1999 23:13:39 -0400, David Oppenheimer wrote:
>Where can I find info on Minotaur?
I don't remember, but try looking it up on http://freshmeat.net/.
>David O.
--
-William "Billy" Tanksley
------------------------------
Date: Fri, 27 Aug 1999 17:09:27 -0400
From: "Tom Lichti" <tom_lichti@interactivemedia.com>
Subject: Win32::EventLog Issue
Message-Id: <7q6uqp$dio$1@goblin.uunet.ca>
Arrg. In the die... lines change $server to $host...not that that is the
problem, just for consistency.
Tom
Tom Lichti wrote in message <7q6smj$daf$1@goblin.uunet.ca>...
>As requested, here is the problem code. I have also searched some of the
>newsgroup archives, and there seems to be a problem with events that have
an
>identical date/time stamp. Could this be the problem?
>
>Again, thanks for the help
>
>Tom Lichti
>
<SNIP>
------------------------------
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 665
*************************************
