[23537] in Perl-Users-Digest
Perl-Users Digest, Issue: 5745 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Nov 3 21:06:45 2003
Date: Mon, 3 Nov 2003 18:05:09 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 3 Nov 2003 Volume: 10 Number: 5745
Today's topics:
Re: apache and perl <ewilhelm@somethinglike.sbcglobalDOTnet>
Help with /g match option (dolpho37@yahoo.com)
Re: Help with /g match option <pinyaj@rpi.edu>
Re: How big can an array be ? <ewilhelm@somethinglike.sbcglobalDOTnet>
Re: How big can an array be ? <jurgenex@hotmail.com>
Re: How can i execute "cal" of UNIX in xxx.pl ? <usenet@morrow.me.uk>
Re: How can i execute "cal" of UNIX in xxx.pl ? <jwillmore@remove.adelphia.net>
Re: How can i execute "cal" of UNIX in xxx.pl ? <flavell@ph.gla.ac.uk>
Re: How can i execute "cal" of UNIX in xxx.pl ? (Tad McClellan)
Re: Human verifiable image of numbers, for CGI (Randal L. Schwartz)
I7^ Get Rich Legally & Quickly !!! I7^ <Money@Easy&Legal.com>
Re: if/els statement within perl script - newb <usenet@morrow.me.uk>
Re: Rookie: Accessing specific element of excel->range <sdfg@sdg.com>
Re: Something like JSP tags <usenet@expires12.2003.tinita.de>
Re: Statistics for comp.lang.perl.misc <REMOVEsdnCAPS@comcast.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 04 Nov 2003 00:02:42 GMT
From: Eric Wilhelm <ewilhelm@somethinglike.sbcglobalDOTnet>
Subject: Re: apache and perl
Message-Id: <pan.2003.11.03.18.03.19.322534.18017@somethinglike.sbcglobalDOTnet>
On Mon, 03 Nov 2003 05:19:17 -0600, Ben Morrow wrote:
> sctommi@gmx.net (Thomas) wrote:
>> i have different perl versions installed on my computer (Linux) and
>> like to tell my webserver apache, that he can also upgrade/use from
>> perl v. 5.6 to Perl v. 5.8...i'm sorry i can't find the right location,
>> where i can change the path of the new perl version...
>
> [This isn't really a Perl question, but an Apache question]
May also be somewhat of a sysadmin question.
> If you're running your scripts with mod_cgi then you just need to change
> the #! line in your script to point to the new perl. If you're using
> mod_perl or so then you need to rebuild mod_perl against the new perl.
You may find that your /usr/bin/perl is actually a symlink to the perl
binary. On RedHat, it is not, but on slackware it is:
$ ls -l /usr/bin/perl
lrwxrwxrwx 1 root root 9 Apr 7 2003 /usr/bin/perl -> perl5.6.1
If you want to be able to use both versions, you might want to put them
both in /usr/bin/ with a version number as shown above. You can then
select the default by creating a symlink and a script which wants to use
the other one can have a special shebang line (e.g. "#!/usr/bin/perl5.8")
--Eric
------------------------------
Date: 3 Nov 2003 16:04:22 -0800
From: dolpho37@yahoo.com (dolpho37@yahoo.com)
Subject: Help with /g match option
Message-Id: <b2c71b8d.0311031604.7fa308e1@posting.google.com>
All,
On page 191 of Perl Cookbook you find this code snippet:
$n = " 49 here";
$n =~ s/\G /0/g;
print $n;
00049 here
Under discussion is \G matching the last position by virtue of /g
match option being present. What I'm having a hard time understanding
is why the pattern '\G ' doesn't match the space between the '9' and
'h' of '49 here'. Can someone help me out? Thanks in advance.
Kind regards,
Dolpho37
------------------------------
Date: Mon, 3 Nov 2003 19:15:16 -0500
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
To: "dolpho37@yahoo.com" <dolpho37@yahoo.com>
Subject: Re: Help with /g match option
Message-Id: <Pine.SGI.3.96.1031103191332.23964A-100000@vcmr-64.server.rpi.edu>
[posted & mailed]
On 3 Nov 2003, dolpho37@yahoo.com wrote:
>$n = " 49 here";
>$n =~ s/\G /0/g;
>print $n;
>00049 here
>Under discussion is \G matching the last position by virtue of /g
>match option being present. What I'm having a hard time understanding
>is why the pattern '\G ' doesn't match the space between the '9' and
>'h' of '49 here'. Can someone help me out? Thanks in advance.
It's because \G HAS to match where /g left off, or else ^ if the regex
hasn't matched yet. So /\G / matches the FIRST space, the SECOND space,
and the THIRD space. But then /\G / can't match, because the character at
the location \G matches is a '4', not a ' '.
--
Jeff Pinyan RPI Acacia Brother #734 2003 Rush Chairman
"And I vos head of Gestapo for ten | Michael Palin (as Heinrich Bimmler)
years. Ah! Five years! Nein! No! | in: The North Minehead Bye-Election
Oh. Was NOT head of Gestapo AT ALL!" | (Monty Python's Flying Circus)
------------------------------
Date: Tue, 04 Nov 2003 00:12:41 GMT
From: Eric Wilhelm <ewilhelm@somethinglike.sbcglobalDOTnet>
Subject: Re: How big can an array be ?
Message-Id: <pan.2003.11.03.18.13.18.162770.18017@somethinglike.sbcglobalDOTnet>
On Sun, 02 Nov 2003 23:43:40 -0600, Bryan Castillo wrote:
> Using linux I was able to load a hash, where the process was taking up ~
> 1GB of memory. I only had 512 MB of RAM. I had 1 GB of swap. I
> imagine that on some OS's you might not be able to occupy more that 4GB
> of RAM, since pointers would go over their limit (for 32 bit pointers at
> least).
It is my understanding that any one process under Linux is limited to the
memory which is addressable by the processor. If you have a 32bit Intel
architecture, this comes to something around 4GB. This seems to
correspond to the "Out of Memory!" messages which I have sometimes
received.
I have not tried this (and the IPC would probably be tricky), but I think
fork()ing a few more processes would allow you to expand the memory
allowed by your program (except that each process would still be limited,
so it would have to dump any pre-existing memory and then have a lot of
message-passing (of course, we have all started looking for ways to
rewrite the code by this point.))
--Eric
------------------------------
Date: Tue, 04 Nov 2003 01:35:38 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: How big can an array be ?
Message-Id: <KnDpb.32853$Q9.31353@nwrddc02.gnilink.net>
ctcgag@hotmail.com wrote:
> Master Web Surfer <raisin@delete-this-trash.mts.net> wrote:
>> [This followup was posted to comp.lang.perl.misc ]
>>
>> In article <3fa4b8de_1@news.iprimus.com.au>, "Andrew Rich \(VK4TEC\)"
>> <vk4tec@hotmail.com> says...
>>> Is there any limitation to a PERL array size ?
[...]
>> Perl by definition puts no limit on the size of an array.
>
> By the definition of what?
By definition of Perl.
> It seems that the index of an array must fit in a 32-bit integer, at
> least in some systems, and probably a 64-bit integer on the rest. So
> that is a limit.
But that is a limit that would be imposed by perl (or the OS perl is running
on), not by Perl.
Of course, there is no PERL, so we can't really tell if the OP was inquiring
about limits in Perl or in perl.
jue
------------------------------
Date: Mon, 3 Nov 2003 19:13:34 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: How can i execute "cal" of UNIX in xxx.pl ?
Message-Id: <bo69cu$o1v$2@wisteria.csv.warwick.ac.uk>
silvesterkwok@yahoo.com.tw (silvester) wrote:
> Here is my code. ↓ (of course i have another relative
^^^^^^^
What is this?
> xxx.html)
>
> #!/usr/local/bin/perl
> do "cgi-lib.pl"||die "error\n";
> &ReadParse;
AAARGH! nononononono this is Perl4.
Read
perldoc -f use
perldoc perlmod
perldoc CGI
> exec "cal $in{month} $in{year}";
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> ↑Here is my question.
> i can't exec cal with month & year at the same time.
> for example,
> i can't exec "cal 11 2003";
> but it's ok to exec "cal 2003";
What do you mean by 'i can't' and 'but it's ok'? What happens? What
error messages do you get, or what output do you get that you didn't
want?
Also, you haven't printed an HTTP header yet.
Ben
--
For the last month, a large number of PSNs in the Arpa[Inter-]net have been
reporting symptoms of congestion ... These reports have been accompanied by an
increasing number of user complaints ... As of June,... the Arpanet contained
47 nodes and 63 links. [ftp://rtfm.mit.edu/pub/arpaprob.txt] * ben@morrow.me.uk
------------------------------
Date: Mon, 03 Nov 2003 21:47:45 GMT
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: How can i execute "cal" of UNIX in xxx.pl ?
Message-Id: <20031103164745.14b358c9.jwillmore@remove.adelphia.net>
On 3 Nov 2003 09:39:46 -0800
silvesterkwok@yahoo.com.tw (silvester) wrote:
> Here is my code. ↓ (of course i have another relative
> xxx.html)
>
> #!/usr/local/bin/perl
Put a '-w' at the end of that first line to enable warnings.
> do "cgi-lib.pl"||die "error\n";
This is a Perl 4 (meaning, the _latest_ version of Perl is 5.8.1)
library. Use the CGI module instead.
> &ReadParse;
Ditto :-)
> exec "cal $in{month} $in{year}";
You _want_ the results of 'cat', don't you? Then use 'system', not
'exec'.
And .... Perl has _several_ modules to perform the same functions (and
then some) as 'cal'.
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Playing an unamplified electric guitar is like strumming on a
<picnic table. -- Dave Barry, "The Snake"
------------------------------
Date: Mon, 3 Nov 2003 23:21:02 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: How can i execute "cal" of UNIX in xxx.pl ?
Message-Id: <Pine.LNX.4.53.0311032313200.16138@ppepc56.ph.gla.ac.uk>
On Mon, 3 Nov 2003, Ben Morrow wrote:
> silvesterkwok@yahoo.com.tw (silvester) wrote:
> > Here is my code. ↓ (of course i have another relative
> ^^^^^^^
> What is this?
An un-called-for HTML-ised character reference to a downwards arrow,
I'd say.
Since the original posting's header said:
Content-Type: text/plain; charset=ISO-8859-1
it had no business using unsolicited "numerical character references".
Guess whose software I'd tend to blame? (By the time the posting's
gone through the Googroups gateway that the hon Usenaut was using in
place of a real nntp server, there may little sign of the identity of
the original "client" software that was used to access Googloups, but
I have my suspicions...)
> AAARGH! nononononono this is Perl4.
"run away!" ;-))
------------------------------
Date: Mon, 3 Nov 2003 19:58:40 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: How can i execute "cal" of UNIX in xxx.pl ?
Message-Id: <slrnbqe1ug.hbl.tadmc@magna.augustmail.com>
James Willmore <jwillmore@remove.adelphia.net> wrote:
> On 3 Nov 2003 09:39:46 -0800
> silvesterkwok@yahoo.com.tw (silvester) wrote:
>> do "cgi-lib.pl"||die "error\n";
>
> This is a Perl 4 (meaning, the _latest_ version of Perl is 5.8.1)
Also meaning:
It is 9 year old code.
It is contemporary with Windows 3.1 (are you still using that too?).
But the most pragmatic reason for switching to CGI.pm is:
Nobody will help you when you have problems.
It is hard to get worked up about stuff that old...
>> exec "cal $in{month} $in{year}";
>
> You _want_ the results of 'cat', don't you? Then use 'system', not
> 'exec'.
Huh?
That is either the wrong question or the wrong answer...
You _want_ the results of 'cat', don't you? Then use backticks, not exec.
You _want_ to have some more Perl program after launching "cal",
don't you? Then use 'system', not 'exec'.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 03 Nov 2003 19:45:55 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
To: brendan@symonty.org (brendan)
Subject: Re: Human verifiable image of numbers, for CGI
Message-Id: <fd8ba6f3d465459fbf9f2803e8404992@news.teranews.com>
>>>>> "brendan" == brendan <brendan@symonty.org> writes:
brendan> I want to make sure it's a human posting to my webpage, by doing what
brendan> PayPal (and lots of other websites) now do: displaying a bitmap of
brendan> some numbers and asking the user to enter these numbers.
brendan> Are there any Perl scripts and/or tutorials explaining how to do this?
Like many hundreds of other topics, "I have a column on this already":
"Keep Robots From Stuffing Your Forms" -
<http://www.stonehenge.com/merlyn/WebTechniques/col68.html>
Beware that I got some angry mail from people who said that this
may not be ADA compliant, and is rude to unsighted people.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 03 Nov 2003 19:23:31 GMT
From: "Make Money" <Money@Easy&Legal.com>
Subject: I7^ Get Rich Legally & Quickly !!! I7^
Message-Id: <TWxpb.115912$Go5.1979265@twister.tampabay.rr.com>
Follow the directions below and in two weeks you'll have up to
$20000.00 in your PayPal account. There is a very high rate of
participation in the program because of its low investment and high
rate of return. Just $5.00 to one person!
THAT'S ALL !!!
If you are a skeptic and don't think the program will work, I urge
you to give it a try anyway! It REALLY WORKS! Why do you
think so many people are promoting it ?
LOOK AT IT THIS WAY: If the Program is a total failure for you and you
never get even $1.00 in return, your total loss will
be the $5.00! If you are not yet a paypal member, there is no risk at
all!!! If the Program is only moderately successful for
you, your PayPal account will have several hundred dollars deposited
into it within the next few days! If you actively
participate in the Program, you could have up to $20,000.00 in your
PayPal account within two weeks!
Now let me tell you the simple details.
Getting Started!!
If you're not already a user of PayPal, the very first thing you need
to do is go to PayPal and sign up. It takes two minutes
and Pay Pal will deposit $5.00 in your account just for becoming a
member. That makes this program's total cost $0!!! Follow
this link to open your PayPal account:
https://www.paypal.com
Now log into your PayPal account, and send the PayPal account of the
person listed in Position 1 $5.00 PayPal will ask you to
select type. (Select "service" and put "$5.00 donation" for
subject.) When person in Position 1 receives notification of your
payment, you can simply copy this page and change the names in
position #1 & #2 & #3 as instructed. Remember, only the person
in Position 1 on the list gets your $5.00 donation. Send them a
donation then remove #1 PayPal account from the list. Move the
other two accounts up & add your Paypal account to #3 position. After
you have retyped the names in the new order,
IMMEDIATELY send the revised message to as many people as possible.
PROMOTE! PROMOTE! The more you promote the Program, the
more you will receive in donations!! That's all there is to it.
You are reading this message in usenet, and usenet is the best way
to spread the word about the program. Post this message to AT LEAST
200 groups in usenet(there are over 20, 000), after you send the 5
dollars to the person at #1. This will guarentee you a profit from
this program. The more groups you post it to, the more money you will
make!!!
When your name reaches Position 1 (usually in less than a week) it
will be your turn to receive the cash. $5.00 will be sent
to your PayPal account by people just like you who are willing to send
$5.00 dontation and receive up to $20,000 in less than
two weeks. Because there are only (3) names on the list you can
anticipate 80% of your cash within two weeks.
Anytime you find yourself short on cash just take out your $5.00
donation program and send it to 50 prospects. Imagine if you
sent it to 100 or even more. Most people spend more than $5 on the
lottery every week with no real hope of ever winning.
IMPORTANT!!! IN ORDER FOR THIS PROGRAM TO WORK, YOU MUST BE HONEST. DO
NOT ADD YOUR EMAIL IMMEDIATELY TO THE #1 POSITION, AND MAKE SURE TO
SEND YOUR 5 DOLLARS TO THE PERSON AT #1. IF EVERYONE WHO TRIED THIS
DIDN"T SEND THE MONEY, THEN NOBODY WOULD MAKE A DIME. 5 DOLLARS IS A
VERY SMALL INVESTMENT, ESPECIALLY WHEN YOUR ABOUT TO MAKE MANY MANY
MANY
TIMES THAT AMOUNT. IF WE ARE ALL HONEST, THEN WE ALL MAKE LOTS OF
MONEY!!
REMEMBER, you add your email to the #3 spot, and then move everyone
else
up 1(deleting the person who was formally in the #1 spot, and who you
should have sent your money to). DO NOT add your email to #1 when you
start this program. If everyone did this, then NO ONE would make a
cent.
THIS PROGRAM WORKS - JUST TRY IT
POSITION # 1 PAYPAL Account: dougmart@hotmail.com
POSITION # 2 PAYPAL ACCOUNT: lamsmo@aol.com
POSITION # 3 PAYPAL ACCOUNT: pepsiholic44@aol.com
Integrity and honesty make this plan work.
Participants who actively promote this program will average between
$8000
and
$12000 and receive the donations within two weeks.
This is not a chain letter. You are simply making a donation of $5.00
to another person. The Program does not violate title
18 section 1302 of the Postal and lottery code.
Remember -TIME is of the essence. YOU can choose to live
Paycheck-to-Paycheck or live FREE from FINANCIAL BONDAGE. Become a
part of the donation program and help people help people.
This program is about helping each other!
Success is a journey - Not a destination!
Start Your Journey TODAY!!!!
bo,
------------------------------
Date: Mon, 3 Nov 2003 19:08:08 +0000 (UTC)
From: Ben Morrow <usenet@morrow.me.uk>
Subject: Re: if/els statement within perl script - newb
Message-Id: <bo692o$o1v$1@wisteria.csv.warwick.ac.uk>
[All this code is untested. If there are any foolish errors I
apologise :)]
"Stuart H" <post@to_group.com> wrote:
> #!/usr/bin/perl -w
Good, however you missed
use strict;
> use Date::Calc qw(Delta_DHMS);
> use Date::Calc qw(Delta_Days);
You shouldn't use a module more than once.
use Date::Calc qw/Delta_DHMS Delta_Days/;
> use POSIX qw(strftime);
> require Symbol;
Why require rather than use?
You don't actually need this at all: see below.
> $SENDMAIL_EXEC = '/usr/sbin/sendmail'; # Path to sendmail(8)
> $BLUEMOON_RECV_EMAIL = 'user@domain.com';
As you're now using strict, you'll need to make these 'my' variables.
A better alternative would be to use Mail::Sendmail.
Perl programmers tend to reserve ALL_CAPS for filehandles and magic
variables like $AUTOLOAD.
> my $bluemoon_sender = "bluemoon_monitor\@domain.com";
> my @today = (strftime("%Y", localtime(time)),strftime("%m",
> localtime(time)), strftime("%d", localtime(time)),strftime("%H",
> localtime(time)),strftime("%M", localtime(time)),strftime("%S",
> localtime(time)));
Eeeugh. Try
my @now = localtime time;
my @today = map { strftime $_, @now } qw/%Y %m %d %H %M %S/;
, or see below for a different way of doing it altogether.
> my @timestamp;
>
> my $day;
> my $year;
> my $month;
> my $hour;
> my $minutes;
> my $seconds;
> my $Dd;
> my $Dh;
> my $Dm;
> my $Ds;
>
> my $SQLOutput;
> my $zero;
>
> my $bluemoon_body;
Perl Is Not C: it's usually clearer to declare your variables right
down where you first use them.
> $SQLOutput =
> `/usr/local/bin/sqsh -Uuser -Ppassword -S sql1 -h -i bluemoon.sql`;
I have a superstitious dislike of `` and would always use qx//
instead, but that's purely personal preference.
> if ($SQLOutput = null then exit; else < ------- not sure how to do this in
> perl...
exit unless $SQLOutput;
> /(.)(.)(........)(....)(..)(..)(..)(.)(..)(.)(..)(....)/) { $zero =
> $2; $year = $4; $month = $5; $day = $6; $hour = $7; $minutes = $9;
> $seconds = $11; } @timestamp = ($year, $month, $day, $hour,
> $minutes, $seconds);
> ($Dd,$Dh,$Dm,$Ds) = Delta_DHMS(@timestamp,@today);
Perl Is Not Awk: there's no need for the (/.../) {...}
construct. Also, m// will match against $_ unless you tell it
otherwise.
I would have done something more like
use Date::Parse qw/str2time/; # at the top with the others
my $now_re = strftime "^ 0 \s+ %Y %m %d %H %M", @now;
unless ($SQLOutput =~ /$now_re/x) {
$SQLOutput =~ # convert to an ISO8601 date
s/^ (\d+)\s+ (\d{4})(\d{2})(\d{2})(\d{2})(\d{2}) .*/$2-$3-$4T$5:$6/x
or die "can't parse date '$SQLOutput'";
my $SQLstatus = $1;
my $SQLtime = str2time $SQLOutput;
(my $diff = time - $SQLtime) > 0
or die "SQL returned future date: $SQLOutput";
my ($Dd, $Dh, $Dm) =
map { strftime $_, gmtime $diff } qw/%j %H %M/;
$Dd =~ s/^0*//;
my $today = strftime "%FT%R", localtime time;
# or "%Y-%m-%dT%H:%M" if your strftime doesn't do %F & %R
my $bluemoon_body = <<MAIL;
Blue Moon Timestamp Check has failed!
The UPLOADED Field = $SQLstatus.
There has not been an update in $Dd days, $Dh hours and $Dm minutes.
Please restart the interface or investigate.
Bluemoon TimeStamp: $SQLoutput
Current Timestamp : $today
MAIL
This doesn't produce the timestamps in exactly the same format as
before, but the modification is trivial. I am assuming you wish to
ignore seconds, and that the last update will always be less then a
year in the past.
> if (($Dd > 0 || $Dh > 0 || $Dm > 10) && $zero == 0 ) {
> $bluemoon_body = join('',"Blue Moon Timestamp Check has
> failed!\n\nThe UPLOADED Field = ",$zero,"\nThere has not been an update
> in ", $Dd," days, ", $Dh," hours and ", $Dm," minutes.\n\nPlease restart
> the interface or investigate\n\nBluemoon TimeStamp:
> ",@timestamp,"\nCurrent Timestamp: ",@today);
>
> my $SEND_MAIL = Symbol->gensym;
You don't need to do this any more. Just use
open my $SEND_MAIL, "|-", $SENDMAIL_EXEC, "-i", "-t", "-f$bluemoon_sender"
or die "Can't fork sendmail: $!";
Or, better, use Mail::Sendmail.
> open($SEND_MAIL, "|-") ||
> exec($SENDMAIL_EXEC, '-i', '-t', "-f$bluemoon_sender");
> print $SEND_MAIL <<"EOF";
> Date: @today
This is hardly the RFC822 format for datestamps! Leave it out and let
Sendmail add one.
Ben
--
. | .
\ / The clueometer is reading zero.
. .
__ <-----@ __ ben@morrow.me.uk
------------------------------
Date: Tue, 04 Nov 2003 00:17:04 GMT
From: "sdfgsd" <sdfg@sdg.com>
Subject: Re: Rookie: Accessing specific element of excel->range array
Message-Id: <4eCpb.118239$Go5.2022875@twister.tampabay.rr.com>
"Jeff 'japhy' Pinyan" <pinyaj@rpi.edu> wrote in message
news:Pine.SGI.3.96.1031103135509.19952A-100000@vcmr-64.server.rpi.edu...
> On Mon, 3 Nov 2003, sdfgsd wrote:
>
> >my $cells = $worksheet->Range("A1:D22")->{'Value'};
> >
> >print "The content of this cell is: ", $@cells[0][2];
>
> You want to do
>
> $cells->[0][2]
It works. Thanks!
------------------------------
Date: 3 Nov 2003 19:30:44 GMT
From: Tina Mueller <usenet@expires12.2003.tinita.de>
Subject: Re: Something like JSP tags
Message-Id: <bo6ad4$18pm52$1@ID-24002.news.uni-berlin.de>
Laszlo wrote:
> Did somebody develop a mechanism for Perl (and Apache web server)
> like JSP tag ?
you might wanna have a look at http://perl.apache.org/embperl/
hth, tina
--
http://www.tinita.de/ http://www.perlquotes.de/ http://www.darkdance.net/
Enter the Doors of P e r c e p t i o n
-my address is currently unreachable due to the Swen.A virus-
------------------------------
Date: Mon, 03 Nov 2003 19:20:34 -0600
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <Xns9428CEFF47CF7sdn.comcast@216.196.97.136>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Greg Bacon <gbacon@hiwaay.net> wrote in
news:vqcjmmqutvbu5b@corp.supernews.com:
> Following is a summary of articles spanning a 7 day period,
> beginning at 27 Oct 2003 12:56:06 GMT and ending at
> 03 Nov 2003 12:44:39 GMT.
...
> Top 20 Posters by Number of Followups
> =====================================
>
> (kb) (kb) (kb) (kb)
> Followups Volume ( hdr/ body/ orig) Address
> --------- -------------------------- -------
>
> 68 145.8 ( 62.3/ 67.1/ 33.0) Ben Morrow
Good heavens, Ben, you've been busy!
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP6b+9GPeouIeTNHoEQKoFQCfY5cd8KKfuxL6SzUJ/60oZzCxNC8AoLag
TkWJ4m/6RxcdkDx+1HkejwO0
=W074
-----END PGP SIGNATURE-----
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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 V10 Issue 5745
***************************************
