[13235] in Perl-Users-Digest
Perl-Users Digest, Issue: 645 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 25 20:16:53 1999
Date: Wed, 25 Aug 1999 17:10:17 -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 Wed, 25 Aug 1999 Volume: 9 Number: 645
Today's topics:
Re: Mail subroutine using postie (Abigail)
Re: need help with constants (Abigail)
Re: New to Perl Databases <work@netfinances.com>
Re: newbi: Registry Help under NT <carvdawg@patriot.net>
Re: Newbie ?: Function Arguments and Arrays (Abigail)
Re: Perl a Black Sheep? (Donovan Rebbechi)
Re: PERL EDITOR (Donovan Rebbechi)
Perl on NT vs Perl on Win98 <paulsxxx@cascadelinear.com>
perl2exe problem <new_conclusions@bigfoot.com>
Re: print dollar format? (Abigail)
Re: puzzle (Abigail)
Re: Q: Perl to binary? <aqumsieh@matrox.com>
Regex Question <samay1NOdzSPAM@hotmail.com>
Select Multiple Form Field via Perl into Oracle error <simsi@hotmail.com.nospam>
Re: semaphore manipulation <james.p.williams@usahq.unitedspacealliance.com>
Re: Send to ICQ with perl (Martien Verbruggen)
Spawn a Web process <good@drinking.eng.sun.com>
Re: test (Abigail)
Re: The extent of double-quotish interpolation <laurensmith@sprynet.com>
Re: trouble using the Perl2exe aplication <carvdawg@patriot.net>
Re: VERY VERY VERY weird things happening (Ilya Zakharevich)
Re: What are valid characters in hash keys (Larry Rosler)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Aug 1999 18:12:45 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Mail subroutine using postie
Message-Id: <slrn7s8u52.lhu.abigail@alexandra.delanet.com>
Stone Cold (paulm@dirigo.com) wrote on MMCLXXXV September MCMXCIII in
<URL:news:7q0v4j$se7$1@nnrp1.deja.com>:
,, I'm looking for a simple email subroutine using a third party email
,, program called postie. I'm on the right track, but a little stumped.
,,
,, Anyone have a simple subroutine that calles a third party email program?
Did you read the manual/FAQ about calling other programs?
If no, then you should. If yes, what exactly is your problem?
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== 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: 25 Aug 1999 18:44:28 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: need help with constants
Message-Id: <slrn7s900h.lhu.abigail@alexandra.delanet.com>
David L Rubin (davidrubin@lucent.com) wrote on MMCLXXXV September
MCMXCIII in <URL:news:37C42430.B6518317@lucent.com>:
||
|| But how can I use constants in a hash context? For instance, I could do this
||
|| %handle_error=(
|| eval{E_TIMEOUT} => &handle_timeout,
|| eval{E_FILE} => &handle_file,
|| eval{E_NET} => &handle_net,
|| );
||
|| What is the preferred "Perl Way?"
%handle_error = (
E_TIMEOUT, &handle_timeout,
E_FILE, &handle_file,
E_NET, &handle_net,
);
%handle_error = (
+E_TIMEOUT => &handle_timeout,
+E_FILE => &handle_file,
+E_NET => &handle_net,
);
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: Wed, 25 Aug 1999 15:03:06 -0700
From: Fred Fahnert <work@netfinances.com>
To: Linux GNUBEE <dchurch@kabana.net>
Subject: Re: New to Perl Databases
Message-Id: <37C4681A.ACE14571@netfinances.com>
Linux GNUBEE wrote:
> Can someone please take the time to explain a couple of things to me about
> Perl databases?
>
> First of all, I want an effective DYNAMIC storage mechanism for a bunch of
> user data. The data will not be the same length for each user every time.
> Also, I don't know how many fields I will need, as those will be changing
> every time as well.
>
What exactly do you mean? If the lengh of the fields changes, at least
in a traditional database you could use a type called varchar that adjust
themselves to the size of the fields.
If the fields are going to be changing every time too, I suspect you might
need a somewhat complex data strucutre in an RDBMS, or even a different
solution, like storing the data in XML.
>
> Second, do I create a DB here on my Windows computer, upload it to my Linux
> account on my ISP, and manipulate it further there, or can I create a SIMPLE
> DB on my Linux account from scratch?
It depends what kind of database acces you have on your Linux account. If you
have postgres, with some graphical utils like pgaccess, I don't see that you'd
need windows at all.
I think if you want some real help you might want to state more clearly what you
want to do.
--fred
------------------------------
Date: Wed, 25 Aug 1999 18:19:51 -0400
From: "Harlan Carvey, CISSP" <carvdawg@patriot.net>
Subject: Re: newbi: Registry Help under NT
Message-Id: <37C46C07.AE93553A@patriot.net>
> Just keep repeating these three words:
> Americans.. are.. stupid.
>
$y = "Americans are stupid";
$y =~ s/Americans/govvies/;
while (1) {
print "$y\n";
}
------------------------------
Date: 25 Aug 1999 18:51:42 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Newbie ?: Function Arguments and Arrays
Message-Id: <slrn7s90e3.lhu.abigail@alexandra.delanet.com>
Thomas Kalfas (thomas@kalfas.com) wrote on MMCLXXXV September MCMXCIII in
<URL:news:37C46084.73805D43@kalfas.com>:
;;
;; Code Segment:
Did you use -w and 'use strict;' ?
;; @files=`ls $QUEUE/*`;
No chomp?
;; $i=0;
;; while ($files[$i] ne "") {
Why not 'foreach my $file (@files)' ?
;; ($nufiles[$i]=$files[$i])=~s/job/execute/; ###### same filename but
;; different subdirectory
;; .
;; .
;; .
;; if ($filestamp le $todaystr) {
;; print "NOTE: Moving $files[$i] to the execute_queue...";
On how many lines was this printed?
;;
;; @args=("mv", $files[$i], $nufiles[$i]); ##### nope -- this still
;; not working;
Logical. See comments above.
;; $rc=0xffff & system "@args";
Why quote the array? Just use:
system @args;
and then you won't have problems if the filenames contain characters
significant to the shell.
It also might help to print out what you are giving to system; I bet
it contains something else than you expect it to contain.
Abigail
--
split // => '"';
${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
-----------== 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: 25 Aug 1999 18:17:29 -0400
From: elflord@panix.com (Donovan Rebbechi)
Subject: Re: Perl a Black Sheep?
Message-Id: <slrn7s8qrn.s43.elflord@panix3.panix.com>
On Wed, 25 Aug 1999 18:52:28 GMT, siafhir2@my-deja.com wrote:
>In article <37C3CC53.41AA7C0B@Mark.Com>,
> Mark <Mark@Mark.Com> wrote:
>both IE and Netscape. There's probably an MS language that can be a
>worthy competition to Perl, and easier to use, but there's a good chance
Perl is still the best for text manipulation.
>that not all of it's functions is compatible to Netscape. Since Java is
Actually, if you are doing things server-side, it doesn't really
matter *what* browser your visitor has, as long as your server side
program spits out some html that the client can read.
Netscape and IE aren't the only browsers... if you are doing server
side processing ( especially using mod_ssi / apache ), it's pretty
easy to do a site that will work with *ANY* browser.
Java ? at the moment, it's used mostly for client side processing, because
it's better for portable GUI programming ( ie client side stuff ) than
for text processing ( ie server side stuff ). In contrast, perl excels
at text manipulation, which is why it's used for server side processing.
Cheers,
--
Donovan
------------------------------
Date: 25 Aug 1999 18:26:43 -0400
From: elflord@panix.com (Donovan Rebbechi)
Subject: Re: PERL EDITOR
Message-Id: <slrn7s8rd3.s43.elflord@panix3.panix.com>
On Fri, 20 Aug 1999 09:12:52 GMT, Marcel Grunauer wrote:
>On Thu, 19 Aug 1999 15:03:32 -0300, "Webmaster"
><webmaster@compre-ya.com> wrote:
>
>> Does anyone of you know an good and nice editor for writting perl code?
>>
>> I´m getting tired of notepad
>
>Emacs (www.emacs.org)
>vi (URL?)
Better, vim, which is available on Windows.
www.vim.org
------------------------------
Date: Wed, 25 Aug 1999 16:44:21 -0700
From: Paul Alan Spitalny <paulsxxx@cascadelinear.com>
Subject: Perl on NT vs Perl on Win98
Message-Id: <37C47FD4.25FCA468@cascadelinear.com>
This is a multi-part message in MIME format.
--------------C470C798374EFC7FD2DFD978
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi,
I have written many perl scripts that I use in my Windows 95 operating
system. One might be called "Fred.bat" I basically type in the name of
the program in ( "fred") the "DOS prompt" window. My question to you
folks out in Perl space is two fold:
1) Would I use the programs the same way if I was using Win98 or NT?
2) In which operating system would these scripts run faster; NT or Win98
OOPS lied, I have three questions:
3) Is there a better and faster way to run these programs in Win95/Win98
or NT?
These questions come up 'cause I'm considering getting a new computer
and need to decide on Win98 or NT (Linux is not an option at this point
for me)
Thank you for your help.
Paul
--
To return this email you must remove the xxx after pauls
--------------C470C798374EFC7FD2DFD978
Content-Type: text/x-vcard; charset=us-ascii;
name="paulsxxx.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Paul Alan Spitalny
Content-Disposition: attachment;
filename="paulsxxx.vcf"
begin:vcard
n:Spitalny;Paul
tel;fax:425-828-7147
tel;home:425-828-6948
tel;work:425-828-6948
x-mozilla-html:FALSE
adr:;;;;;;
version:2.1
email;internet:pauls@cascadelinear.com
fn:Paul Spitalny
end:vcard
--------------C470C798374EFC7FD2DFD978--
------------------------------
Date: Wed, 25 Aug 1999 13:59:16 -1000
From: Govind Shridhare <new_conclusions@bigfoot.com>
Subject: perl2exe problem
Message-Id: <37C48354.708CA969@bigfoot.com>
This is a multi-part message in MIME format.
--------------2C349CABF0846DFC9F0FBEAC
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
--------------2C349CABF0846DFC9F0FBEAC
Content-Type: text/plain; charset=us-ascii;
name="perl2exe.txt"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="perl2exe.txt"
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Hi there
<br>I am trying to compile this simple script and keep getting this error
message...
<br>My machine is Linux 2.2 Redhat 6.0 on Intel Server
<br>Perl 5.005
<br>sciript test.cgi
<br>------------------------------------
<br>#!/usr/bin/perl
<p>use strict;
<br>use CGI;
<br>my $query = new CGI;
<br>print "test\n";
<br>--------------------------------------
<br>Compiling
<br>perl2exe test.cgi
<br>P Perl2Exe V1.03-linux Copyright (c) 1997-1999 Mercury Systems
<p>This is an evaluation version of Perl2Exe, which may be used for 30
days.
<br>For more information see the attached pxman.htm file,
<br>or visit http://www.perl2exe.com
<p>Converting 'test.cgi' to test
<br>Compiling test.cgi
<br>Compiling /usr/lib/perl5/5.00503/strict.pm
<br>Compiling /usr/lib/perl5/5.00503/CGI.pm
<br>Compiling /usr/lib/perl5/5.00503/overload.pm
<br>Compiling /usr/lib/perl5/5.00503/i386-linux/Config.pm
<br>Compiling /usr/lib/perl5/site_perl/5.005/i386-linux/Apache.pm
<br>Compiling /usr/lib/perl5/5.00503/CGI/Cookie.pm
<br>Compiling /usr/lib/perl5/5.00503/shellwords.pl
<br>Compiling /usr/lib/perl5/5.00503/Exporter.pm
<br>Compiling /usr/lib/perl5/site_perl/5.005/i386-linux/Apache/Constants.pm
<br>Compiling /usr/lib/perl5/site_perl/5.005/i386-linux/Apache/Connection.pm
<br>Compiling /usr/lib/perl5/site_perl/5.005/i386-linux/Apache/Server.pm
<br>Compiling /usr/lib/perl5/5.00503/Carp.pm
<br>Compiling /usr/lib/perl5/site_perl/5.005/i386-linux/mod_perl.pm
<br>Compiling /usr/lib/perl5/site_perl/5.005/i386-linux/Apache/Constants/Exports.pm
<br>Compiling /usr/lib/perl5/5.00503/i386-linux/DynaLoader.pm
<br>Compiling /usr/lib/perl5/5.00503/i386-linux/auto/DynaLoader/autosplit.ix
<br>Compiling /usr/lib/perl5/5.00503/i386-linux/auto/DynaLoader/dl_expandspec.al
<br>Compiling /usr/lib/perl5/5.00503/i386-linux/auto/DynaLoader/dl_find_symbol_anywhere.al
<br>Compiling /usr/lib/perl5/5.00503/i386-linux/auto/DynaLoader/dl_findfile.al
<br>Compiling /usr/lib/perl5/5.00503/AutoLoader.pm
<br>Compiling /usr/lib/perl5/5.00503/vars.pm
<p>[govind@localhost perl2exe]$ ./test
<br>syntax error at PERL2EXE_STORAGE/CGI.pm line 376, near "my"
<br> (Might be a runaway multi-line ## string starting on line 357)
<br>Unmatched right bracket at PERL2EXE_STORAGE/CGI.pm line 381, at end
of line
<br>syntax error at PERL2EXE_STORAGE/CGI.pm line 381, near "}"
<br>BEGIN failed--compilation aborted at test.cgi line 4.
<p>This exe file was created with the evaluation version of Perl2Exe.
<br>For more information visit http://www.perl2exe.com
<br>(The full version does not display this message with a 2 second delay.)
<p>-----------------------------------------------------------------------------------
<br>Can you please help me with this?
<br>Thanks.
<br>Govind</html>
--------------2C349CABF0846DFC9F0FBEAC
Content-Type: text/x-vcard; charset=us-ascii;
name="new_conclusions.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Govind Shridhare
Content-Disposition: attachment;
filename="new_conclusions.vcf"
begin:vcard
n:Shridhare;Govind
x-mozilla-html:FALSE
org:MediaBreeze
adr:;;;;;;
version:2.1
email;internet:Govind@MediaBreeze.com
note;quoted-printable:If you are not living on the edge, you are taking up too much space!=0D=0ASri Sri Ravi Shankar
x-mozilla-cpt:;25920
fn:Govind Shridhare
end:vcard
--------------2C349CABF0846DFC9F0FBEAC--
------------------------------
Date: 25 Aug 1999 19:00:21 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: print dollar format?
Message-Id: <slrn7s90ub.lhu.abigail@alexandra.delanet.com>
b chung (bchung@ci.south-el-monte.ca.us) wrote on MMCLXXXV September
MCMXCIII in <URL:news:37C455BF.5BECAA04@ci.south-el-monte.ca.us>:
..
.. In Perl How do I print the 22343.87 like this $22,232.87
print '$22,232.08';
Abigail
--
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
-----------== 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: 25 Aug 1999 19:03:19 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: puzzle
Message-Id: <slrn7s913r.lhu.abigail@alexandra.delanet.com>
Mark Grimshaw (m.grimshaw@salford.ac.uk) wrote on MMCLXXXV September
MCMXCIII in <URL:news:37C418C4.6FB0A12D@salford.ac.uk>:
//
// I have some music on a certain well-known downloadable web music site
// from which visitors can listen to music and order CDs etc. and in which
// the music (3 tracks) participates in a hit-parade. With over 100,000
// pieces on the site, those songs that appear in the top 40 will obviously
// attract more attention and are likely to sell more CDs. In the
// time-honoured tradition of musical hype (cf popular music record
// companies buying albums to push them up the charts!), I'd like to hype
// my music and push it up the charts.
//
// I'm reasonably competent in Perl, have su access to a web server machine
// and have written a script that downloads the songs in question several
// thousands of times with as much randomness as I can think of (which
// songs, which of the several download servers they have, fictitious email
// etc.). However, this does not seem to have any effect.
I guess you actually have to order the CDs to push it up the charts.
Make sure you include your credit card number when requesting the songs.
Abigail
--
BTW, the other guy that wants to push his CDs offered more money for
a script.
-----------== 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: Wed, 25 Aug 1999 17:31:00 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Q: Perl to binary?
Message-Id: <x3yr9krwnsb.fsf@tigre.matrox.com>
andre <a_t_r@dds.nl.NOSPAM> writes:
> In the faq there is nothing that tell how hou make that binary.. only the
> difference between a binary and a perl script..
Go look harder. In perlfaq3:
How can I compile my Perl program into byte code or C?
--Ala
------------------------------
Date: Wed, 25 Aug 1999 16:02:04 -0700
From: Samay <samay1NOdzSPAM@hotmail.com>
Subject: Regex Question
Message-Id: <1415c574.1e2f82e8@usw-ex0102-014.remarq.com>
Hi, I am looking for some simple regex solution.
I have some files which contain multiple lines instead of
single lines for a single piece..
ex.
Start this
is
the ok End
Start this is
the ok2
End
I want to have
Start this is the ok End
Start this is the ok2 End
Thus I would like to remove all new lines between Start and
End
Thanks
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Thu, 26 Aug 1999 00:51:06 +0100
From: "Simmo" <simsi@hotmail.com.nospam>
Subject: Select Multiple Form Field via Perl into Oracle error
Message-Id: <ej%w3.1$2B2.769@news.enterprise.net>
Hi,
Apologies for submitting this to both groups but I'm relatively new to
Oracle and i'm not sure which is relevant to this problem - it may even be
an HTML thing although i probably need a Perl line or an SQL statement to
rectify it:-).
I have a web Form with a select multiple attribute which Perl takes and
sends to an Oracle 8.1 table 'news'. If i select 1 item its fine...if i
select more than one i get:
DBD::Oracle::db prepare failed: ORA-01756: quoted string not properly
terminated (DBD ERROR: OCIStmtPrepare) at news.pl line 855.
....although my perl script suggests there is nothing unusual about the
multiple FORM string, i have a sneaking suspicion that there's a funny
character in there that i need to remove in the Perl script before Inserting
into my table.
Anyone come across this before? - i cant seem to find anything that sugegsts
there *is* a character in there but....
An example string i'm writing incidentally is:
$categories_selected = $FORM{'categories'};
$SQL1 = "INSERT into news (type) VALUES ('$categories_selected')";
my $sql = qq{ $SQL1 };
my $sth=$dbh->prepare( $sql );
$sth->execute();
where $FORM{'categories'} is "ProductsServicesContacts" (3 options from
multiple list form - selecting just one inserts ok)
Any help much appreciated
Ian
------------------------------
Date: Wed, 25 Aug 1999 22:05:53 GMT
From: Jim Williams <james.p.williams@usahq.unitedspacealliance.com>
Subject: Re: semaphore manipulation
Message-Id: <7q1pbo$h02$1@nnrp1.deja.com>
In article <7q1ef1$8dr$1@nnrp1.deja.com>,
Otis Gospodnetic <otis@my-deja.com> wrote:
> I'm looking for a perl script or module for handling semaphores...
> So far I found IPC::Semaphore via www.cpan.org search interface, but
> that module does not let me manipulate semaphores that other
> applications have created, which is what I really need.
While I've never used IPC::Semaphore, a quick glance at it shows that
it is just a wrapper around semget(), et al. As such, you should be
able to use it to create them anew or use existing ones created by
other processes. Setting the IPC_CREAT bit in the constructor call
causes it to be created if it doesn't exist on the system. This is
appropriate for server processes. Clients typically do not set this
bit and expect the server to have already created the semaphore.
What problems did you have with IPC::Semaphore? Or, maybe I
misunderstood your question...
Also, if you're trying to share a data structure between two processes,
you might try IPC::Shareable which simplifies these synchronization
issues.
Jim Williams
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 25 Aug 1999 23:16:27 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Send to ICQ with perl
Message-Id: <fP_w3.3069$hf4.38291@nsw.nnrp.telstra.net>
In article <37c57a09.34969931@missy.shef.ac.uk>,
tony@showroom.org.uk (Tony Kennick) writes:
>
> If you are going to be rude, be right.
1) I was not rude. I pointed the person to a possible place to find
what they needed, and even told them how to get there.
2) I was right. The information was accurate and to the point.
What is your problem anyway? If you consider my post rude, then you
seriously have a big problem.
I don't think I need to see more of your posts.
Martien
--
Martien Verbruggen |
Interactive Media Division | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: Wed, 25 Aug 1999 16:03:45 -0700
From: "David T. Cannon" <good@drinking.eng.sun.com>
Subject: Spawn a Web process
Message-Id: <37C47651.4FD99C60@drinking.eng.sun.com>
Hi,
I have been troubled with this for awhile and would like some input:
I have a Perl cgi program that I would like to start a new
process(to run a report). However, using system() doesn't seem to work.
I tried forking, but then the http
daemon waits for the process to finish before returning the browser
control.
If anyone have some code accomplishing this feat, I would deeply
appreciate
spreading the knowledge.
Dave.
------------------------------
Date: 25 Aug 1999 18:09:07 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: test
Message-Id: <slrn7s8tu9.lhu.abigail@alexandra.delanet.com>
jerrad pierce (jerrad@networkengines.com) wrote on MMCLXXXV September
MCMXCIII in <URL:news:37C401EA.6B0511B1@networkengines.com>:
<> harvard net sucks
You suck.
*ploink*
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== 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: Wed, 25 Aug 1999 14:49:42 -0700
From: "Lauren Smith" <laurensmith@sprynet.com>
Subject: Re: The extent of double-quotish interpolation
Message-Id: <7q1odn$8st$1@brokaw.wa.com>
Alan Curry wrote in message ...
>I'd like to know how you did it.
okay, here's what I guessed and missed:
>my @a=(1000, 10, 20, 30, 40, 50, 60);
>my $i=2;
>my $f=sub { return 4 };
>my $r=\@a;
>
>print "$i";
Easiest of all: '2'
>print "$a[0]";
First item in list: '1000'
>print "@a";
Print entire list: '1000 10 20 30 40 50 60'
>print "$i+1";
Interpolate $i : '2+1'
>print "$a[$i+1]";
Item $i+1 in @a: '30'
>print "$a[$i+1]+1";
Same as above and stick a +1 at the end: '30+1'
>print "$f->()+1";
This one got me: '4+1' WRONG...
>print "$r->[1]";
The index 1 item in @a: '10'
>print "$a[$f->()+1]+1";
The index 5 item in @a with +1 at the end: '50+1'
>print "@a[2..$f->()]";
@a contents from 2..4: '20 30 40'
I'm somewhat surprised that "$f->()" does not make the call to the sub,
but "$a[$f->()]" does.
Lauren
------------------------------
Date: Wed, 25 Aug 1999 18:23:49 -0400
From: "Harlan Carvey, CISSP" <carvdawg@patriot.net>
Subject: Re: trouble using the Perl2exe aplication
Message-Id: <37C46CF5.CE23D35C@patriot.net>
You really should take up this issue w/ the guys who wrote Perl2Exe...
However, as the documentation for the demo of the product states, the demo
is not meant to compile Perl scripts that use a GUI...which might be the
problem.
It's hard to tell, though, b/c you never (a) posted a copy of your code, nor
(b) mentioned
which version of Perl2Exe you are using...demo, full command-line version, Pro
version
for compiling GUI stuff, etc...
------------------------------
Date: 25 Aug 1999 22:19:40 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: VERY VERY VERY weird things happening
Message-Id: <7q1q5s$859$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Slav Inger
<vinger@mail.ford.com>],
who wrote in article <37C45CFE.9991FCCC@mail.ford.com>:
> handle tab keys. I'm using a global data structure which is a hash of
> hashes, with the values of a hash being array elements, like so:
> %hash = (
> h1 => {}
> );
This creates hash of hashes.
> I reference the hash values in the following way:
> $hash{h1}->[0], $hash{h1}->[1], and so on.
a) This autovivifies $hash{h1};
b) You access things as a hash of arrays. Do not.
Ilya
------------------------------
Date: Wed, 25 Aug 1999 16:10:30 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: What are valid characters in hash keys
Message-Id: <MPG.122e17bee4dec00989ea1@nntp.hpl.hp.com>
In article <37C45794.C2AC828A@cajunbro.com> on Wed, 25 Aug 1999 20:52:36
+0000, Mark McCoy <mcking@cajunbro.com> says...
+ Larry Rosler wrote:
+ > In article <37BDC174.E4E3132F@cajunbro.com> on Fri, 20 Aug 1999
20:58:28
+ > +0000, Mark McCoy <mcking@cajunbro.com> says...
+ > > Roger Musson wrote:
+ > > > $hash{key}='some_value';
+ > > >
+ > > > What are the valid characters for 'key'
+ > > >
+ > > > I can't find any reference to this anywhere, all examples use
+ > > > alphanumeric.
+ > ...
+ > > I believe it is the same as for the variable names themselves, no
+ > > "@$%[]{}<>()..." (unless you want to spend the whole time
+ > > escaping the reserved characters)
+ >
+ > There are no reserved characters.
+ >
+ > > Stick with alphanumeric and you will be ok.
+ >
+ > Yes, you will, but you are totally wrong about this. Absolutely any
+ > string will do, including even the null string "".
+
+ You are _technically_ correct, but I doubt anyone would really want to
+ use '', '$_', '@foo', '()', etc... as hash keys! I would like to see
+_you_ write a fairly detailed (i.e. lengthy) script that uses keys such
+ as these!
Hmmm. To me '_technically_ correct' eq 'correct'. Does anyone see it
any differently?
As for the challenge, I write programs. I don't know what 'scripts'
might be.
I could throw together a Perl expression evaluator that is implemented
via a subroutine dispatch-table driven by a hash whose keys are the
operator tokens ('+', '-', '*', '/', '%') or groupers ('(', ')'). But
that would be pretty boring, because it has been published already in
various books, implemented in C using a switch on the tokens. So I
won't bother. You should be able to get the idea from that description.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
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 645
*************************************
