[12321] in Perl-Users-Digest
Perl-Users Digest, Issue: 5921 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 8 12:07:20 1999
Date: Tue, 8 Jun 99 09:01:36 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 8 Jun 1999 Volume: 8 Number: 5921
Today's topics:
Re: PERL and SMTP <thomas.distler@icn.siemens.de>
Re: perl and win *.dll <gellyfish@gellyfish.com>
Re: perl cgi and apache <jpeterson@office.colt.net>
Re: Perl cgi problem: use cgi qw()param; unrecognized s <rootbeer@redcat.com>
Re: Perl Script with user's permissions <rootbeer@redcat.com>
Re: PERL T SHIRT FOR SALE (Clinton Pierce)
PERL/CGI mystere ? <hotline@esiee.fr>
Q: a simple search and replace <m-andric@students.uiuc.edu>
Re: Q: a simple search and replace (Tad McClellan)
Re: Q: a simple search and replace <upsetter@ziplink.net>
Re: Q: a simple search and replace (Larry Rosler)
Re: rounding to a certain decimal place <tchrist@mox.perl.com>
run .bat using WIN 32 perl nicolased@my-deja.com
Using a hash slice with references? <burton@lucent.com>
Re: Using a hash slice with references? <tchrist@mox.perl.com>
Re: Using a hash slice with references? (Greg Bacon)
Re: Using a hash slice with references? zenin@bawdycaste.org
Re: Using a hash slice with references? <dpodbori@email.msn.com>
Re: Using hash keys (Larry Rosler)
Re: Using string variable as name of subroutine to call (Greg Bacon)
Re: Using string variable as name of subroutine to call (Greg Bacon)
Re: Using string variable as name of subroutine to call (Greg Bacon)
Re: Why doesn't this work: open(STDOUT, "| tee >>$file" <rootbeer@redcat.com>
Will future releases of Perl be rewritten in C++? <dpodbori@email.msn.com>
Re: Will future releases of Perl be rewritten in C++? <tchrist@mox.perl.com>
Re: Will future releases of Perl be rewritten in C++? zenin@bawdycaste.org
Re: Will future releases of Perl be rewritten in C++? <dgris@moiraine.dimensional.com>
Re: Will future releases of Perl be rewritten in C++? <gellyfish@gellyfish.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 08 Jun 1999 15:59:36 +0200
From: distler <thomas.distler@icn.siemens.de>
Subject: Re: PERL and SMTP
Message-Id: <375D21C7.BCB1B664@icn.siemens.de>
Try this site send mail perl lib without any link to unix sendmail
package Mail::Sendmail;
# Mail::Sendmail by Milivoj Ivkovic <mi@alma.ch> or <ivkovic@csi.com>
# see embedded POD documentation after __END__
# or http://alma.ch/perl/mail.htm
" `V" wrote:
> I could do with some help finding a Perl script that will accept form fields
> and converting them into an email form.
> I have, but this uses Sendmail from UNIX...it wont work with any other mail
> server.
> If the Perl script has a reference to Sendmail in it, then it is no good. It
> usually asks you to insert the path to Sendmail in the script.
> I need a script that just asks for the SMTP IP address or mail server name.
> If you do manage to find one, it would make my current little insignificant
> life a hell of a lot easier!!<grin>
> Can anyone help me please.
>
> Many Thanks
>
> --
> Paul Deeman
> Deeman Computing
> http://www.deeman.co.uk
> pdeeman@deeman.co.uk
------------------------------
Date: 8 Jun 1999 14:55:03 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: perl and win *.dll
Message-Id: <375d20b7@newsread3.dircon.co.uk>
YANG Tong <ytong@club-internet.fr> wrote:
>
> Hi,
>
> A simple question : the wonderful perl can he handle a *.dll ?
>
You might want to look at the module Win32::API
> And
>
> Perl can he dialog in a network in native ? Or must I add a module for
> dialog in a network ?
>
It depends what you mean - Perl has modules to handle the majority of
application protocols such as HTTP, FTP, SMTP or so forth, however you
can write programs that use sockets in whatever way you wish - you will
probably however want to use either the Socket module or IO::Socket which
will make things a little easier for you. You should look at the perlipc
manpage.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Tue, 08 Jun 1999 15:25:17 GMT
From: <jpeterson@office.colt.net>
Subject: Re: perl cgi and apache
Message-Id: <xBa73.227$TM6.1270@news.colt.net>
fezzzza <fezzzza@yahoo.com> wrote:
> Please help I cant seem to get my perl script running on apache on red
This isn't a Perl question. The newsgroup for your question is:
comp.infosystems.www.servers.unix
but it is a FAQ there, too. You should check your httpd.conf settings,
especially Alias and ScriptAlias tags to make sure they point to the right
place.
------------------------------
Date: Tue, 8 Jun 1999 08:54:47 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Perl cgi problem: use cgi qw()param; unrecognized switch use CGI qw(param);
Message-Id: <Pine.GSO.4.02A.9906080850350.26349-100000@user2.teleport.com>
On Tue, 8 Jun 1999 aaron@preation.com wrote:
> My Web Server Tells me "Unrecognized switch:" in the error log when I run
> a script. It says the error is caused by the following line:
>
> use CGI qw(param);
That's surprising. The "Unrecognized switch" message from Perl should only
come from bad switches found on either the command line or the #! line. In
either case, it doesn't give a line number (on my copy of Perl, at least).
Have you seen what perldiag says about that message?
If you have any version of Perl from the last two years or so, you should
have the CGI module, so that 'use' line shouldn't be a problem. If the CGI
module isn't (properly) installed, ask your system administrator to fix
things. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 8 Jun 1999 08:43:28 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Perl Script with user's permissions
Message-Id: <Pine.GSO.4.02A.9906080843030.26349-100000@user2.teleport.com>
On Mon, 7 Jun 1999 cor75@my-deja.com wrote:
> I would like my script to run with the permissions of the user that
> activated it.
See the perlsec manpage. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 08 Jun 1999 13:52:38 GMT
From: cpierce1@ford.com (Clinton Pierce)
Subject: Re: PERL T SHIRT FOR SALE
Message-Id: <375f1f43.2158693917@news.ford.com>
On Sun, 06 Jun 1999 18:03:47 -0400, brian@pm.org (brian d foy) wrote:
>In article <7jd7go$lmb$1@news.inc.net>, "Jamie Brown" <brownjj@iserve.net> posted:
>
>> You won't break a sweat on your next project with our PERL shirt!
>
>shouldn't that be "Perl"? ;)
I always wear my Perl shirt on the opening night of teaching my Perl
class. It's a Second Edition Programming Perl shirt--but the book cover
(on the shirt) is pink. I got it at LISA X, the week that the Second
Edition Camel went on sale (and they had none)!
It's also signed by Larry, Randal and Tom.
I'll wear another Perl shirt, when someone pries this one from my cold,
dead fingers.
--
Clinton A. Pierce "If you rush a Miracle Man, you get rotten
clintp@geeksalad.org Miracles." -- Miracle Max, The Princess Bride
http://www.geeksalad.org
------------------------------
Date: Tue, 08 Jun 1999 17:34:08 +0200
From: Hotline smig <hotline@esiee.fr>
Subject: PERL/CGI mystere ?
Message-Id: <375D37EF.31FA88A7@esiee.fr>
I have a big/beautifull perl/cgi application.
But sometime the perl/cgi process don't want to close. ... ?? ...
Please help me at c.fodere@esiee.fr
------------------------------
Date: Tue, 8 Jun 1999 09:34:22 -0500
From: milan andric <m-andric@students.uiuc.edu>
Subject: Q: a simple search and replace
Message-Id: <Pine.SOL.3.96.990608092846.18412B-100000@ux11.cso.uiuc.edu>
i'm having problems with a simple regular expression to globally
substitute a string in a file.
i'm trying:
open (INDEXIN, ">>bond.html") || die "Can't open file: $!\n";
while ($line=<INDEXIN>) {
$line=~ s/<p><strong>/<p>/g;
}
close (INDEXIN);
this should simply do a global replace of all the instances of <p><strong>
with <p>. but it doesn't seem to do anything. if i change the
>>(append) to a > (write over) i end up with an empty file.
i don't get it
-milan
<m-andric@uiuc.edu>
------------------------------
Date: Tue, 8 Jun 1999 05:55:39 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Q: a simple search and replace
Message-Id: <rapij7.ecp.ln@magna.metronet.com>
milan andric (m-andric@students.uiuc.edu) wrote:
: i'm having problems with a simple regular expression to globally
: substitute a string in a file.
: i'm trying:
[snip code]
: this should simply do a global replace of all the instances of <p><strong>
: with <p>.
And it probably *is* doing that...
: but it doesn't seem to do anything.
... but you never do any output!
So you cannot see anything that you changed, because you did
not output it.
: if i change the
: >>(append) to a > (write over) i end up with an empty file.
: i don't get it
Print to a temp file, then move temp file as described in
Perl FAQ, part 5:
"How do I change one line in a file/
delete a line in a file/
insert a line in the middle of a file/
append to the beginning of a file?"
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 08 Jun 1999 15:53:48 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Q: a simple search and replace
Message-Id: <g0b73.2300$nn.709212@news.shore.net>
milan andric <m-andric@students.uiuc.edu> wrote:
: this should simply do a global replace of all the instances of <p><strong>
: with <p>. but it doesn't seem to do anything. if i change the
:>>(append) to a > (write over) i end up with an empty file.
As other people have pointed out, you're not writing any output.
However, if you're on Unix, there's a much much easier way to accomplish
this:
#! /usr/bin/perl
while (<>) {
s/<p><strong>/<p>/g;
print;
}
You can then invoke this script like so:
myscript myfile.html > myoutputfile.html
This allows you to run your script on any input file and redirect the
output to any file you like. This is "the unix way" and it will save you
a lot of work and hassle in the long run (if you're completely in the dark
on how Unix does stuff like this, I suggest you pick up the O'Reilly "Unix
in a Nutshell" book, a.k.a. "Unix for Smarties").
Note that when you get comfortable with this, you can simplify even
further by writing your script this way:
#! /usr/bin/perl -p
s/<p><strong>/<p>/g;
Pretty slick, huh? See "perlrun" in the docs to learn why this works and
why, when you want to get *really* slick, you can just do the whole thing
on the command line:
perl -i.bak -pe 's/<p><strong>/<p>/g' myhtml.html
Hope this helps. Have fun!
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Tue, 8 Jun 1999 08:04:46 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Q: a simple search and replace
Message-Id: <MPG.11c6d0dd76bba008989b94@nntp.hpl.hp.com>
In article <Pine.SOL.3.96.990608092846.18412B-100000@ux11.cso.uiuc.edu>
on Tue, 8 Jun 1999 09:34:22 -0500, milan andric <m-
andric@students.uiuc.edu> says...
...
> open (INDEXIN, ">>bond.html") || die "Can't open file: $!\n";
> while ($line=<INDEXIN>) {
> $line=~ s/<p><strong>/<p>/g;
> }
In addition to failing to write the results anywhere, you are trying to
read from a file that you opened for writing (appending).
See the FAQ that Tad McClellan referred you to.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 Jun 1999 09:02:03 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: rounding to a certain decimal place
Message-Id: <375d306b@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
Cursed by the Lord Bill and Microsoft Outlook Express 5.00.2014.211 to
plague comp.lang.perl.misc with annoying documentation questions answered
on his own system, the miserable "Dan Burke" <dbws@hotmail.com> writes:
:What is the best way to force a number (stored as a Perl variable) so that
:it always goes two decimal places to the right? ie: in standard money
:format ($29.95)
RTFM is a good start.
--tom
NAME
perlfaq4 - Data Manipulation ($Revision: 1.49 $, $Date:
1999/05/23 20:37:49 $)
DESCRIPTION
The section of the FAQ answers question related to the
manipulation of data as numbers, dates, strings, arrays, hashes,
and miscellaneous data issues.
Data: Numbers
Why am I getting long decimals (eg, 19.9499999999999) instead of the
numbers I should be getting (eg, 19.95)?
The infinite set that a mathematician thinks of as the real
numbers can only be approximate on a computer, since the
computer only has a finite number of bits to store an infinite
number of, um, numbers.
Internally, your computer represents floating-point numbers in
binary. Floating-point numbers read in from a file or appearing
as literals in your program are converted from their decimal
floating-point representation (eg, 19.95) to the internal binary
representation.
However, 19.95 can't be precisely represented as a binary
floating-point number, just like 1/3 can't be exactly
represented as a decimal floating-point number. The computer's
binary representation of 19.95, therefore, isn't exactly 19.95.
When a floating-point number gets printed, the binary floating-
point representation is converted back to decimal. These decimal
numbers are displayed in either the format you specify with
printf(), or the current output format for numbers (see the
section on "$#" in the perlvar manpage if you use print. `$#'
has a different default value in Perl5 than it did in Perl4.
Changing `$#' yourself is deprecated.
This affects all computer languages that represent decimal
floating-point numbers in binary, not just Perl. Perl provides
arbitrary-precision decimal numbers with the Math::BigFloat
module (part of the standard Perl distribution), but
mathematical operations are consequently slower.
To get rid of the superfluous digits, just use a format (eg,
`printf("%.2f", 19.95)') to get the required precision. See the
section on "Floating-point Arithmetic" in the perlop manpage.
....
--
The autodecrement is not magical.
--Larry Wall in the perl man page
------------------------------
Date: Tue, 08 Jun 1999 13:18:51 GMT
From: nicolased@my-deja.com
Subject: run .bat using WIN 32 perl
Message-Id: <7jj57h$kgi$1@nnrp1.deja.com>
I'm working with the Win 32 version of perl
and I want tu run a .bat during my perl script
I have tried the exec command
but it works only with .exe
Thanx,
Nicolas
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 08 Jun 1999 09:29:07 -0500
From: Burton Kent <burton@lucent.com>
Subject: Using a hash slice with references?
Message-Id: <375D28B3.FCC48655@lucent.com>
What is the proper way to reference a slice from a
hash of hashes? (Did I say that correctly?)
My code, which doesn't work:
@{records{$key}->{'key', 'prdb_id', 'prdb_title', 'prdb_doc', 'd
oc_id', 'doc_title', 'doc_file', 'doc_doc' }} = split / /;
I want it to be identical to:
($records{$key}->{'key'}, $records{$key}->{'prdb_id'},
$records{$key}->{'prdb_title'}, $records{$key}->{'prdb_doc'},
$records{$key}->{'doc_id'}, $records{$key}->{'doc_file'},
$records{$key}->{'doc_doc'}) = split / /;
Thanks.
B
------------------------------
Date: 8 Jun 1999 09:05:47 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Using a hash slice with references?
Message-Id: <375d314b@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Burton Kent <burton@lucent.com> writes:
:What is the proper way to reference a slice from a
:hash of hashes? (Did I say that correctly?)
:My code, which doesn't work:
:@{records{$key}->{'key', 'prdb_id', 'prdb_title', 'prdb_doc', 'd
:oc_id', 'doc_title', 'doc_file', 'doc_doc' }} = split / /;
In the general case, @$hashref{K1,K2,K3}. In your case, try:
@{records{$key}}{qw/key prdb_id prdb_title prdb_doc
doc_id doc_title doc_file doc_doc/ } = split;
--tom
--
echo "I can't find the O_* constant definitions! You got problems."
--The Configure script from the perl distribution
------------------------------
Date: 8 Jun 1999 15:08:00 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Using a hash slice with references?
Message-Id: <7jjbkg$qdv$2@info2.uah.edu>
In article <375D28B3.FCC48655@lucent.com>,
Burton Kent <burton@lucent.com> writes:
: What is the proper way to reference a slice from a
: hash of hashes? (Did I say that correctly?)
my %h = ( k => { a => 1, b => 2 } );
my @a = @{ $h{k} }{ qw( a b ) };
Greg
--
We have enough youth, how about a fountain of SMART?
------------------------------
Date: 08 Jun 1999 15:13:18 GMT
From: zenin@bawdycaste.org
Subject: Re: Using a hash slice with references?
Message-Id: <928854983.476991@localhost>
Burton Kent <burton@lucent.com> wrote:
: What is the proper way to reference a slice from a
: hash of hashes? (Did I say that correctly?)
:
: My code, which doesn't work:
: @{records{$key}->{'key', 'prdb_id', 'prdb_title', 'prdb_doc', 'd
: oc_id', 'doc_title', 'doc_file', 'doc_doc' }} = split / /;
:
: I want it to be identical to:
: ($records{$key}->{'key'}, $records{$key}->{'prdb_id'},
: $records{$key}->{'prdb_title'}, $records{$key}->{'prdb_doc'},
: $records{$key}->{'doc_id'}, $records{$key}->{'doc_file'},
: $records{$key}->{'doc_doc'}) = split / /;
@{ $records{$key} }{ qw(
key
prdb_id
prdb_title
prdb_doc
doc_id
doc_title
doc_file
doc_doc
) } = split / /;
see perllol and perldsc
--
-Zenin (zenin@archive.rhps.org) Caffeine...for the mind.
Pizza......for the body.
Sushi......for the soul.
-- User Friendly
------------------------------
Date: Tue, 8 Jun 1999 11:50:11 -0400
From: "Dmitry P." <dpodbori@email.msn.com>
Subject: Re: Using a hash slice with references?
Message-Id: <OTRr1Xcs#GA.296@cpmsnbbsa03>
According to The Camel Book, expression
$a->{ $b, $c, $d }
is interpreted by Perl as
$a->{ join( $;, $b, $c, $d ) }
where $; is a special variable by default set to Ctl-BackSpace. This
behavior allows to simulate multidimensional arrays
Burton Kent <burton@lucent.com> wrote in message
news:375D28B3.FCC48655@lucent.com...
> What is the proper way to reference a slice from a
> hash of hashes? (Did I say that correctly?)
>
>
> My code, which doesn't work:
> @{records{$key}->{'key', 'prdb_id', 'prdb_title', 'prdb_doc', 'd
> oc_id', 'doc_title', 'doc_file', 'doc_doc' }} = split / /;
>
> I want it to be identical to:
> ($records{$key}->{'key'}, $records{$key}->{'prdb_id'},
> $records{$key}->{'prdb_title'}, $records{$key}->{'prdb_doc'},
> $records{$key}->{'doc_id'}, $records{$key}->{'doc_file'},
> $records{$key}->{'doc_doc'}) = split / /;
>
> Thanks.
>
> B
------------------------------
Date: Tue, 8 Jun 1999 07:44:48 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Using hash keys
Message-Id: <MPG.11c6cc362defe86e989b93@nntp.hpl.hp.com>
In article <375CDEB7.B96644A1@realware.com.au> on Tue, 08 Jun 1999
19:13:28 +1000, Derek Lavine <derek@realware.com.au> says...
+ Probably simple, but i am new to perl
You know how to pass a hash by reference. This is not baby stuff!
+ I want to pass a function a hash, thus
+
+ %data = ( field1 => "field1 data",
+ field2 => "field2 data",
+ field3 => "field3 data"
+ etc.
+ )
+
+ then I want to pass this to a function along with a list of required
+ field names
+
+ e.g.
+
+ $reqfields = "field1, field3"
+
+ iscomplete ( \%data, $reqfields );
+
+ iscomplete needs to return 'true' if %data does indeed contain non
+ empty entries for the keys specified in $reqfields
+
+ I guess in general I am asking things like how do I get individual
+ keys or all the keys from a hash.
perldoc -f each (to get the keys -- and values -- one at a time)
perldoc -f keys (to get all the keys, as a list)
+ What is an easy way to step through a string like "field1, field2,
+ field3" etc. so that on each iteration I have "field1", "field2" etc.
+ to work with
perldoc -f split
+ Also is it possible to use the value of a string, $str, as an L_Value
+ so if $str="myvar1" I would like to be able to set $myvar1 (the real
+ variable) via $str, something like
+
+ ${$str} = "this is going to be placed in the var called myvar1";
+
+ NOTE: (I am using the '{' and '}' to indicate what I need, not that I
+ think this is the way to do it)
Yes, that is the way to do it. But you don't want to do it. You just
think you do.
So-called 'symbolic references' are evil and unnecessary in most cases.
Use the strings as keys to a hash.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 Jun 1999 14:38:51 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Using string variable as name of subroutine to call
Message-Id: <7jj9tr$pvv$3@info2.uah.edu>
In article <x73e0390q6.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> writes:
: >>>>> "TM" == Tad McClellan <tadmc@metronet.com> writes:
: TM> Never use Symbolic references!
:
: unless you really, really know what you are doing.
Please justify this statement.
Greg
--
Kenny: hmm-hmm hmm hmm hmm hmm hmm-hmm!
Stan: Dude, how'd you know she has a cat?
------------------------------
Date: 8 Jun 1999 14:40:05 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Using string variable as name of subroutine to call
Message-Id: <7jja05$pvv$4@info2.uah.edu>
In article <5avgj7.0ao.ln@magna.metronet.com>,
tadmc@metronet.com (Tad McClellan) writes:
: my $data = 'foobar and baz';
: foreach my $code_letter ( qw/A B C/ ) {
: &{$subs{$code_letter}}($data);
: }
TMTOWTDI!
my $data = 'foobar and baz';
foreach my $code_letter ( qw/A B C/ ) {
$subs{$code_letter}->($data);
}
Greg, who obviously likes arrows :-)
--
Kyle: You're gonna need to kick more ass than that to beat the Cowboys.
Cartman: Hey, speaking of pounding ass, here comes Stan's little homo dog.
------------------------------
Date: 8 Jun 1999 15:15:15 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Using string variable as name of subroutine to call
Message-Id: <7jjc23$qkv$1@info2.uah.edu>
In article <7jj9tr$pvv$3@info2.uah.edu>,
gbacon@itsc.uah.edu (Greg Bacon) writes:
: In article <x73e0390q6.fsf@home.sysarch.com>,
: Uri Guttman <uri@sysarch.com> writes:
: : >>>>> "TM" == Tad McClellan <tadmc@metronet.com> writes:
: : TM> Never use Symbolic references!
: :
: : unless you really, really know what you are doing.
:
: Please justify this statement.
Hmm. After receiving a reply from Daniel Grisinger, I realized that
I parsed Uri's statment as "Tad's heuristic only applies when you
really, really know what you're doing". Oops. :-)
Greg
--
Cop: McManus told us another story altogether.
Fenster: Is that the one about the hooker with dysentery?
------------------------------
Date: Tue, 8 Jun 1999 08:42:12 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Why doesn't this work: open(STDOUT, "| tee >>$file")
Message-Id: <Pine.GSO.4.02A.9906080837460.26349-100000@user2.teleport.com>
On Mon, 7 Jun 1999, Edwin Salgado wrote:
> I want to append to a file and tee it as well.
I'm not completely certain what you mean by that.
> open(STDOUT, "| tee >>$file") || .......
I think you want to give the tee command at least one filename for an
argument. (The item after the '>>' isn't an argument to tee.) Maybe you
want the -a option which (at least my copy of) tee supports for appending.
Check your tee manpage to be sure.
Of course, whatever you're doing with tee could be done directly within
Perl. Good luck with it!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 8 Jun 1999 10:37:18 -0400
From: "Dmitry P." <dpodbori@email.msn.com>
Subject: Will future releases of Perl be rewritten in C++?
Message-Id: <ehWwGvbs#GA.291@cpmsnbbsa03>
A question to the Perl experts:
-- now that C++ has become a mature language and C++ complilers are stable
and available on all platforms, wouldn't a large scale project like Perl
benefit from strong type system, automatic initialization and clean-up, STL
containers, etc.?
------------------------------
Date: 8 Jun 1999 09:07:43 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Will future releases of Perl be rewritten in C++?
Message-Id: <375d31bf@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
"Dmitry P." <dpodbori@email.msn.com> writes:
:-- now that C++ has become a mature language and C++ complilers are stable
:and available on all platforms, wouldn't a large scale project like Perl
:benefit from strong type system, automatic initialization and clean-up, STL
:containers, etc.?
So long as you don't care about size, speed, or portability, sure.
--tom
--
If you want to program in C, program in C. It's a nice language. I
use it occasionally... :-)
--Larry Wall in <7577@jpl-devvax.JPL.NASA.GOV>
------------------------------
Date: 08 Jun 1999 15:06:43 GMT
From: zenin@bawdycaste.org
Subject: Re: Will future releases of Perl be rewritten in C++?
Message-Id: <928854588.271259@localhost>
[posted & mailed]
Dmitry P. <dpodbori@email.msn.com> wrote:
: A question to the Perl experts:
:
: -- now that C++ has become a mature language and C++ complilers are stable
: and available on all platforms, wouldn't a large scale project like Perl
: benefit from strong type system, automatic initialization and clean-up, STL
: containers, etc.?
$ perldoc -q perl6
=head1 Found in /usr/libdata/perl/5.00503/pod/perlfaq1.pod
=head2 What is perl6?
Perl6 is a semi-jocular reference to the Topaz project. Headed by Chip
Salzenberg, Topaz is yet-another ground-up rewrite of the current release
of Perl, one whose major goal is to create a more maintainable core than
found in release 5. Written in nominally portable C++, Topaz hopes to
maintain 100% source-compatibility with previous releases of Perl but to
run significantly faster and smaller.
--
-Zenin (zenin@archive.rhps.org) Caffeine...for the mind.
Pizza......for the body.
Sushi......for the soul.
-- User Friendly
------------------------------
Date: 08 Jun 1999 09:36:10 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Will future releases of Perl be rewritten in C++?
Message-Id: <m3iu8yaemt.fsf@moiraine.dimensional.com>
"Dmitry P." <dpodbori@email.msn.com> writes:
> A question to the Perl experts:
>
> -- now that C++ has become a mature language and C++ complilers are stable
> and available on all platforms, wouldn't a large scale project like Perl
> benefit from strong type system, automatic initialization and clean-up, STL
> containers, etc.?
Perl 6 is being written in C++. Whether this is a good thing
is a matter of personal opinion.
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: 8 Jun 1999 16:35:42 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Will future releases of Perl be rewritten in C++?
Message-Id: <375d384e@newsread3.dircon.co.uk>
Dmitry P. <dpodbori@email.msn.com> wrote:
> A question to the Perl experts:
>
> -- now that C++ has become a mature language and C++ complilers are stable
> and available on all platforms, wouldn't a large scale project like Perl
> benefit from strong type system, automatic initialization and clean-up, STL
> containers, etc.?
>
And a 2 megabyte executable ?
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5921
**************************************
