[15771] in Perl-Users-Digest
Perl-Users Digest, Issue: 3184 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 27 14:05:24 2000
Date: Sat, 27 May 2000 11: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)
Message-Id: <959450710-v9-i3184@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 27 May 2000 Volume: 9 Number: 3184
Today's topics:
Re: Advantages of Perl over Cold Fusion? (Steve Leibel)
Re: array question <billy@arnis-bsl.com>
can perl do expire page like asp <dchk_78NOdcSPAM@yahoo.com.invalid>
Re: Couple of Newbie RegExp questions <billy@arnis-bsl.com>
cron job and a perl script directory johnqxu@my-deja.com
Re: cron job and a perl script directory <dave@dave.org.uk>
Re: file locking (Tad McClellan)
Re: file locking (Tad McClellan)
Re: Foreach Statement <elaine@chaos.wustl.edu>
JS to Perl <diab.litoNOdiSPAM@usa.net.invalid>
newbie - form <diab.litoNOdiSPAM@usa.net.invalid>
Re: newbie - form <tony_curtis32@yahoo.com>
newbie: random access to large lists <reemul@newsfeeds.com>
Re: opinion on libwww <cramirez@gte.net>
Re: Perl date formatting (Philip 'Yes, that's my address' Newton)
Re: Perl unusable as a programming language (brian d foy)
Re: Perl unusable as a programming language (Greg Bacon)
Re: Perl unusable as a programming language <kaleja@estarcion.com>
Re: please do not feed the troll, was Re: seeking metho <godzilla@stomp.stomp.tokyo>
Re: printing to browser and file with single FILEHANDLE <billy@arnis-bsl.com>
Re: Programming Perl Realtime ChatRoom (Clinton A. Pierce)
Re: Programming Perl Realtime ChatRoom <dchk_78NOdcSPAM@yahoo.com.invalid>
Re: Question on Using cgi-lib.pl (Mark P.)
regexp question <sick@styx.math.uni-bonn.de>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 27 May 2000 10:17:47 -0700
From: stevel@coastside.net (Steve Leibel)
Subject: Re: Advantages of Perl over Cold Fusion?
Message-Id: <stevel-2705001018110001@192.168.100.2>
In article <8gm0je$ded$1@paxfeed.eni.net>, "Mark Aisenberg"
<mark@sharewire.com> wrote:
> 1) Perl is open, and not controlled by a single company.
> What happens is you use a proprietary product, and the
> supplier raises its prices, changes its licensing terms,
> discontinues support for it, or lards it with unneeded features
> and fat? What happens if you need to move to a different
> development platform, one not supported by the supplier?
>
Open source software can also become larded with unneeded features and
fat. I'd mention Perl 5.6 but I don't want to get flamed. I've been
using Perl since 4.31 or so and I can't help feeling that I'd rather have
a cleaner parser than more language features.
Steve L
------------------------------
Date: Sat, 27 May 2000 13:38:26 GMT
From: Ilja <billy@arnis-bsl.com>
Subject: Re: array question
Message-Id: <8goj4i$v58$1@nnrp1.deja.com>
In article <MPG.1398866f5a1832b698aaf0@nntp.hpl.hp.com>,
Larry Rosler <lr@hpl.hp.com> wrote:
> In article <392EC8C6.32E73F60@writeme.com> on Fri, 26 May 2000
19:00:02
> GMT, Andrew Collington <aahz@writeme.com> says...
> > Hi there,
>
> Hi!
>
> > I'm having a little problem with arrays and strings, so I wonder if
> > anyone could look at the following explaination and tell me the way
to
> > go, please?
> >
> > I'm wanting to have an array of only 5 values (strings), which are
> > gained from a string (using the split function). If there are 5
values
> > already in the array then they would be shifted down and a new value
> > added to the end. Else add the new value is just added to the end
of
> > the array (wherever that may be.. slot 1, 2, 3, 4 or 5.)
> >
> > I just don't know an efficient way to do this, and everything I've
tried
> > so far just keeps on adding the value to the end, far surpassing
slot 4
> > (value #5).
> >
> > Could anyone give me some code to do this? I'd be very grateful!
>
> push @a, $new_value;
>
> shift @a if @a > 5;
>
Maybe if OP wanted to add many values:
push @a, @new_values;
shift @a while @a > 5;
Ilja.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 27 May 2000 10:18:05 -0700
From: Chung Derek <dchk_78NOdcSPAM@yahoo.com.invalid>
Subject: can perl do expire page like asp
Message-Id: <06bc75cc.761d5148@usw-ex0106-046.remarq.com>
i think everyone have seen asp program. when someone clicks the
back button of the browser, a page comes up telling the page
have expired.
i would like to know if there is a way to do that in perl
* 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: Sat, 27 May 2000 14:22:19 GMT
From: Ilja <billy@arnis-bsl.com>
Subject: Re: Couple of Newbie RegExp questions
Message-Id: <8golmi$ob$1@nnrp1.deja.com>
In article <392FB8F6.5A5398E8@home.com>,
Jim Kipp <jkipp5@home.com> wrote:
> Hello
> I am trying to write something to find repeated words in an
> input file, print the repeated word and the line # it is on.
> I came up with the mess below but did not work. The second
> script I need is one that uses the translation operator to
> remove repeated instances of the tab character and then
> replaces the tab character with a space character.
>
...skipped...
If you simply need to replace repeated tabs with just one space:
$string =~ s/\t+/ /g;
For more complex tab expansion pls read the FAQ:
"How do I expand tabs in a string?"
You'll find it in your local perldoc perlfaq4
or http://www.cpan.org/doc/manual/html/pod/perlfaq4.html.
Hope this helps.
Ilja.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 27 May 2000 16:32:35 GMT
From: johnqxu@my-deja.com
Subject: cron job and a perl script directory
Message-Id: <8gotb3$5nn$1@nnrp1.deja.com>
All,
When a cron job is set to invoke a perl script under other directory,
is there any way to find current directory that the perl script located
within this perl script?
Thanks
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 27 May 2000 18:44:04 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: cron job and a perl script directory
Message-Id: <v920jssskhnurug5nisupbjcsm2a7c5h1p@4ax.com>
On Sat, 27 May 2000 16:32:35 GMT, johnqxu@my-deja.com wrote:
>All,
>When a cron job is set to invoke a perl script under other directory,
>is there any way to find current directory that the perl script located
>within this perl script?
>
>Thanks
Do you mean like:
use Cwd;
my $dir = cwd;
hth,
Dave...
--
<http://www.dave.org.uk> SMS: sms@dave.org.uk
yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
"There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: Sat, 27 May 2000 08:30:52 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: file locking
Message-Id: <slrn8ivfvs.1oc.tadmc@magna.metronet.com>
On Mon, 22 May 2000 10:23:02 -0700, Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
>USENET guidelines, paraphrased, indicate:
>
>"Flaming for spelling, punctuation, grammar errors
> and similar, will earn you a Slime Badge."
Yes, but _your_ error was NOT spelling, punctuation, or grammar!
It was vocabulary (or semantics).
And I wasn't flaming anyway, I was just laughing at you.
You have significant amusement value.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 27 May 2000 09:13:25 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: file locking
Message-Id: <slrn8ivifl.1oc.tadmc@magna.metronet.com>
On Sat, 20 May 2000 16:20:29 -0700, Godzilla! <godzilla@stomp.stomp.tokyo> wrote:
>Tad McClellan wrote:
>
>> Godzilla! <godzilla@la.znet.com> wrote:
>> >Cure wrote:
>
>> >flock (FILE_HANDLE, 2)
>> >flock (FILE_HANDLE, 8)
>
>> >Both are old fashion strict methods of
>> >locking and unlocking a file, respectfully.
>
>> ^^^^^^^^^^^^
>
>> If you don't talk nice to your filehandles they won't do what you ask?
>
>
>Those of us well educated in Language and Linguistics
^^
^^
So you would include yourself in that set?
>are aware "respectfully" within this context means,
>
>"Reference to the order given previously."
No it doesn't.
In that context it means "talk nice to your filehandles".
*respectively* means "Reference to the order given previously".
[ and the period goes outside of the quotes, just to add
English grammar errors to the previously observed
English vocabulary errors :-)
]
I knew that your mistake was not a typo since there were many
different characters all typed correctly.
But it might have been a "thinko" where you were thinking
"respectively" but your fingers typed "respectfully".
I've seen your claims of Phd before.
So I thought I would follow up and see if you would remain
silent and be thought a fool...
>In this case, the order given is lock and unlock,
>respectfully denoting the order given in code
>previously, lock and unlock.
... or speak, and remove all doubt.
I've got a pink spot on my leg from repeated knee slapping :-)
Trolling is fun!
I hadn't tried it before.
Now I see why you keep posting here. It feels good to lead
someone into providing you with a good belly laugh.
Thanks for playing your part!
>Always knew my doctorate in English would pay
>off one of these here days.
Perhaps, but that day is not this day.
>It's all intellectually relative Mr. Xah.
^^^^^^^^^
^^^^^^^^^
You should get you some of that.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 27 May 2000 14:42:54 GMT
From: Elaine Ashton <elaine@chaos.wustl.edu>
Subject: Re: Foreach Statement
Message-Id: <B555572D.4E12%elaine@chaos.wustl.edu>
in article c1evis8s7k7teb9cgpfpph8u1lriqhpuf0@4ax.com, Dave Cross at
dave@dave.org.uk quoth:
>> perlfaq4: "How can I remove duplicate elements from a list or array?"
>
> Of course, none of the answers in the FAQ use a foreach loop and would
> therefore be useless for Brian's homework :-)
http://www.perlfaq.com/faqs/id/93
It doesn't use a foreach either, but works just the same :)
e.
------------------------------
Date: Sat, 27 May 2000 09:42:59 -0700
From: Diablito <diab.litoNOdiSPAM@usa.net.invalid>
Subject: JS to Perl
Message-Id: <016a7180.7034ae04@usw-ex0103-019.remarq.com>
Hi,
Can anyone please translate this code from JavaScript to Perl?I
am just learning some basics of Perl but I am not so hot yet.
let="0123456789abcdefghijklmnopqrstuvwxyz.-
~ABCDEFGHIJKLMNOPQRSTUVWXYZ"
fn=0
for (count=0; count<namque.length; count++) {
ch=namque.substring (count, count+1);
num=let.indexOf (ch);
fn += num }
ans=fn%30
Thanks a lot everyone,
Mario
* 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: Sat, 27 May 2000 10:09:01 -0700
From: Diablito <diab.litoNOdiSPAM@usa.net.invalid>
Subject: newbie - form
Message-Id: <0c14a0d9.76fef485@usw-ex0103-019.remarq.com>
I have a form with one field A.I want a behaviour with A="Black"
and another with A="White".How can I "say" something like:
If A="Black" then blablabla
in other words,what's the name of the variable that contains the
information entered by user?
Sorry if that's a very basic question but I am very new to this
and couldn't find the answer in the posts archive.
Mario
* 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: 27 May 2000 12:16:13 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: newbie - form
Message-Id: <87bt1rgbhe.fsf@limey.hpcc.uh.edu>
>> On Sat, 27 May 2000 10:09:01 -0700,
>> Diablito <diab.litoNOdiSPAM@usa.net.invalid> said:
> I have a form with one field A.I want a behaviour with
> A="Black" and another with A="White".How can I "say"
> something like:
> If A="Black" then blablabla
> in other words,what's the name of the variable that
> contains the information entered by user? Sorry if
> that's a very basic question but I am very new to this
> and couldn't find the answer in the posts archive.
use CGI qw(:standard); # or whichever options you need
# should make sure some param()s were passed first of all
if (param('A') eq 'Black') {
...
} else {
...
}
This might best go in comp.infosystems.www.authoring.cgi
since it is more about CGI than perl itself.
--
"Trying is the first step towards failure"
Homer Simpson
------------------------------
Date: Fri, 26 May 2000 10:25:55 -0500
From: Thomas Stewart <reemul@newsfeeds.com>
Subject: newbie: random access to large lists
Message-Id: <MPG.1398537ca74be92a989680@goliath2.newsfeeds.com>
All-
I'm working on a script that needs to randomly grab a line from a large
list (tens of thousands of lines). I want the whole line, and the lines
are not fixed length. What is the best way of going about this? I'm a
book-in-my-lap level of coder, so there might be something obvious I'm
missing. I want the lists to be manually editable, so DBM doesn't seem
appropriate. The number of lines might change drastically from this
editing, so I don't want to just randomly go to a line and have it be out
of range.
Any help would be appreciated.
Thomas Stewart
ps - If anyone cares, I'm actually working on a script to generate fake,
but hard to filter, demographic data. Intended for filling out all those
intrusive questionnaires, so that the sellers of personal info have
databases full of garbage that they don't know how to cut out, making
said databases much less salable. The biggest list I have is a stack of
US zipcodes, with the associated city, state, and area code on the same
line, so that everything matches and can't be filtered by running it
through a similar db. Just to be difficult, I'm writing it as a module
and doing everything OO. Yes, I have a LOT of time on my hands.
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: Sat, 27 May 2000 13:23:27 GMT
From: Carlos Ramirez <cramirez@gte.net>
Subject: Re: opinion on libwww
Message-Id: <392FCC75.B37B1E29@gte.net>
use LWP::UserAgent::Parallel
-carlos
arpith@my-deja.com wrote:
> Hi,
>
> I was wondering, whats the best way to snatch webpages
> through perl, most efficiently and quickly ? Right now
> I'm using libwww.
>
> I don't know if there is a better way of doing things.
> Is there ? I am planning on snatching a lot of URLs,
> simultaneously, and quickly. Is this the best method ?
>
> Thanks a lot,
> Arpith
> http://arpith.com/
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Sat, 27 May 2000 16:40:57 GMT
From: nospam.newton@gmx.li (Philip 'Yes, that's my address' Newton)
Subject: Re: Perl date formatting
Message-Id: <392ff6fa.299051946@news.nikoma.de>
On Sat, 27 May 2000 06:07:39 GMT, stone@enetis.net wrote:
> I'm just a newbie been programming for about 4 months.
Yes, some of the constructs look familiar :-)
> $shortyear = $year - 100;
> $longyear = $year + 1900;
This is not Y2K safe -- but in the opposite direction; if you had run
this code before 2000, $shortyear would be wrong. Going back in time is
unlikely, but there are people with broken system clocks, and you've
still got a year 2100 bug.
$shortyear = $year % 100;
> if ($seconds < 10) {$seconds = "0$seconds";} ## Convert 2
> digit second.
> if ($shortyear < 10) {$shortyear = "0$shortyear";} ## Convert 2
> digit year.
May I suggest
$seconds = sprintf "%.2d", $seconds;
$shortyear = sprintf "%.2d", $shortyear;
sprintf is good at this sort of stuff.
> ## Append "st", "nd", "rd" or "th" to the numerical day.
> if (($dayofmonth == 1) || ($dayofmonth == 21) || ($dayofmonth ==
> 31)) {$dayofmonth2 = $dayofmonth . "st";}
> elsif (($dayofmonth == 2) || ($dayofmonth == 22)) {$dayofmonth2 =
> $dayofmonth . "nd";}
> elsif (($dayofmonth == 3) || ($dayofmonth == 23)) {$dayofmonth2 =
> $dayofmonth . "rd";}
> else {$dayofmonth2 = $dayofmonth . 'th';}
This could also (IMAO) be simplified with % -- if(... % 10 == 1) then
use 'st', etc.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.li>
If you're not part of the solution, you're part of the precipitate.
------------------------------
Date: Thu, 25 May 2000 16:41:56 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: Perl unusable as a programming language
Message-Id: <brian-ya02408000R2505001641560001@news.panix.com>
In article <slrn8iqvii.be1.simon@justanother.perlhacker.org>, Simon Cozens <simon@brecon.co.uk> posted:
> The Glauber (comp.lang.perl.moderated):
> >In article <8f498v$751$1@charm.magnus.acs.ohio-state.edu>,
> > ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
> >> Let me reiterate my current opinion on the topic: the reason for my
> >> puzzlement (and your trouble) is the difference between Perl as a
> >> scripting language and Perl as a programming language. Perl is
> >> absolutely fine as a scripting language. Perl is pretty unusable as a
> >> programming language.
> >Is it just me or did this scare the heck out of anybody else?
> Not particularly. Scripting, if it has any meaning at all, means telling
> a computer what you want it to do. Programming means telling a computer
> what you want it to do. See the difference? Yup, it's just about the
> impression you want to make on the reader. Nothing more.
i disagree. there is a difference between sequencing events (scripting)
and controlling hardware (programming in low level languages). lately
i've been fond of saying that Perl programs information, and C programs
computers.
unfortunately, people tend to lump "programming" into one bin rather
than separating the types of programming by task or motivation.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
Date: Thu, 25 May 2000 18:31:28 GMT
From: gbacon@HiWAAY.net (Greg Bacon)
Subject: Re: Perl unusable as a programming language
Message-Id: <siqsc0aqo1124@corp.supernews.com>
In article <8gjh00$cni$1@nnrp1.deja.com>,
The Glauber <theglauber@my-deja.com> wrote:
: In article <8f498v$751$1@charm.magnus.acs.ohio-state.edu>,
: ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
: [...]
: > Let me reiterate my current opinion on the topic: the reason for my
: > puzzlement (and your trouble) is the difference between Perl as a
: > scripting language and Perl as a programming language. Perl is
: > absolutely fine as a scripting language. Perl is pretty unusable as a
: > programming language.
: [...]
:
: Is it just me or did this scare the heck out of anybody else? It's
: something to hear people ranting about Perl, but it's something else
: when someone as important to Perl as Ilya is, says that Perl is
: unusable as a programming language.
Before you go off to build your bomb shelter, you should wait for
further clarification as to what differences he perceives between
programming languages and so-called scripting languages. Ilya's been
predicting the end of the world for a long time now, but the rest of
us seem to be getting along just fine.
I've found that when people suggest that scripting is somehow less
serious than "real programming", those people are either clueless in
the first place or hold really screwy, two sigma outlier opinions
about what programming is. Anyone can present an argument that is
compelling on the surface if he doesn't have to first define and stick
with his terminology.
Greg
--
It's a miracle that curiosity survives formal education.
-- Albert Einstein
------------------------------
Date: Fri, 26 May 2000 11:07:06 -0700
From: Russell Bornschlegel <kaleja@estarcion.com>
Subject: Re: Perl unusable as a programming language
Message-Id: <392EBD4A.AE875E1B@estarcion.com>
Craig Berry wrote:
> Simon Cozens (simon@brecon.co.uk) wrote:
> : At last count, Perl had 70,000 lines of core documentation. If that's
> : incomplete, we're in bigger trouble than I thought.
>
> Size != completeness. If those 70,000 lines fail to cover some topics
> (which they do), they're incomplete. A lot of Perl's dwimmery remains
> totally undocumented, leading to try-it-and-see as the only development
> path. This is what leads to critiques of Perl as a production-grade
> programming language.
Is incomplete documentation better or worse than incorrect documentation?
Perl does seem to me to have an advantage over some other languages in that
there's essentially only one implementation of the core language[1], as
opposed to countless C++ compilers which all differ from the Standard and
from each other in different subtle ways.
-Russell B
[1] Correct me if I'm wrong. By "core language" I mean stuff that isn't OS
dependent. I might ought to amend my statement to "one implementation per
OS". I might ought to amend my statement to "there are relatively few
implementations." Heck, I might ought to hit "delete" instead of "send"
right now.
------------------------------
Date: Sat, 27 May 2000 07:07:57 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: please do not feed the troll, was Re: seeking method to encode emailaddresses in web page forms
Message-Id: <392FD6BD.6D6D3736@stomp.stomp.tokyo>
"Alan J. Flavell" wrote:
> On 27 May 2000, Neil Kandalgaonkar wrote:
(snipped a lot of hatred and troll bait)
Why do you consistently write troll articles
within this group and many other groups. What
enjoyment do you derive from being a troll?
Have you looked at your record in another
group and looked at how much trouble you cause
there? Sure enough a lot of people over there
telling you to leave. You are a troll, a hateful
mean spirited troll.
Godzilla!
------------------------------
Date: Sat, 27 May 2000 13:24:32 GMT
From: Ilja <billy@arnis-bsl.com>
Subject: Re: printing to browser and file with single FILEHANDLE
Message-Id: <8goia7$unf$1@nnrp1.deja.com>
In article <slrn8it5qn.rid.eric@plum.fruitcom.com>,
eric@fruitcom.com wrote:
>
> I would like to send a copy of browser output to a file.
...skipped...
> How could I achieve this?
>
> (apologies for posting here but I tried the cgi group).
>
Sounds like a FAQ: "How do I print to more than one file at once? "
Colsult your local 'perldoc perlfaq5' or
http://www.cpan.org/doc/manual/html/pod/perlfaq5.html.
Hope this helps.
Ilja.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Sat, 27 May 2000 15:10:48 GMT
From: clintp@geeksalad.org (Clinton A. Pierce)
Subject: Re: Programming Perl Realtime ChatRoom
Message-Id: <YzRX4.91722$h01.652801@news1.rdc1.mi.home.com>
[Posted and mailed]
In article <01d04948.ee51cc45@usw-ex0106-046.remarq.com>,
Chung Derek <dchk_78NOdcSPAM@yahoo.com.invalid> writes:
> most of the example i see in the Internet uses the meta tage
> refresh, which is very unsightly. I also don't want to use java.
Then you've mistaken CGI programming for some kind of interactive client-
server programming method.
Javascript (a client-side language) doesn't support sockets. Therefore,
the server has to do all the work (push), or the client has to
occasionally poll the server to see what's changed (pull).
If you want interactive, use a toolset that allows interactive programming.
Client-side Java and then a language on the server side that supports
sockets.
--
Clinton A. Pierce Teach Yourself Perl in 24 Hours!
clintp@geeksalad.org for details see http://www.geeksalad.org
"If you rush a Miracle Man,
you get rotten Miracles." --Miracle Max, The Princess Bride
------------------------------
Date: Sat, 27 May 2000 10:13:32 -0700
From: Chung Derek <dchk_78NOdcSPAM@yahoo.com.invalid>
Subject: Re: Programming Perl Realtime ChatRoom
Message-Id: <0c4987a0.74ed63d7@usw-ex0106-046.remarq.com>
maybe i have been wrong. anyhow, here is what i have actually
seen.
although this real time chat program is not done in perl, it is
done in php with a little help ffrom javascript. the program
acts like a socket program, give it the fell of data constantly
connected, but without the complication of java.
that is what i wanted actually, but i am using coldfusion as my
development tool. i would also like to add that this program
uses database
there is also an example in coldfusion in this link
http://www.fusionchat.net
and the php link is
http://www.sinchew-i.com/chat/
anyway, thank you. i would really need you suggestion
* 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: Sat, 27 May 2000 13:29:55 GMT
From: perl@imchat.com (Mark P.)
Subject: Re: Question on Using cgi-lib.pl
Message-Id: <392fcd8b.333307300@news.ionet.net>
On 27 May 2000 01:16:51 GMT, Murvin Ming-Wai Lai <mmlai@sfu.ca> wrote:
>
>Hi all,
> I'm using the cgi-lib.pl to upload a file to the server. I know that
>after I call &ReadParse, the variable name from the form will be stored in
>the array %in.
> For example, in the form, I have:
><INPUT type=file name=myfile>
>
>and I upload the file "abc.txt" from client side, then $in{'myfile'} will
>return the contents of the abc.txt . e.g.
>$key equals: "myfile"
>$in{$key} equals: "a b c d e f g ..." (whatever the content is)
>
>However, I would like to know which variable I should look for to give me
>the Name fo the file, i.e "abc.txt", using the cgi-lib.pl
>Is there exist any variable in cgi-lib.pl that can provide me this piece
>of information? or I have to edit the cgi-lib.pl to do this job?
>
>Thank you for the help. =)
>
cgi-lib is deprecated. use CGI
http://stein.cshl.org/WWW/software/CGI/
perldoc CGI
MP
------------------------------
Date: Sat, 27 May 2000 20:12:09 +0200
From: Oliver Sick <sick@styx.math.uni-bonn.de>
Subject: regexp question
Message-Id: <39300FF9.341B0B9B@styx.math.uni-bonn.de>
Hi
I've a problem finding the correct regular expression for matching a
string of FIXED length (lets =L) which contains a specific letter
EXACTLY ONE time !
Example: If the length of the string is L=6 and the specific letter is
the "s",
then the strings "supper" and "nights" should match but the
string "assert" shouldn't.
I'm grateful for any helpfull hint.
Thanks in advance,
Oliver
------------------------------
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 3184
**************************************
