[12823] in Perl-Users-Digest
Perl-Users Digest, Issue: 233 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 23 04:07:35 1999
Date: Fri, 23 Jul 1999 01:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 23 Jul 1999 Volume: 9 Number: 233
Today's topics:
Re: [Q] In-Browser technology (Zeqing Xia)
Re: Array problem (Andreas Fehr)
Re: C & Perl... (Zeqing Xia)
Re: checking if address is active <swiftkid@bigfoot.com>
Re: How to give Passwords on STDIN (Martien Verbruggen)
Integration help... <portboy@home.com>
mod_perl vs. FastCGI - which is better? <zigouras@mail.med.upenn.edu>
operation timeout (HELP!) inlandpac@my-deja.com
Perl and NT group information <wim@wvc.xs4all.nl>
Re: Perl Examples on Parsing HTML (Martien Verbruggen)
programming problem yu152178@my-deja.com
regular expresion needed for checking e-mail adresses <ap@andre-probst.de>
Re: regular expresion needed for checking e-mail adress (Michael Fuhr)
Re: Running Perl via IIS <aryumin@copris.com>
Re: SSI in Perl CGI output (Abigail)
Re: TextArea fields <cmd@maths.uq.edu.au>
Re: TPJ/Earthweb junk mail? <elaine@chaos.wustl.edu>
Re: Web page generator (Abigail)
Re: Web page generator (Zeqing Xia)
Re: What does this statement mean? (Abigail)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Jul 1999 21:16:58 -0500
From: zqx@siesta.cs.wustl.edu (Zeqing Xia)
Subject: Re: [Q] In-Browser technology
Message-Id: <7n5uuq$3nk@siesta.cs.wustl.edu>
1. ASP is Active Server Page. That means it is for SERVER SIDE programming.
Nothing to do with client-side GUI. ASP is mostly VB. But the end result
of these VB scripts is still plain old HTML/Javascript or Java. Don't
mix languages for tools with the languages the tools produce.
2. It is a very bad idea mostly to have a F A T C L I E N T. The project
will be doomed to fail if you dare to do that.
3. Dynamic HTML only works as far as I know with IE. But it is of little
worth since it does not do much.
4. There are tons of tools in Perl to assist server-side scripting that
are much more flexible and powerful than ASP, e.g., mod_perl,
Text::Template, etc. People usually get fooled by Microsoft to think
server-side scripting ought to be complex, so you ought to use ASP.
In fact it is not.
ZQX
------------------------------
Date: Fri, 23 Jul 1999 05:30:39 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: Array problem
Message-Id: <3797fd5c.429447@news.uniplus.ch>
On Thu, 22 Jul 1999 19:00:45 +0500, "Faisal Nasim"
<swiftkid@bigfoot.com> wrote:
>There are many flowers on the read, you walk through and collect flowers....
>its a long read and there are many flowers, you don't know how many they
>are but you collected them all, and you can count them too, once you have
>all of them.
>
>Perl walks through the string and splits out all ... blah ... and puts it in
>an array (just like basket when collecting flowers) and you can easily
>count them through perl unlike counting flowers, which is time consuming :)
>
>
>Hey, I don't speak english normally and also I am not good at philosophy
>are what you might call that... so don't rag if I have a very bad example :P
>
Hey, that's poetry!!!
Andreas
------------------------------
Date: 21 Jul 1999 20:56:22 -0500
From: zqx@siesta.cs.wustl.edu (Zeqing Xia)
Subject: Re: C & Perl...
Message-Id: <7n5to6$2qu@siesta.cs.wustl.edu>
Use Perl XS language you can do that easily in most cases. However
the docs (perlxs, perlxstut) are in my view a bit difficult to
comprehend. But once you get over it's mostly piece of cake.
ZQX
In article <3793F33F.CC9E4BF3@home.com>, Joan Richards <richj@home.com> wrote:
>> references to how to use the h2p stuff online?
>>
>> mitch
>
>hehe, i sent this from my sisters account...ooops. my name is mitch
>though.
>
------------------------------
Date: Fri, 23 Jul 1999 09:22:15 +0500
From: "Faisal Nasim" <swiftkid@bigfoot.com>
Subject: Re: checking if address is active
Message-Id: <7n9tvp$g742@news.cyber.net.pk>
: Thanks, any idea where the lastest versions are kept? I can't find
: it on perl.com or searching on yahoo. Thanks.
use LWP::Simple;
print "Alive" if head 'http://blah.com';
------------------------------
Date: Fri, 23 Jul 1999 06:37:03 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How to give Passwords on STDIN
Message-Id: <j4Ul3.259$d37.12416@nsw.nnrp.telstra.net>
In article <MPG.12028f02db8e58ae989b72@news-server>,
e-lephant@b-igpond.com (elephant) writes:
> Martien Verbruggen writes ..
>># perldoc -q password
>>=head1 Found in /usr/local/lib/perl5/5.00502/pod/perlfaq8.pod
>>
>>=head2 How do I ask the user for a password?
>
> if you weren't so busy trying to be smart you might have noticed that in
I'm not trying to be smart. I don't need to.
> the original question Osman asked for a method of doing this that didn't
> require the use of ReadKey.pm
I did read that.
And if you read the answer to this question in the FAQ you would see
that it suggests other ways than using ReadKey. In fact, it starts
with giving the generic answer, and remakrs after that that the
ReadKey module is a specific way of doing all this.
> moreover .. this question is asked-and-answered .. if you're not seeing
> the answers then I suggest you check your newsfeed
Not in a way that would help the poster to find the answer to basic
questions like this himself, next time around.
>>Whoops. it does turn out to be a FAQ. Am I ever glad that I didn't
>>post this question, but instead decided to consult the documentation
>>and the FAQ.
>
> there's something to be said for EVERYONE reading and processing the
> information that's available to them .. be it FAQ or just a Q on usenet
I read all the articles in the thread that showed up just before I
replied. I read most of the documentation, if not all of it. What's
your point? I already told him that he should have read the FAQ, in my
own non-direct way.
> .. because to be perfectly honest .. Osman's original question
> (mentioning wanting to read a password without using ReadKey) implies
> fairly clearly to me that Osman was interested in a non-echoing read from
> STDIN .. IMHO those with their $x = <STDIN> answers don't add much to the
> newsgroup
So... Why exactly are you talking about this in a followup to my
article? I didn't tell him to use <STDIN>. I just told him that if he
didn't want answers like that, he should be as precise as possible in
his questions. I didn't say that I didn't understand what he meant. I
just remarked that it was not unambiguous. Whether the
misunderstandings of his question were deliberate or not is not
important to the point. This time, maybe, we could have guessed what
he meant. Next time, if he's still as vague as he is now, we won't be
able to, or will misunderstand. Education is also helpful.
I fail to see how any of the stuff you say in the above quoted
paragraph has any bearing on any of this anyway. And I will not get
into a discussion like this again. I've been there and done that. If
you don't like my posts, you possibly know how to add me to your kill
rules. If not, your newsreader probably has a manual that tells you
how to do it.
Martien
--
Martien Verbruggen |
Interactive Media Division |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: Fri, 23 Jul 1999 06:24:50 GMT
From: Mitch <portboy@home.com>
Subject: Integration help...
Message-Id: <37979AB8.BEDEA83C@home.com>
I'm working (gotten much help) on a "paging" effect that I'd like
integrated into a larger script. Below you will find bits and pieces of
this larger script where I would like my "paging" effect integrated
into. At the bottom you will find the script that I'm currently using
to get this paging effect. If you wanted to just the paging script, cut
and paste it somewhere then run it with something like 'cat somefile |
perl5 page.pl' and all should be well. If you read on, you'll see the
copy of an e-mail to someone who was helping me figure out the "paging"
stuff. Anyway, any help on integrating this paging effect into my
larger script would be greatly appreciated.
THANKS
----------------------------------
Thank for the help!!!
You script to do the paging works well. However, it seem to change the
prompt color and stuff. Is there a way to get the terminal settings and
reset them after this stuff is done?
So now that I have a basic working model of the larger script, I'm
trying to figure out how to leverge the code written for the pager, but
I'm getting a bit lost. Below you will find some code that will give
you a basic understanding of how "this larger script" is
setup.
Okay, so I have a "loop" that essentially waits for commands
from the prompt. Here is a brief synopsis of what the loop
looks like:
sub loop {
while(1)
{
$_ = $term->readline($prompt);
($cmd, @args) = split(/\s+/, $);
$term->addhistory($_) if /\S/;
if (!$commands{$cmd})
{
&bad_input;
}
else {
&{$commands{$cmd}{sub}}(@args);
}
}
}
Here is some idea of what the "$commands" stuff might look like.
This command "help" is used to show a list of commands:
$commands{help}{sub} = \&help;
$commands{help}{desc} "show a list of available commands";
Now the definition of "help" is this:
sub help
{
my $tabspace = 8;
my $tabs;
foreach $command(sort keys %commands)
{
my $len = length($command) / $tabspace;
if ($len < 1)
{
$tabs = 3;
}
elsif ($len < 2)
{
$tabs = 2;
}
else
{
$tabs = 1;
}
&show("$command"."\t" x
$tabs."$commands{$command}{desc}\n");
}
}
my &show is nothing more than a 'print shift';
Okay, so now I need somehow to integrate this "paging" effect
into this larger script. So that from the command line I can
do something like "help | more" or "more help" or simply make
"paging" a default feature on anything that scrolls past 20
lines. Does anyone have any ideas of how to do this? Here is
the "paging" code I have now:
#!/usr/bin/perl5
use Term::Cap;
$terminal = Tgetent Term::Cap {TERM=>undef, OSPEED=>9600};
$reverse = $terminal->Tputs('mr', 1);
$endmode = $terminal->Tputs('me', 1);
$count = 0;
$row = 15;
open(DEVTTY, "/dev/tty");
while(<>) {
print;
if (++$count == $row) {
print $reverse, "Press enter for --MORE--\n", $endmode;
$count = 0;
sysread(DEVTTY, $key, 1);
}
}
close(DEVTTY);
Now, I already have /dev/tty (or even /dev/tty00 or /dev/tty01)
already open, so I assume I probably shouldn't need to open /dev/tty
anymore. Here's the code I use to open /dev/tty at the start of the
script:
open(STDOUT,">$tty");
open(STDERR,">/dev/null");
open(STDIN,"<$tty");
where $tty is passed in by the user as (/dev/tty || /dev/tty0?).
So, the $64k question is - How can I use this paging code in this
larger script?
------------------------------
Date: Fri, 23 Jul 1999 01:07:44 -0400
From: Nico Zigouras <zigouras@mail.med.upenn.edu>
Subject: mod_perl vs. FastCGI - which is better?
Message-Id: <3797F89F.F3AE6FBA@mail.med.upenn.edu>
I have a chunky script that can run on either FastCGI or mod_perl. Any
suggestions as to which is better? Thanks.
------------------------------
Date: Fri, 23 Jul 1999 06:44:35 GMT
From: inlandpac@my-deja.com
Subject: operation timeout (HELP!)
Message-Id: <7n930i$fci$1@nnrp1.deja.com>
I have a script that searches for specific information off of the
internet and saves that information to files.
My problem is that I need to search for 200 results but the operation
times out and I get a popup error message.
I would like to know how I can force the operation to not time out.
There is no flexibility by means of changing the quantity of results
and there is no other way to retrieve the results.
Is there a module or does someone know of how to stop this?
Thank you,
ipac
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 23 Jul 1999 07:23:18 GMT
From: Wim Verveen <wim@wvc.xs4all.nl>
Subject: Perl and NT group information
Message-Id: <7n9593$gt3$1@nnrp1.deja.com>
Hi,
I'm looking for a perlscript (or part of) wich gets the groups a
particular user is a member of.
I can get all the groups wich are available and can check by group for
membership but that seems a bit uh inefficient. There must be an easier
way.
Wim
--
http://www.wverveen.nl
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 23 Jul 1999 06:39:17 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl Examples on Parsing HTML
Message-Id: <p6Ul3.260$d37.12416@nsw.nnrp.telstra.net>
In article <slrn7pfoll.1a1.abigail@alexandra.delanet.com>,
abigail@delanet.com (Abigail) writes:
> Martien Verbruggen (mgjv@comdyn.com.au) wrote on MMCLI September MCMXCIII
> in <URL:news:1Gvl3.191$0S6.7605@nsw.nnrp.telstra.net>:
> []
> [] use HTML::Parser
> []
> [] You can obtain it from CPAN. It probably has some examples in the
> [] distribution or so. It does a good job.
>
> For certain values of "good".
Maybe instead of good I should have said 'a better job than other
modules and pieces of code I have seen around' :)
--
Martien Verbruggen |
Interactive Media Division | Hi, Dave here, what's the root
Commercial Dynamics Pty. Ltd. | password?
NSW, Australia |
------------------------------
Date: Fri, 23 Jul 1999 05:27:17 GMT
From: yu152178@my-deja.com
Subject: programming problem
Message-Id: <7n8ufh$ea3$1@nnrp1.deja.com>
I'm writing a perl script in win95 and need to access shell command.
I try the following code copied from man page, but it doesn't work
use Shell;
$foo = echo("howdy", "<funny>", "world");
print "$foo";
the error message I got is 'Bad command or file name', can any one help
me?
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 23 Jul 1999 09:21:01 +0100
From: Andre Probst <ap@andre-probst.de>
Subject: regular expresion needed for checking e-mail adresses
Message-Id: <379825ED.F4D8FFAD@andre-probst.de>
Hi !
I need a regular expression which checks e-mail adresses for their
correctness.
They should contain "@" and" ." and no disallowed characters besides "_
- etc."
How knows the expression ?
Thank you, Andre
--------------------------------------
täglich kostenlose Börsenkurse per e-mail gibts bei
Homepage: http://www.andre-probst.de
------------------------------
Date: 23 Jul 1999 01:37:16 -0600
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: regular expresion needed for checking e-mail adresses
Message-Id: <7n963c$1j5@flatland.dimensional.com>
Andre Probst <ap@andre-probst.de> writes:
> I need a regular expression which checks e-mail adresses for their
> correctness.
See the perlfaq9 manual page.
http://www.perl.com/cgi-bin/pace/pub/doc/manual/html/pod/perlfaq9.html
--
Michael Fuhr
http://www.fuhr.org/~mfuhr/
------------------------------
Date: Fri, 23 Jul 1999 11:25:59 +0400
From: "Alexey Ryumin" <aryumin@copris.com>
Subject: Re: Running Perl via IIS
Message-Id: <7n94u7$6n6$1@news.glas.net>
Hello!
Thirst, check your Perl installation.
for IIS/PWS 3.0:
1. Run regedit
2. Go to HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\
Services\W3SVC\Parameters\Script Map
3. Check for: ".pl" with value "Path_to_perl\bin\perl.exe %s %s"
(%s %s must be in lowercase!)
- for CGI Perl
".plx" with value "Path_to_perl\bin\perlis.dll"
- for ISAPI Perl
for IIS/PWS 4.0:
1. Open Management Console and go to
WWW Service Master Properties (Right mouse click at position below "Internet
Information Server") -> Master Properties -> Edit... ->Home directory ->
Configuration... -> App Mappings
2. Check for:
".pl" "Path_to_perl\bin\perl.exe %s %s"
and
".plx" "Path_to_perl\bin\perlis.dll".
3. If not exists -> Add...
Rename your scripts to "*.pl" or "*.plx" (ISAPI Perl much faster) and place
it into cgi-bin directory with "Execute" (IIS/PWS3.0) or "Script"
(IIS/PWS4.0)
permissions.
Perl from ActiveState.
>Hi. I have installed Perl5 on an NT server for a customer of ours, but so
>far am unable to get the scripts to run via IIS. I can run the scripts from
>a command line, for example:
>
>perl .\test.pl
>
>but if I try accessing the script via a web page, it just times out (well,
>Netscape displays the message 'CGI Timeout', IE5 gives it's usual
>informative error messasge 'An error has occured' - well, actually, it's
the
>'DNS server error' one, but it might as well be the former). The above
>script simply displays the word 'Test' in html, and does so fine from cmd.
>I'm not sure how I need to set up the server to run the script correctly.
So
>far, I have added perl.exe to the NT ENV variables, and created an entry
for
>the virtual web server to say that '.pl' scripts are run by
>'c:\perl\bin\perl'. Unfortunatel,y there's no documentation with perl or
IIS
>on how to integrate the two, so I'm not even sure if I'm doing the right
>thing. Also, there's no explanation of if I need to put #!{path} as the
>first line. Is this just a unix shell thing?
>
>If someone can point me in the right direction on the IIS setting I need,
>that would be great. If you want to see the behaviour of the above script,
>you can visit http://www.chopstix.net/test.pl.
>
>Many thanks in advance,
>
>Andrew Clark (Metronet Technical Support)
Good luck!
Alexey Ryumin
http://www.copris.com
------------------------------
Date: 23 Jul 1999 00:19:17 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: SSI in Perl CGI output
Message-Id: <slrn7pfupf.1a1.abigail@alexandra.delanet.com>
Paul Fulbright (alcaron@espresso.wustl.edu) wrote on MMCLI September
MCMXCIII in <URL:news:932616598.057.54@news.remarQ.com>:
[] Hi, I am curious as to wether or not you can use server side includes in the
[] output of a CGI-script in Perl,
As the name suggests "server side includes" are done by, *drumroll*
the server. The server could not care less whether the program was
written in Perl, Ada, Eiffel, pic, or something else.
Whether server side includes can be used is therefore not a Perl question.
[] the particular script I am using is the
[] robboard (www.robplanet.com)
Irrelevant.
[] and it uses three template pages, these are
[] where I want the SSI to work, unfortunately when I ad <!--#include
[] file="file.txt"--> it does nothing, often times it will give me an internal
[] server error, other times it just doesnt show that at all, like if I use SSI
[] and it has a problem normally it gives that [There was an error proccessing
[] this directive] error, but from the script it doesnt show up at ALL, the
[] mime type in the CGI script seems to be set to text/html.
*gasp* *urgle* *deep breath* You had to froth all of that in one sentence,
didn't you?
[] does anyone know how I get the SSI to work in the output of the CGI script?
[] I would GREATLY appreciate any and all help!
Well, consider the fact that using SSI in CGI programs is pretty silly.
Why would you? You're generating stuff anyway, you might as well generate
it all. But whether you can or not is a question that can be answered by
your sysadmin. Buy a case of beer and pay him or her a visit. Be sure
(s)he has time - a very patient luser has a better chance of getting
an answer.
[] email me @ alcaron@email.com
No.
Please don't come back till you have a Perl question.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 23 Jul 1999 17:17:13 +1000
From: chris <cmd@maths.uq.edu.au>
To: lefkogt.xp@usafa.af.mil
Subject: Re: TextArea fields
Message-Id: <379816F9.D31BE7BE@maths.uq.edu.au>
If you are wanting to remove the newline character from the textarea
input try
$nolines = join(' ', split(/\n/, $input_from_form));
Chris.
lefkogt.xp@usafa.af.mil wrote:
>
> How can we use textarea fields in forms so that people can put hard
> carriage returns to separate paragraphs in a textarea field? Everytime
> we do it now it adds extra record(s) per physical carriage return. We
> are on Unix-flavor server. Try it at www.home-bytes.com/stratplan/ .
> Click on Mission Analysis link, notice record count, click Add, enter
> info , enter hard carriage returns (enter key) in first textarea ONLY
> for now. If you enter say three of them you will see four records were
> generated when you return to the main database screen (look at new
> count). The program is an iteration of a database (ASCII) program
> built by Brent Michalski from www.webreview.com. If you need to see
> code let me know and I will email it to you.
> Gary
> gary.lefko@usafa.af.mil
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: Tue, 20 Jul 1999 19:53:06 -0500
From: elaine ashton <elaine@chaos.wustl.edu>
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <Pine.GSO.4.05.9907201950030.6608-100000@chaos.wustl.edu>
> The cover art (an eight ball predicting "Outlook not so good") has to
> do with the two articles in the issue about sending mail from Perl.
> Microsoft's Imperial Mail Wizard is Outlook. Hence the photo caption
> inside the magazine, "The spirits care not for Microsoft's mailer."
You know Jon, none of the people I know out here in the land of corn and
cows gets the joke. I feel silly cracking up and pointing 'get it?'...ah,
well.
c'est la vie ;)
e.
------------------------------
Date: 23 Jul 1999 00:31:17 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Web page generator
Message-Id: <slrn7pfvfv.1a1.abigail@alexandra.delanet.com>
rook268@my-deja.com (rook268@my-deja.com) wrote on MMCL September
MCMXCIII in <URL:news:7n4iic$s6m$1@nnrp1.deja.com>:
__ Here's the situation. My site is getting set to launch a new design.
__ We'd like to have something on the front page that would show events
__ that are happening today that would be updated automatically. SSI is
__ not an option, as is mod_perl and anything using python (Zope, HTMLGen).
__
__ Is there a program that does this? I'm prepared to write this myself,
__ but if someone has made it already I'd rather give that a try.
And your Perl question is?
Anyway, there's are gazillions of "webcam"s out there, that all show
the events that are happening today. It shouldn't be too hard to find
a program that puts the images of the camera in the appropriate directory.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== 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: 21 Jul 1999 20:49:58 -0500
From: zqx@siesta.cs.wustl.edu (Zeqing Xia)
Subject: Re: Web page generator
Message-Id: <7n5tc6$2gl@siesta.cs.wustl.edu>
If you want to have something similar to ASP, I find Text::Template
a very simple and powerful package to use. For example, something
like:
<html>
blah, blah...
<table>
blah, blah...
<perlx>
get_new_events_html()
</perlx>
</table>
where get_new_events_html() is your Perl script to generate the
HTML snippets.
It can be fancier if you want.
ZQX
In article <7n4iic$s6m$1@nnrp1.deja.com>, <rook268@my-deja.com> wrote:
>Here's the situation. My site is getting set to launch a new design.
>We'd like to have something on the front page that would show events
>that are happening today that would be updated automatically. SSI is
>not an option, as is mod_perl and anything using python (Zope, HTMLGen).
>
>Is there a program that does this? I'm prepared to write this myself,
>but if someone has made it already I'd rather give that a try.
>
>
>Sent via Deja.com http://www.deja.com/
>Share what you know. Learn what you don't.
------------------------------
Date: 23 Jul 1999 00:31:48 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: What does this statement mean?
Message-Id: <slrn7pfvgv.1a1.abigail@alexandra.delanet.com>
kkmmperl@my-deja.com (kkmmperl@my-deja.com) wrote on MMCLI September
MCMXCIII in <URL:news:7n7vav$549$1@nnrp1.deja.com>:
** Hi,
** I am a new to PERL.
** What does the following statement mean?
**
** @result=`mv $filename $archivedirectory`;
**
** Is it storing the result of the execution of the move statement in the
** array ?
Hmmm, what did the manual say?
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y/+{#}$=^*&[0-9]i@:;`"',./ /d)&&$llama."\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: 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". 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 V9 Issue 233
*************************************
