[21942] in Perl-Users-Digest
Perl-Users Digest, Issue: 4164 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 22 21:05:45 2002
Date: Fri, 22 Nov 2002 18:05:07 -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 Fri, 22 Nov 2002 Volume: 10 Number: 4164
Today's topics:
a CHAT room in CGI/Perl <el.chocho@laposte.net>
Re: a CHAT room in CGI/Perl (Walter Roberson)
Re: command-line output re-direction in winNT <fixerdave@hot-NoSpamPlease-mail.com>
Re: comment on 2 or 4 spaces indentation <pkent77tea@yahoo.com.tea>
Re: Format a one line file to get two columns <usenet@dwall.fastmail.fm>
Re: help this Newbie in Distress (eggrock)
Re: help this Newbie in Distress (Tad McClellan)
Re: help this Newbie in Distress <jurgenex@hotmail.com>
Re: print the next 5 lines <tedtdhoang@hotmail.com>
Re: regex to match a multi line pattern (Tad McClellan)
Re: semantics of nested backreferences in regular expre <edi@agharta.de>
Re: semantics of nested backreferences in regular expre <edi@agharta.de>
Re: shtml and Perl <pkent77tea@yahoo.com.tea>
string qustion? <default@nih.gov>
Re: string qustion? <jboes@qtm.net>
Re: string qustion? <default@nih.gov>
Re: string qustion? <jurgenex@hotmail.com>
Re: Timers <jboes@qtm.net>
Re: user interfaces (text) (john harrold)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 23 Nov 2002 00:14:10 +0100
From: Chocho <el.chocho@laposte.net>
Subject: a CHAT room in CGI/Perl
Message-Id: <armdv7$49j$1@news-reader12.wanadoo.fr>
Hi,
I want to write a CGI's script in Perl for a chat room.
This is the problem:
If user #1 post a message, it must be seen immediately by other users (like
in IRC's system)
But I don't know to do that...
An HTML refresh on the HTML's page generated by the script... it's not very
efficient ..
I need your help ..
Thanks in advance
Christophe
--
el.chocho@laposte.net
------------------------------
Date: 23 Nov 2002 00:30:19 GMT
From: roberson@ibd.nrc.ca (Walter Roberson)
Subject: Re: a CHAT room in CGI/Perl
Message-Id: <armi6r$fqb$1@canopus.cc.umanitoba.ca>
In article <armdv7$49j$1@news-reader12.wanadoo.fr>,
Chocho <el.chocho@laposte.net> wrote:
:I want to write a CGI's script in Perl for a chat room.
:This is the problem:
:If user #1 post a message, it must be seen immediately by other users (like
:in IRC's system)
:But I don't know to do that...
:An HTML refresh on the HTML's page generated by the script... it's not very
:efficient ..
This isn't really a perl problem, this is an HTML problem.
The general approach in HTML would be (as I recall) to use a
multipart/mixed MIME type, keep the connection open, and write each new
update to the connection as multipart, not writing a plain singular
part until the last one you want to send. The only perl aspect here is
to make sure you flush the buffer after writing each of the parts.
--
Disobey all self-referential sentences!
------------------------------
Date: Fri, 22 Nov 2002 17:24:40 -0800
From: Dave E <fixerdave@hot-NoSpamPlease-mail.com>
Subject: Re: command-line output re-direction in winNT
Message-Id: <3DDED8D8.5EAD6F97@hot-NoSpamPlease-mail.com>
George Eccles wrote:
> c:> fnc.pl arg1 arg2 > outfile
>
> Creates outfile, but it's empty. Any clues as to why would be
> appreciated.
>
Yup, same as on mine. I just explicity start perl when I want to
redirect, I never thought much about why. I mean, when I think about
all the monkey-motion going around in the background, I'm amazed
anything works on a computer ;).
If it's important, you might be able to change this behaviour by playing
with the file associations for .pl. There's a lot of control in how a
.pl file gets opened up when it's "opened."
------------------------------
Date: Sat, 23 Nov 2002 01:29:33 GMT
From: pkent <pkent77tea@yahoo.com.tea>
Subject: Re: comment on 2 or 4 spaces indentation
Message-Id: <pkent77tea-BC84E3.01293123112002@news-text.blueyonder.co.uk>
In article <3DDE42CB.415D34CD@saicmodis.com>,
Gary Fu <gfu@saicmodis.com> wrote:
> My colleague uses emacs and had hard time to modify Perl program with 2
> spaces
> indentation. He told me that 4 spaces indentation is standard for Perl and
There's probably a FAQ entry for this, but there is _no_ "standard" for
perl. It's like C in that you can write stuff all nicely indented, or
all on one line. And I mean ALL on one line :-) There are
recommendations in, I think, the perlstyle POD manual page.
[Obviously strings and formats and the like are whitespace sensitive...]
> Any comment why 4 spaces indentation is standard or better than 2 spaces for
> Perl ?
If you have to share code with your colleague you should both agree on
some "coding standards" between yourselves. That might just be both
agreeing to use a certain amount of indentation, or you could cover
bracing style, variable naming... whatever. Standards (or guidelines)
are even more valuable when you have to share code, or maintain code,
with many other people.
Ultimately it doesn't matter /which/ you choose, just so long as you all
agree and set your tools to respect the agreed settings.
P
--
pkent 77 at yahoo dot, er... what's the last bit, oh yes, com
Remove the tea to reply
------------------------------
Date: Sat, 23 Nov 2002 00:33:57 GMT
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: Format a one line file to get two columns
Message-Id: <Xns92CEC709E5B2Edkwwashere@204.127.202.16>
"John W. Krahn" <krahnj@acm.org> wrote:
>> s/\s+/($flipflop = ++$flipflop % 2) ? ' ' : "\n"/eg;
>
> s/\s+/($flipflop %= 2)++ ? "\n" : ' '/eg;
Smartaleck.
:-)
--
David Wall - me@dwall.fastmail.fm
"Oook."
------------------------------
Date: 22 Nov 2002 15:48:40 -0800
From: eggrock@skypoint.com (eggrock)
Subject: Re: help this Newbie in Distress
Message-Id: <3f95dfb8.0211221548.486bb1bd@posting.google.com>
> *plonk*
>
> >However, let's all not start a "top post" vs "bottom post" thread here.....
>
> You already did and have already hit the bottom of my
> killfile as a result.
>
> >I never post questions that are stupid.
>
> Candidate for famous last words.
<rant>
I see this group hasn't changed in the year since I last visited.
People self-important and arrogant enough to flaunt their killfile
(oh, *PLONK* me!!) rather than sincerely trying to help. (Somehow this
is supposed to improve the quality of the newsgroups.) Unfortunately,
the same *holes are often the ones with the knowledge most of the rest
of us seek. Made me feel so /wanted/ when I saw some of the major
flamer's names on my O'Reilly collection. Really teaches people to
share knowledge when flaming is the rule rather than the exception.
And you wonder where trolls are created.......
Also, it can be REALLY FRUSTRATING AND NEGATIVE when searching Google.
Of course this is not directed specifically at anyone... Plus I'm
being more than a bit hypocritical ranting about people's rants. It's
just been a frustrating two-hour search and you're conveniently
located near 'current'.
The Perl community should add WEDOE--"We encourage duplication of
effort"--somewhere in TMTOWTDI.. Bravo.
</rant>
------------------------------
Date: Fri, 22 Nov 2002 18:20:38 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: help this Newbie in Distress
Message-Id: <slrnattiem.5hp.tadmc@magna.augustmail.com>
eggrock <eggrock@skypoint.com> wrote:
> (oh, *PLONK* me!!)
OK.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 23 Nov 2002 00:24:55 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: help this Newbie in Distress
Message-Id: <rVzD9.5309$mL2.4674@nwrddc01.gnilink.net>
eggrock wrote:
> (oh, *PLONK* me!!)
Done
jue
------------------------------
Date: Fri, 22 Nov 2002 19:05:31 -0600
From: "NeTedix" <tedtdhoang@hotmail.com>
Subject: Re: print the next 5 lines
Message-Id: <13E1A9F864D9B0A8.8F0BD5E189C5B384.3426E2B10F23069F@lp.airnews.net>
Thank everyone,
TH
"Brian McCauley" <nobull@mail.com> wrote in message
news:u93cptqz8d.fsf@wcl-l.bham.ac.uk...
> "NeTedix" <tedtdhoang@hotmail.com> is a rude/ignorant person who
> writes TOFU:
>
> > I mean the next 5 lines not 5 numbers. Sorry for my example isn't clear.
Let
> > me give you another ex.
> > Dallas
> > San Jose
> > Austin
> > NewYork
> > Houston
> > Baltimore
> > New Jersey
> > London
> > Bangkok
> > Paris
> > Clinton
> > Bush
> > Gore
> >
> > I search for Austin and print the next 5 lines. Here is the expected
reult:
> > Austin
> > NewYork
> > Houston
> > Baltimore
> > New Jersey
> > London
>
> my $counter;
> while (<>) {
> $counter = 6 if /^Austin$/;
> print if $counter-- > 0;
> }
>
> BTW: Please cut the TOFU - it is very rude. Very rude people soon
> find that some of the most knowledgible people stop trying to help
> them.
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\
------------------------------
Date: Fri, 22 Nov 2002 18:16:03 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: regex to match a multi line pattern
Message-Id: <slrnatti63.5hp.tadmc@magna.augustmail.com>
[ Please do not post to the long-defunct comp.lang.perl
newsgroup. It _reduces_ the readership for your postings.
]
JimL. <jimr.long@worldnet.att.net> wrote:
> I am trying to match a pattern that has multiple lines.
None of your patterns have multiple lines.
You want to match a _string_ that has multiple lines.
> I need a regex that will match:
> 21 NOV 02 03:17:57PM
> *** Today I found God
> 00000 24C00000 84000000 00003975 9A970100 *$.........9u....*^M
> 00010 90160000 30010100 03000558 003FFFFF *....0......X.?..*^M
>
> but not:
> 21 NOV 02 03:17:57PM
> *** Today I found blah-foo
> 00000 24C00000 84000000 00003975 9A970100 *$.........9u....*^M
> 00010 90160000 30010100 03000558 003FFFFF *....0......X.?..*^M
But you are going to withhold what the criteria is?
select if contains "G"
select if contains "od"
select if contains "God"
do not select if contains "foo"
do not select if contains "blah"
do not select if contains a hyphen
All of those criteria would select the one you want and reject
the one you don't want.
We can only offer poor help to correspond to your poor specification...
> print if /^\d{2}\s{1}\D{3}/ .. /^00010.*/;
^^^ ^^
^^^ ^^
Neither of those parts do anything (useful), so they
should not be there.
my $record;
while( <DATA> ){
$record .= $_ if /^\d{2}\s\D{3}/ .. /^00010/;
if ( /^00010/ ) {
print $record if $record !~ /blah-foo/;
# print $record if $record =~ /God/;
$record = '';
}
}
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 23 Nov 2002 00:35:30 +0100
From: Edi Weitz <edi@agharta.de>
Subject: Re: semantics of nested backreferences in regular expressions
Message-Id: <87zns15gal.fsf@bird.agharta.de>
Jeff 'japhy' Pinyan <pinyaj@rpi.edu> writes:
> On 21 Nov 2002, Edi Weitz wrote:
>
> >Yes, I understand that, too. My problem is not that I don't understand
> >what's happening (I have in fact implemented a regular expression
> >matcher myself), my problem is that I think the two cases aren't
> >mutually consistent - or at least that the behaviour shown here is
> >counter-intuitive.
>
> I'll explain how they aren't.
OK, and I'll explain how they are (inconsistent, that is)... :)
But first let me add that this is not about denigrating Perl or
anything like this. The sole reason I came across this problem is that
I wrote a regular expression matcher myself (in Common Lisp) and
intended it to be as compatible with Perl's regex syntax as
possible. I ended up with three (classes of) cases where Perl's
matchers had different results than mine and where I was left with the
expression that I couldn't make sense of Perl's decision about how to
do things. It turned out that in two of theses cases Perl's behaviour
changed from 5.6 to 5.8 and I was fine. This one is the only case
left.
[snip]
> >> "XY" =~ m{ (?: (X) | (Y) ){2} }x
> >>
> >> stores X in $1, and store Y in $2 without undef'ing $1.
> >
> >OK, and here we return to my initial problem: In the first example -
> >"a" =~ /((a)*)*/ - $2 is undef'ed before entering the outer group for
> >the second time. In the second example - "ab" =~ /((a)|(b))*/ - $2 is
> >_not_ undef'ed before entering the outer group for the second time. It
> >keeps its value "a" from the first repetition while in the first
> >example $2 does _not_ keep its value "a" from the first repetition.
>
> Yes, there is a reason I think this makes sense.
>
> "XY" =~ /(?:(X)|(Y)){2}/
>
> is comprised of the following regex opcodes:
>
> 1: CURLYX[0] {2,2}(19)
> 3: BRANCH(10)
> 4: OPEN1(6)
> 6: EXACT <X>(8)
> 8: CLOSE1(18)
> 10: BRANCH(17)
> 11: OPEN2(13)
> 13: EXACT <Y>(15)
> 15: CLOSE2(18)
> 17: TAIL(18)
> 18: WHILEM(0)
> 19: NOTHING(20)
> 20: END(0)
>
> and the execution (on the 2nd time around) looks like this
>
> 1 <X> <Y> | 4: OPEN1
> 1 <X> <Y> | 6: EXACT <X>
> failed...
> 1 <X> <Y> | 11: OPEN2
> 1 <X> <Y> | 13: EXACT <Y>
> 2 <XY> <> | 15: CLOSE2
>
> Since we have no CLOSE1, we don't change the value of $1 (not even to
> undef). And since there IS a value for $1 at the end of the execution of
> the regex, it is ALSO not undef'ed.
OK, if that were a/the rationale for Perl's behaviour it would require
all Perl programmers to understand the inner workings of the regex
engine (kind of) which I don't think would be a good idea. I'd rather
prefer a concise description of what to expect in 'man perlre'.
> Does this clear things up for you?
No - as I said it wasn't actually about understanding. However, your
example helped me a lot in finding a better example to 'prove' my
original assumption that something smells fishy here. Try this...
edi@bird:~ > perl -e 'use Data::Dumper; "a" =~ /((a)*)*/; print Dumper $1, $2'
$VAR1 = '';
$VAR2 = undef;
edi@bird:~ > perl -e 'use Data::Dumper; "a" =~ /((a|bc)*)*/; print Dumper $1, $2'
$VAR1 = '';
$VAR2 = 'a';
...and explain to me why $2 is undef in the first example and defined
in the second example.
I don't know how Perl's regex engine works but from my own code I can
guess what's happening here: In the first case the inner register
group (belonging to $2) is kind of 'optimized' away, i.e. they're
doing a transformation like
(<regex>)* -> (?:<regex>*(<regex>))?
inside of the first register group.
This can save a lot of stack space and setting/unsetting of $2 on long
target strings but it can only be applied under certain conditions,
namely if <regex> is of fixed length and doesn't contain register
groups itself.
This optimization cannot be applied in the second case and thus the
different behaviour. In other words: Although both regular expressions
look quite similar (i.e. you would think you could exchange "a" and
"a|bc") they're going through totally different paths within the regex
engine.
However, this kind of optimization will only make sense IMHO if both
the optimized and the non-optimized version yield the same results. I
_think_ this is a bug, albeit a very small one.
[Please note that the last paragraphs are based on my assumptions
about how Perl's regex engine works. Correct me if I'm wrong.]
> I can make references to the underlying source code if it'll help.
> (But I don't know if that'll help. ;) )
At least it would be interesting. I balked at looking at Perl's regex
engine up until now 'cause I don't really like this kind of highly
optimized spaghetti C code but if you could give some pointers I'd
like to take a look.
Thanks,
Edi.
PS: Please let me know if you think I should file this as a bug
report (unless I haven't convinced you of course).
PPS: If the second example above doesn't convince you, try this one:
edi@bird:~ > perl -e 'use Data::Dumper; "a" =~ /(((a))*)*/; print Dumper $1, $2'
$VAR1 = '';
$VAR2 = 'a';
One should think that the presence or absence of the innermost
group of parentheses doesn't change the semantics of $1 and $2...
------------------------------
Date: 23 Nov 2002 00:49:00 +0100
From: Edi Weitz <edi@agharta.de>
Subject: Re: semantics of nested backreferences in regular expressions
Message-Id: <87ptsx5fo3.fsf@bird.agharta.de>
Edi Weitz <edi@agharta.de> writes:
> Jeff 'japhy' Pinyan <pinyaj@rpi.edu> writes:
>
> > I can make references to the underlying source code if it'll help.
> > (But I don't know if that'll help. ;) )
>
> At least it would be interesting. I balked at looking at Perl's regex
> engine up until now 'cause I don't really like this kind of highly
> optimized spaghetti C code
That should have been "I don't really like to READ this kind of highly
optimized spaghetti C code"... :)
Edi.
------------------------------
Date: Sat, 23 Nov 2002 02:03:21 GMT
From: pkent <pkent77tea@yahoo.com.tea>
Subject: Re: shtml and Perl
Message-Id: <pkent77tea-9C2F40.02031823112002@news-text.blueyonder.co.uk>
In article <DLhD9.1421$ea.73627@news2.calgary.shaw.ca>,
"News" <tjalbout@hotmail.com> wrote:
> Got a question, I have a perl script that calls a shtml file.
> In the shtml file I have a "<!--#include virtual= " function. If I run the
> shtml file by itself, it works fine but if I run it through the perl script,
> the include doesn't work.
> Any ideas? Am I missing a server config?
You are if using Apache 2; you should use an output filter:
http://httpd.apache.org/docs-2.0/filter.html
If you're using Apache 1.3 with mod_perl use
http://search.cpan.org/author/KWILLIAMS/Apache-SSI-2.17/SSI.pm
P
--
pkent 77 at yahoo dot, er... what's the last bit, oh yes, com
Remove the tea to reply
------------------------------
Date: Fri, 22 Nov 2002 20:21:00 -0500
From: default <default@nih.gov>
Subject: string qustion?
Message-Id: <3DDED7FC.C67F83@nih.gov>
Hi All,
There are some strings:
$str1 = "A1 B2 S2 D4 D3 S2";
$str2 = "D4 D3 S2 F2 A4 A5 D2";
$str3 = "X1 Z3 A11 A1 B2";
I want to get the string:
$str_results = "X1 Z3 A11 A1 B2 S2 D4 D3 S2 F2 A4 A5 D2";
How to do it with Perl?
Thanks
Ying
------------------------------
Date: Fri, 22 Nov 2002 20:35:50 -0500
From: Jeff Boes <jboes@qtm.net>
Subject: Re: string qustion?
Message-Id: <mpmttuk5ghl3i5q3da1sbviaio311slhhq@4ax.com>
At some point in time, default <default@nih.gov> wrote:
>Hi All,
>There are some strings:
>$str1 = "A1 B2 S2 D4 D3 S2";
>$str2 = "D4 D3 S2 F2 A4 A5 D2";
>$str3 = "X1 Z3 A11 A1 B2";
>
>I want to get the string:
>$str_results = "X1 Z3 A11 A1 B2 S2 D4 D3 S2 F2 A4 A5 D2";
$str_results = "$str3 $str1 $str2";
or
$str_results = join(' ',$str3,$str1,$str2);
--
~~~~~~~~~~~~~~~~|It is by caffeine alone I set my mind in motion,
Jeffery Boes |It is by the beans of Java that thoughts acquire speed,
jboes@qtm.net |The hands acquire shaking, the shaking becomes a warning,
UIN 3394914 |It is by caffeine alone I set my mind in motion.
-----= 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: Fri, 22 Nov 2002 20:46:24 -0500
From: default <default@nih.gov>
Subject: Re: string qustion?
Message-Id: <3DDEDDF0.DD35D0BA@nih.gov>
"D4 D3 S2" is in both $str1 and $str2.
"A1 B2" is in both $str1 and $str3.
In the new string, $str_results, "D4 D3 S3" and "A1 B2" are not duplicated.
Ying
Jeff Boes wrote:
> At some point in time, default <default@nih.gov> wrote:
>
> >Hi All,
> >There are some strings:
> >$str1 = "A1 B2 S2 D4 D3 S2";
> >$str2 = "D4 D3 S2 F2 A4 A5 D2";
> >$str3 = "X1 Z3 A11 A1 B2";
> >
> >I want to get the string:
> >$str_results = "X1 Z3 A11 A1 B2 S2 D4 D3 S2 F2 A4 A5 D2";
>
> $str_results = "$str3 $str1 $str2";
>
> or
>
> $str_results = join(' ',$str3,$str1,$str2);
>
> --
> ~~~~~~~~~~~~~~~~|It is by caffeine alone I set my mind in motion,
> Jeffery Boes |It is by the beans of Java that thoughts acquire speed,
> jboes@qtm.net |The hands acquire shaking, the shaking becomes a warning,
> UIN 3394914 |It is by caffeine alone I set my mind in motion.
>
> -----= 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, 23 Nov 2002 01:54:05 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: string qustion?
Message-Id: <1dBD9.6342$mL2.6321@nwrddc01.gnilink.net>
default wrote:
> There are some strings:
> $str1 = "A1 B2 S2 D4 D3 S2";
> $str2 = "D4 D3 S2 F2 A4 A5 D2";
> $str3 = "X1 Z3 A11 A1 B2";
>
> I want to get the string:
> $str_results = "X1 Z3 A11 A1 B2 S2 D4 D3 S2 F2 A4 A5 D2";
> How to do it with Perl?
Well, the easiest way is
$str_results = "X1 Z3 A11 A1 B2 S2 D4 D3 S2 F2 A4 A5 D2";
This will create the requested target string.
However I have a feeling this is not what you wanted to ask.
I guess there is some relation between the example strings at the top and
the result string at the bottom. However you failed to explain how you get
the result string from the input strings.
Do you just want to concatenate them? Maybe without duplicate words (how do
you define a word)? Does the sequence of the words need to be preserved or
can they be shuffled around?
What is supposed to happen if the sequence is different in different source
strings? Can there be multiple instances of the same word in one source
string (actually this case is covered by your example, but you really have
to search for S2 in str1)? In the target string, maybe coming from different
source strings? What is supposed to happen if e.g. $str4 contains "Z3 A1 M2
M3 M4 D3 M5 M6 S2"? What is supposed to happen with the M values? ....?
Your specification by example is much too insufficient to create any
algorithm or even suggest an idea.
jue
------------------------------
Date: Fri, 22 Nov 2002 20:34:17 -0500
From: Jeff Boes <jboes@qtm.net>
Subject: Re: Timers
Message-Id: <nnmttugerlq256r4flgc9b90umfsoaq60e@4ax.com>
At some point in time, Ian.H <ian@WINDOZEdigiserv.net> wrote:
>Not so long ago, I wrote an IRC bot for my server using the Net::IRC
>and Net::IRC::Event modules (yup, I'm aware that Net::IRC is
>depreciated), and I'm looking to include a timer event.
>
>I've looked in the doc at the alarm() function, but this doesn't seem
>to be what I'm after, likewise, I've searched CPAN for timer modules,
>and there appears to be a varied selection.
The Event.pm module, available from CPAN, is what I use.
--
~~~~~~~~~~~~~~~~|It is by caffeine alone I set my mind in motion,
Jeffery Boes |It is by the beans of Java that thoughts acquire speed,
jboes@qtm.net |The hands acquire shaking, the shaking becomes a warning,
UIN 3394914 |It is by caffeine alone I set my mind in motion.
-----= 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: 22 Nov 2002 15:16:05 -0800
From: jmh17@pitt.edu (john harrold)
Subject: Re: user interfaces (text)
Message-Id: <31d0e2b6.0211221516.f2cf41e@posting.google.com>
"Tulan W. Hu" <twhu@lucent.com> wrote in message news:<aqorct$6pr@netnews.proxy.lucent.com>...
> "john harrold" <jmh17@pitt.edu> wrote in ...
> > hey.
> >
> > i've got a database app that i wrote as a cgi application. when i was
> > writing it, i put all of the mechanics into perl modules-effectively
> > separating the userinterface and the actual actions being preformed.
> > now i want to write a consol user interface to the application. i have
> > a few questions:
> >
> > o is it possible to use some set of libraries that
> > will allow me to abstract out the menuing to make
> > a gui implementation easier in the future?
>
> use Tk;
> download Tk from cpan
sorry, i must be missing things here. can you point to the portion of
the Tk perl module which deals with console interfaces. i simply dont
see it.
thanks.
------------------------------
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 4164
***************************************
