[17669] in Perl-Users-Digest
Perl-Users Digest, Issue: 5089 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 12 14:06:00 2000
Date: Tue, 12 Dec 2000 11:05:23 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <976647923-v9-i5089@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 12 Dec 2000 Volume: 9 Number: 5089
Today's topics:
Algorithms and PERL aldenave@hotmail.com
Re: Algorithms and PERL (Logan Shaw)
Re: Can we have left side info of subs, as 'split' does <jeffp@crusoe.net>
Re: Can we have left side info of subs, as 'split' does <mjcarman@home.com>
Data::Dumper and undefined array elements weirdness <bart.lateur@skynet.be>
Re: Data::Dumper and undefined array elements weirdness (Rafael Garcia-Suarez)
Re: Data::Dumper and undefined array elements weirdness <mike@crusaders.no>
DBI::mySQL query richard_dobson@my-deja.com
Re: DBI::mySQL query <jeff@vpservices.com>
Re: embed Java in pelrl script? <founder@pege.org>
escaping potential ?+* in regex <davemci@americasm01.nt.com>
Re: escaping potential ?+* in regex <mbudash@sonic.net>
Re: escaping potential ?+* in regex <davemci@americasm01.nt.com>
Re: Fail to install module PlRPC-0.2102 <bkennedy99@home.com>
Re: Faster than LWP <elijah@workspot.net>
File Operations on 2+ gigabyte Files photoguy@my-deja.com
Re: File Operations on 2+ gigabyte Files (Garry Williams)
Re: File Operations on 2+ gigabyte Files photoguy@my-deja.com
fork() and solaris... <billy@nospamforme.com>
Re: fork() and solaris... (Garry Williams)
GD.pm on Tru64 <jgoldst@my-deja.com>
get exit value from shell script <cpegbeggar@mail.com>
Re: get exit value from shell script <mothra@nowhereatall.com>
Re: get exit value from shell script (Logan Shaw)
Re: Help with program <hayes@sympatico.ca>
Hmm somethings not workin <ep@w3dzine.net>
Re: How to insert Perl Code inside E-mail text? (Mark-Jason Dominus)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 12 Dec 2000 18:16:20 GMT
From: aldenave@hotmail.com
Subject: Algorithms and PERL
Message-Id: <915q1b$q0h$1@nnrp1.deja.com>
I'm currently taking an algorithims class at school, and my prof.
assigned us this problem;
Has anyone developed a new algorithm that can solve
the traveling salesman problem in polynomial time,
using Perl or another command line programming language.
Does anyone have any suggestions on code or where to find more data on
the subject.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 12 Dec 2000 12:59:48 -0600
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Algorithms and PERL
Message-Id: <915sj4$mtk$1@boomer.cs.utexas.edu>
In article <915q1b$q0h$1@nnrp1.deja.com>, <aldenave@hotmail.com> wrote:
>I'm currently taking an algorithims class at school, and my prof.
>assigned us this problem;
>
>Has anyone developed a new algorithm that can solve
>the traveling salesman problem in polynomial time,
>using Perl or another command line programming language.
Look in your textbook. Try the index. See if it lists anything
under "NP".
- Logan
------------------------------
Date: Tue, 12 Dec 2000 09:10:41 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Can we have left side info of subs, as 'split' does?
Message-Id: <Pine.GSO.4.21.0012120909450.19179-100000@crusoe.crusoe.net>
On Dec 12, Damian Conway said:
>Jeff Pinyan <jeffp@crusoe.net> writes:
>
>>No, it's not. We currently have no way of knowing how many arguments a
>>function is expected to return. That might actually be a nice thing to
>>have.
>
>Jeff is correct, and I have a paper on that. :-)
>
>See: http://dev.perl.org/rfc/21.html
I was about to forward the reply I got from P5P, when I figured I'd check
here.
Damian, there is no stop to your zest for Perl. Hooray for you. :)
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
PerlMonks - An Online Perl Community http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
------------------------------
Date: Tue, 12 Dec 2000 08:27:44 -0600
From: Michael Carman <mjcarman@home.com>
Subject: Re: Can we have left side info of subs, as 'split' does?
Message-Id: <3A3635E0.2F70DCA4@home.com>
Jeff Pinyan wrote:
>
> Garry Williams said:
>
>> John Lin wrote:
>>
>>>When I consulted perldoc -f split, I saw:
>>>
>>> When assigning to a list, if LIMIT is omitted, Perl supplies a
>>> LIMIT one larger than the number of variables in the list, to
>>> avoid unnecessary work.
>>>
>>>It means 'split' has the information of the left side of sub
>>>calling. Can we also do that?
>>>The first thought that came to my mind was 'wantarray'.
>>
>>Yes it is.
>
>No, it's not. We currently have no way of knowing how many
>arguments a function is expected to return. That might actually
>be a nice thing to have. Your test just shows what wantarray is
>meant to show.
>
Well, apparently split() knows ;) which must mean that the parser
actually inserts the LIMIT during the compilation phase. Interesting,
though I suppose it shouldn't be surprising given that the EXPR and even
the PATTERN are optional arguments.
As for Damian's RFC on want() -- Oi!
-mjc
------------------------------
Date: Tue, 12 Dec 2000 16:16:01 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Data::Dumper and undefined array elements weirdness
Message-Id: <cgjc3tkqi5b577jfdchm09l7feq7l8r2c4@4ax.com>
This is strange. I'm pretty sure it can qualify as a bug, but I'm not
sure of what, nor if it even matters.
use Data::Dumper;
$a[5] = 'defined';
print Dumper \@a;
This prints:
$VAR1 = [
undef,
${\$VAR1->[0]},
${\$VAR1->[0]},
${\$VAR1->[0]},
${\$VAR1->[0]},
'defined'
];
As you can see, Data::Dumper seems to recognize the undefined values as
being the same copy of undef().
--
Bart.
------------------------------
Date: Tue, 12 Dec 2000 16:27:53 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Data::Dumper and undefined array elements weirdness
Message-Id: <slrn93cki8.5p1.rgarciasuarez@rafael.kazibao.net>
Bart Lateur wrote in comp.lang.perl.misc:
> This is strange. I'm pretty sure it can qualify as a bug, but I'm not
> sure of what, nor if it even matters.
>
> use Data::Dumper;
> $a[5] = 'defined';
> print Dumper \@a;
>
> This prints:
>
> $VAR1 = [
> undef,
> ${\$VAR1->[0]},
> ${\$VAR1->[0]},
> ${\$VAR1->[0]},
> ${\$VAR1->[0]},
> 'defined'
> ];
>
> As you can see, Data::Dumper seems to recognize the undefined values as
> being the same copy of undef().
Even stranger :
$ perl -MData::Dumper -e '$a[5]=undef;print Dumper \@a'
$VAR1 = [
undef,
${\$VAR1->[0]},
${\$VAR1->[0]},
${\$VAR1->[0]},
${\$VAR1->[0]},
undef
];
--
# Rafael Garcia-Suarez / http://rgarciasuarez.free.fr/
------------------------------
Date: Tue, 12 Dec 2000 19:19:22 +0100
From: "Trond Michelsen" <mike@crusaders.no>
Subject: Re: Data::Dumper and undefined array elements weirdness
Message-Id: <A_tZ5.2442$pj.70675@news1.oke.nextra.no>
"Bart Lateur" <bart.lateur@skynet.be> wrote in message
news:cgjc3tkqi5b577jfdchm09l7feq7l8r2c4@4ax.com...
> This is strange. I'm pretty sure it can qualify as a bug, but I'm not
> sure of what, nor if it even matters.
>
> use Data::Dumper;
> $a[5] = 'defined';
> print Dumper \@a;
[...]
> As you can see, Data::Dumper seems to recognize the undefined values
as
> being the same copy of undef().
This is new in perl 5.6, and it only seems to affect the autovivified
elements. My guess is that this is a new feature of perl 5.6,
espescially since assigning to the element that all the other
autovivified elements are a copy of, changes the references.
$ perl -MData::Dumper -le '$a[5] = "defined";print Dumper \@a;undef
$a[0];print Dumper \@a'
$VAR1 = [
undef,
${\$VAR1->[0]},
${\$VAR1->[0]},
${\$VAR1->[0]},
${\$VAR1->[0]},
'defined'
];
$VAR1 = [
undef,
undef,
${\$VAR1->[1]},
${\$VAR1->[1]},
${\$VAR1->[1]},
'defined'
];
--
Trond Michelsen
------------------------------
Date: Tue, 12 Dec 2000 17:11:25 GMT
From: richard_dobson@my-deja.com
Subject: DBI::mySQL query
Message-Id: <915m7l$m7p$1@nnrp1.deja.com>
Hi, please could someone tell me why the 'undef' is required in the
VALUES part of the following section of script? What is this there for?
$success = $dbh->do("INSERT INTO table01
(initials,description,unit,quantity,project,price,cat_number,company,
time)
VALUES(?,?,?,?,?,?,?,?,?)", undef, $initials, $descr, $unit, $quan,
$project, $price, $cat, $company, $time);
$dbh->disconnect;
Thanks in advance
Richard
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Tue, 12 Dec 2000 09:44:42 -0800
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: DBI::mySQL query
Message-Id: <3A36640A.7A78A33A@vpservices.com>
richard_dobson@my-deja.com wrote:
>
> Hi, please could someone tell me why the 'undef' is required in the
> VALUES part of the following section of script? What is this there for?
>
> $success = $dbh->do("INSERT INTO table01
> (initials,description,unit,quantity,project,price,cat_number,company,
> time)
> VALUES(?,?,?,?,?,?,?,?,?)", undef, $initials, $descr, $unit, $quan,
> $project, $price, $cat, $company, $time);
> $dbh->disconnect;
The undef is not part of the VALUES, it is a separate parameter. The DBI
pod docs state:
$rv = $dbh->do($statement, \%attr, @bind_values) || ...
Notice the \%attr is not part of the @bind_values, it is a separate
parameter and that is what the undef is for in your do() example. When
wouldn't you want that to be undef? I suppose when you were passing a
hashref of types to a bind_param something like this:
$sth->bind_param(1, $value, { TYPE => SQL_INTEGER });
--
Jeff
------------------------------
Date: Tue, 12 Dec 2000 18:37:37 +0100
From: "Mösl Roland" <founder@pege.org>
Subject: Re: embed Java in pelrl script?
Message-Id: <3a3662fa$1$16512@SSP1NO25.highway.telekom.at>
"Michelle Reddan" <mreddan@broadgate.ie> wrote in message
news:5YmZ5.5206$Er5.3085@news.indigo.ie...
> I am writing a perl script and I need java on the page but the perl script
> does not seem to recognise the java code
> Can anyone suggest a solution
First learn how to write the question.
Your question is confusing
--
Mösl Roland founder@pege.org
http://www.pege.org clear targets for a confused civilization
http://www.BeingFound.com web design starts at the search engine
------------------------------
Date: Tue, 12 Dec 2000 11:32:19 -0500
From: "McIntyre, Dave" <davemci@americasm01.nt.com>
Subject: escaping potential ?+* in regex
Message-Id: <915ju2$acq$1@bcrkh13.ca.nortel.com>
I'm comparing strings read in from fileA against strings in fileB.
The strings may or may not contain nested *+? eg. "PRBSPattern(2**x-1)".
Does anyone know of a way to escape those?
Thanks a lot,
Dave
------------------------------
Date: Tue, 12 Dec 2000 09:25:40 -0800
From: Michael Budash <mbudash@sonic.net>
Subject: Re: escaping potential ?+* in regex
Message-Id: <mbudash-477327.09254012122000@news.pacbell.net>
In article <915ju2$acq$1@bcrkh13.ca.nortel.com>, "McIntyre, Dave"
<davemci@americasm01.nt.com> wrote:
> I'm comparing strings read in from fileA against strings in fileB.
> The strings may or may not contain nested *+? eg. "PRBSPattern(2**x-1)".
>
> Does anyone know of a way to escape those?
>
> Thanks a lot,
> Dave
>
try:
/\Q$thestring\E/
hth-
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Tue, 12 Dec 2000 12:14:01 -0500
From: "Dave McIntyre" <davemci@americasm01.nt.com>
Subject: Re: escaping potential ?+* in regex
Message-Id: <915mc8$c3f$1@bcrkh13.ca.nortel.com>
Oops never mind, \Q in front of the variable in the re works.
Dave
"McIntyre, Dave" <davemci@americasm01.nt.com> wrote in message
news:915ju2$acq$1@bcrkh13.ca.nortel.com...
> I'm comparing strings read in from fileA against strings in fileB.
> The strings may or may not contain nested *+? eg. "PRBSPattern(2**x-1)".
>
> Does anyone know of a way to escape those?
>
> Thanks a lot,
> Dave
>
>
>
>
>
------------------------------
Date: Tue, 12 Dec 2000 16:18:29 GMT
From: "Ben Kennedy" <bkennedy99@home.com>
Subject: Re: Fail to install module PlRPC-0.2102
Message-Id: <pdsZ5.192759$td5.27391720@news1.rdc2.pa.home.com>
"John" <john@imining.com.tw> wrote in message
news:9122tq$t5k@netnews.hinet.net...
> Hi all:
>
> The version of my perl is 5.6.0.
> I have installed Net::Daemon and Storable.
> When install PlRPC, I do the following steps:
... error messages
> Why?
> Have I missed something?
> Thanks in advance.
I recently installed this module with 5.6.0 and had the exact same set of
error messages - I then tried it with 5.005 with no issues. It might just
need an upgrade. But I was only installing it to work with
DBI::ProxyServer, so I installed it anyway (on 5.6.0) and didn't experience
any problems. You may want to 'make install' anyway. It could just be a
problem with the test suite.
--Ben Kennedy
------------------------------
Date: 12 Dec 2000 17:57:33 GMT
From: Eli the Bearded <elijah@workspot.net>
Subject: Re: Faster than LWP
Message-Id: <eli$0012121257@qz.little-neck.ny.us>
In comp.lang.perl.misc, What A Man ! <whataman@home.com> wrote:
> Thanks for all the good info, Eli... but where do I add a
> scalar in the below script such as $URL =
> http://bob.com/music.tar.gz? And do I really need all of
> those codes just to grab a URL?
There is some commented out code in there that deals with
the old case of grabbing the whole page to memory before
exiting the function. The reason I took it out was it
just ate too much RAM when I was downloading the RDF dump
of dmoz.org (100+ megs). If you want to print the fetched
page to a browser or save it, you can just make sure via
select() that the standard filehandle is appropriate.
> And David: how do I add a Host:header?
See my code.
Elijah
------
uses his 'bget' tool for most command line web requests these days
------------------------------
Date: Tue, 12 Dec 2000 14:06:32 GMT
From: photoguy@my-deja.com
Subject: File Operations on 2+ gigabyte Files
Message-Id: <915bd5$c8u$1@nnrp1.deja.com>
I've run into a problem with a Perl script that I've written. We have
files on our system that are in the gigabyte size range. Specifically,
I have an application that tests for the existance of a file, using the
"-e" operation. When the "-e" operation is run against a file that has
a size of 2.3 gigabyte, the operation returns false when the file
actually exists. I have some C programs that I've had to re-compile
with some compiler switches to over come this same problem. Has anyone
else run into this problem and if so, how did you over come the problem?
My system is Solaris 2.6 on an Intel platform. Perl 5.005.02.
Thanks,
Doug Lewis
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 12 Dec 2000 15:50:18 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: File Operations on 2+ gigabyte Files
Message-Id: <_OrZ5.694$uF3.46381@eagle.america.net>
On Tue, 12 Dec 2000 14:06:32 GMT, photoguy@my-deja.com
<photoguy@my-deja.com> wrote:
>I've run into a problem with a Perl script that I've written. We have
>files on our system that are in the gigabyte size range. Specifically,
>I have an application that tests for the existance of a file, using the
>"-e" operation. When the "-e" operation is run against a file that has
>a size of 2.3 gigabyte, the operation returns false when the file
>actually exists. I have some C programs that I've had to re-compile
>with some compiler switches to over come this same problem.
That should be a hint, eh?
>Has anyone
>else run into this problem and if so, how did you over come the problem?
>
>My system is Solaris 2.6 on an Intel platform. Perl 5.005.02.
You should recompile perl with the `USE_LARGE_FILES' option during the
Configure step. This may not be possible with perl 5.005. I checked
the perldelta file for perl 5.6.0 and it and the changes files seem to
indicate that this support was either fixed or added as of the 5.6.0
release. (With 5.6.0, large file support is the default on Solaris
7.)
Someone else may be able to help with the specification for compiling
with this support using 5.005.
--
Garry Williams
------------------------------
Date: Tue, 12 Dec 2000 18:35:56 GMT
From: photoguy@my-deja.com
Subject: Re: File Operations on 2+ gigabyte Files
Message-Id: <915r6c$r48$1@nnrp1.deja.com>
Garry,
Thanks for your response! We are in the process of recompiling Perl 5.6
with the large file switches. We've successfully re-compiled Perl
itself but we're still trying to get some of the modules re-compiled
with the large file switches. I'm looking for a fix in the interium
until all the re-compiles are done.
Doug
In article <_OrZ5.694$uF3.46381@eagle.america.net>,
garry@zvolve.com wrote:
> On Tue, 12 Dec 2000 14:06:32 GMT, photoguy@my-deja.com
> <photoguy@my-deja.com> wrote:
> >I've run into a problem with a Perl script that I've written. We
have
> >files on our system that are in the gigabyte size range.
Specifically,
> >I have an application that tests for the existance of a file, using
the
> >"-e" operation. When the "-e" operation is run against a file that
has
> >a size of 2.3 gigabyte, the operation returns false when the file
> >actually exists. I have some C programs that I've had to re-compile
> >with some compiler switches to over come this same problem.
>
> That should be a hint, eh?
>
> >Has anyone
> >else run into this problem and if so, how did you over come the
problem?
> >
> >My system is Solaris 2.6 on an Intel platform. Perl 5.005.02.
>
> You should recompile perl with the `USE_LARGE_FILES' option during the
> Configure step. This may not be possible with perl 5.005. I checked
> the perldelta file for perl 5.6.0 and it and the changes files seem to
> indicate that this support was either fixed or added as of the 5.6.0
> release. (With 5.6.0, large file support is the default on Solaris
> 7.)
>
> Someone else may be able to help with the specification for compiling
> with this support using 5.005.
>
> --
> Garry Williams
>
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Tue, 12 Dec 2000 18:25:34 +0000
From: "Billy" <billy@nospamforme.com>
Subject: fork() and solaris...
Message-Id: <n0uZ5.7833$ma1.164070@news2-win.server.ntlworld.com>
I have a little program which fork()'s on incomming connections to a
socket. Works fine with linux, but on solaris - when the child
exits, the parent dies too.....
Is this a solaris/perl problem, or have I hacked in linux specific by
accident?
(it's all fairly standard perl calls - I'm not doing anything "weird"
as such...)
Billy.
------------------------------
Date: Tue, 12 Dec 2000 18:53:35 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: fork() and solaris...
Message-Id: <PuuZ5.716$uF3.47957@eagle.america.net>
On Tue, 12 Dec 2000 18:25:34 +0000, Billy <billy@nospamforme.com> wrote:
>I have a little program which fork()'s on incomming connections to a
>socket. Works fine with linux, but on solaris - when the child
>exits, the parent dies too.....
>Is this a solaris/perl problem, or have I hacked in linux specific by
>accident?
>(it's all fairly standard perl calls - I'm not doing anything "weird"
>as such...)
How can anyone tell without any code?
--
Garry Williams
------------------------------
Date: Tue, 12 Dec 2000 14:10:55 GMT
From: JL Goldstein <jgoldst@my-deja.com>
Subject: GD.pm on Tru64
Message-Id: <915bla$cd7$1@nnrp1.deja.com>
Has ANYONE out there used GD.pm successfully on Tru64 Unix
(specifically, Digital UNIX V4.0F (Rev. 1229) )?
As I've mentioned here before, I can compile the thing and its myriad
required libraries, but calls to new() always hang....
--
Anyone for Perl bowling?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 13 Dec 2000 02:52:31 +0800
From: Beggar <cpegbeggar@mail.com>
Subject: get exit value from shell script
Message-Id: <3A3673EF.CE2AE3EF@mail.com>
Hi all,
As title, how to get the exit value of a shell command when using:
`command` or
system("command")
I want something similar to shell script "$?", but in perl it give me
another set of error value. What's the difference.
I write the shell script and it exit a value and will be used in perl.
Please cc a reply to: cpegbeggar@mail.com
Thanks!
Hei
------------------------------
Date: Tue, 12 Dec 2000 10:57:12 -0800
From: mothra <mothra@nowhereatall.com>
Subject: Re: get exit value from shell script
Message-Id: <3A367508.D970D0A4@nowhereatall.com>
Beggar wrote:
> Hi all,
>
> As title, how to get the exit value of a shell command when using:
> `command` or
> system("command")
>
> I want something similar to shell script "$?", but in perl it give me
Try $!
>
> another set of error value. What's the difference.
> I write the shell script and it exit a value and will be used in perl.
>
> Please cc a reply to: cpegbeggar@mail.com
> Thanks!
>
> Hei
------------------------------
Date: 12 Dec 2000 13:03:56 -0600
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: get exit value from shell script
Message-Id: <915sqs$mvn$1@boomer.cs.utexas.edu>
In article <3A3673EF.CE2AE3EF@mail.com>, Beggar <cpegbeggar@mail.com> wrote:
>As title, how to get the exit value of a shell command when using:
> `command` or
> system("command")
>
>I want something similar to shell script "$?", but in perl it give me
>another set of error value. What's the difference.
Do "perldoc perlvar" and read about $?. That will explain it.
>Please cc a reply to: cpegbeggar@mail.com
Sorry, if you want help, you have to at least bother to read the
newsgroup.
- Logan
------------------------------
Date: Tue, 12 Dec 2000 16:19:35 GMT
From: "Wayne Hayes" <hayes@sympatico.ca>
Subject: Re: Help with program
Message-Id: <resZ5.74196$i%4.2415595@news20.bellglobal.com>
>But the program only looks at the first line !, what am I doing wrong... ??
The very first line of a perl program specifies the path to the PERL command
interpreter.
$! (she-bang) is followed by the path; often #!/usr/bin/perl
If you are on a unix based system, type: which perl
That should give you the path to the perl interpreter.
In Windoze, the she-bang is ignored (although often kept for portability);
you need to associate file type .pl with the perl program. Go to explorer,
and go to ->view -> folder options -> file types.
Good Luck!
Wayne
Kelvin Sim wrote in message ...
>Hi
>
>I'm trying to write a program that asks for a shop code to be entered and
>then that shop code is translated into a 4 digit shop code (see attached
>prog).
>
>But the program only looks at the first line !, what am I doing wrong... ??
>
>Cheers
>
>Kelvin
>
>
>
>
>
------------------------------
Date: Mon, 11 Dec 2000 17:53:48 -0800
From: "Harley Green" <ep@w3dzine.net>
Subject: Hmm somethings not workin
Message-Id: <3a3649b3_5@isp.uncensored-news.com>
Sorry I am just testing to try do some diagnostics. I am not seeing any new
messages from any newsgroups.
______________________________________________________________________
Posted Via Uncensored-News.Com - Still Only $9.95 - http://www.uncensored-news.com
With Servers In California, Texas And Virginia - The Worlds Uncensored News Source
------------------------------
Date: Tue, 12 Dec 2000 16:26:17 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: How to insert Perl Code inside E-mail text?
Message-Id: <3a3651a9.6b1f$1ad@news.op.net>
In article <3A2E9C54.668480FB@trentu.ca>,
Amine Laghaout <alaghaout@trentu.ca> wrote:
>BLABLABLA, here goes the message...
>
>Here is what I would like to do: write a while loop inside the BLABLA
>message to print out a list stored in a *.csv file.
The Text::Template module was designed for this. You can find it at
http://search.cpan.org/ or at http://perl.plover.com/Template/ .
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f|ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 5089
**************************************
