[24484] in Perl-Users-Digest
Perl-Users Digest, Issue: 6666 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 8 14:11:00 2004
Date: Tue, 8 Jun 2004 11:10:11 -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 Tue, 8 Jun 2004 Volume: 10 Number: 6666
Today's topics:
New to Perl: Need help with a script (Jim Moser)
Re: Newbie <fatted@spymac.com>
Re: Newbie <tore@aursand.no>
Re: Newbie <tadmc@augustmail.com>
Re: Newbie <dwall@fastmail.fm>
Re: perl style and returning from function? (Sara)
Re: Print a section of a text file. (Prabh)
Re: Print a section of a text file. (Prabh)
Re: Print a section of a text file. <schaumfestiger@gmx.de>
Re: Print a section of a text file. <schaumfestiger@gmx.de>
Re: Print a section of a text file. <schaumfestiger@gmx.de>
signal not being caught when re-exec()d <pinyaj@rpi.edu>
sub returning nothing <MyFirstnameHere.News1@gustra.org>
Re: sub returning nothing <pinyaj@rpi.edu>
Re: sub returning nothing <nobull@mail.com>
Re: sub returning nothing <nobull@mail.com>
Re: syntax $_[0] (Sara)
Text GUI with Perl (Thorsten Gottschalk)
Re: Text GUI with Perl <twhu@lucent.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Jun 2004 08:05:21 -0700
From: jamesmmoser@yahoo.com (Jim Moser)
Subject: New to Perl: Need help with a script
Message-Id: <d3b7b1c8.0406080705.6809dd9f@posting.google.com>
I'm trying to write a simple network monitoring tool in Perl. The
source code is below. The script parses the /etc/hosts file (or a
similarly formated file) and pings each host, giving it a designation
of UP or DOWN. The script repeats this at whatever interval I
designate.
So far the script is functional; however, at each interval I'm calling
system(clear) to clear the screen and update the list. This looks very
sloppy to the end user and I would like the script to keep the IP and
hostname on screen and only update the UP|DOWN field one at a time. If
this is simple to do, could someone provide some sample code? If it's
not quite so simple could someone point me in the right direction to
get started. I am using O'Reilly Programming Perl 3rd Ed and O'Reilly
Perl Cookbook as references.
Also, any conductive criticism is appreciated.
#!/usr/bin/perl
use Net::Ping;
# Process arguements
while (@ARGV and $ARGV[0] =~ /^-/) {
$_ = shift;
last if /^--$/;
if (/^-f(.*)/) { $hostfile = $1 }
if (/^-i(.*)/) { $int = $1 }
if (/^-\?|^-h/) { usage(); }
}
sub usage() {
print "Usage: ping.pl options
ping.pl [ -f | -i | -h | -? ]
Options:
-f<filename>
File should be a space delimited file with a list of IP addresses
and hostnames. Use /etc/hosts as an example. If there are multiple
hostnames associated with a single IP address only the first
hostname will be processed. If a file is not specified, the
/etc/hosts file will be used by default.
-i<interval>
This is the interval in seconds to refreshing the server list.
If no interval is specified, a default interval of 30 seconds is
used.
-h display this help screen
-? display this help screen
Examples:
ping.pl -f/etc/hosts -i30\n";
exit;
}
# Set default values if no arguments were supplied
unless (defined($hostfile)) { $hostfile = "/etc/hosts" }
unless (defined($int)) { $int = "30" }
open(HOSTFILE, $hostfile);
# Create a hash of the hostfile; omitting comments, localhost, and
blank lines
LINE: while (<HOSTFILE>) {
next LINE if /^#/;
next LINE if /^127/;
next LINE if /^\s/;
($ip, $hostname) = split /\s/;
@fields = split ' ', $hostname;
$list{$ip} = [ @fields ];
}
# Ping each host once and label UP or DOWN
sub getstatus {
$p = Net::Ping->new("icmp");
foreach $server ( keys %list ) {
if ($p->ping($server, 1)) {
$status = "UP";
}else{
$status = "DOWN";
}
write STDOUT;
}
}
# Make it pretty
format STDOUT =
@<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<< @<<<<
@{ $list{$server} }, $server, $status
}
while (1) {
system(clear);
getstatus();
sleep($int);
}
------------------------------
Date: Tue, 08 Jun 2004 15:41:21 +0200
From: Fatted <fatted@spymac.com>
Subject: Re: Newbie
Message-Id: <2iltpsFosu1nU1@uni-berlin.de>
Bernard El-Hagin wrote:
> serverin2000@yahoo.com (Sree) wrote:
>
>
>>Hi all,
>> I am new to this perl scripting language.Please help me in
>> starting
>>this.(by giving some URLs and some good books name).If you can
>>tell me how strong this language is, it would be appreciated.
>
>
>
> It can lift a two ton truck with its bare hands.
>
How does that compare to other languages?
------------------------------
Date: Tue, 08 Jun 2004 16:05:30 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: Newbie
Message-Id: <pan.2004.06.08.14.05.06.248292@aursand.no>
On Tue, 08 Jun 2004 15:41:21 +0200, Fatted wrote:
>>> If you can tell me how strong this language is, it would be
>>> appreciated.
>> It can lift a two ton truck with its bare hands.
> How does that compare to other languages?
Most languages can lift a two ton truck, but Perl is able to do it in many
different ways...? :)
--
Tore Aursand <tore@aursand.no>
"When you love someone, all your saved-up wishes start coming out."
(Elizabeth Bowen)
------------------------------
Date: Tue, 8 Jun 2004 09:14:21 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Newbie
Message-Id: <slrnccbidt.sbe.tadmc@magna.augustmail.com>
Bernard El-Hagin <bernard.el-haginDODGE_THIS@lido-tech.net> wrote:
> serverin2000@yahoo.com (Sree) wrote:
>
>> If you can
>> tell me how strong this language is, it would be appreciated.
>
>
> It can lift a two ton truck with its bare hands.
You can smell it from 10km away.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 08 Jun 2004 16:37:14 -0000
From: "David K. Wall" <dwall@fastmail.fm>
Subject: Re: Newbie
Message-Id: <Xns9502806279B51dkwwashere@216.168.3.30>
Sree <serverin2000@yahoo.com> wrote:
> I am new to this perl scripting language.Please help me in
> starting
> this.(by giving some URLs and some good books name).If you can
> tell me how strong this language is, it would be appreciated.
For all things Perl: http://www.perl.org/
Learning Perl: http://learn.perl.org/
------------------------------
Date: 8 Jun 2004 08:29:28 -0700
From: genericax@hotmail.com (Sara)
Subject: Re: perl style and returning from function?
Message-Id: <776e0325.0406080729.7be0e74c@posting.google.com>
Paul Lalli <ittyspam@Yahoo.com> wrote in message news:<20040604163907.W8971@dishwasher.cs.rpi.edu>...
> On Fri, 4 Jun 2004, Uri Guttman wrote:
>
> > >>>>> "AQ" == Ala Qumsieh <notvalid@email.com> writes:
> >
> > AQ> Uri Guttman wrote:
> > >>>>>>> "BM" == Ben Morrow <usenet@morrow.me.uk> writes:
> >
> > BM> return $rc == 1 ? 1 : 0;
> > >> why not just return $rc == 1? the OP didn't specify what the false
> > >> value
> > >> must be.
> >
> > AQ> In this case,
> >
> > AQ> return $rc;
> >
> > AQ> should suffice.
> >
> > not necessarily. if $rc is 2 he still wants to return 1. the real
> > question is can he directly return the value $rc == 1? or must the false
> > value be 0 and not ''?
>
>
> The original code was
> > > > return ($rc and $rc == 1) ? 1 : 0;
>
> That implies that if $rc is 2, he wants to return 0, doesn't it?
>
> Paul Lalli
sub x
{ code
code
.
.
$r == 1;
}
------------------------------
Date: 8 Jun 2004 06:54:30 -0700
From: Prab_kar@hotmail.com (Prabh)
Subject: Re: Print a section of a text file.
Message-Id: <e7774537.0406080554.ee4bc1b@posting.google.com>
Paul Lalli <ittyspam@yahoo.com> wrote in message news:<20040607194210.N8971@dishwasher.cs.rpi.edu>...
> On Mon, 7 Jun 2004, Prabh wrote:
>
> > Hello all,
> > I'm trying to print a section of a text file which has the following
> > contents.
> >
> > ===========================
> > .
> > .
> > .
> > Files Section:
> > {
> > File1:
> > {
> > Description1
> > Size1
> > Date1
> > }
> >
> > File2:
> > {
> > Description2
> > Size2
> > Date2
> > }
> > }
> > .
> > .
> > ===========================
> >
> > In here, I want to print the contents of "File Section".
> >
> > I tried the following:
> >
> > #!/usr/local/bin/perl
> >
> > use strict ;
> > use warnings;
> >
> > open(FDL,"file.txt") or die "Can't open file.txt: $!\n" ;
> > while(<FDL>)
> > {
> > chomp ;
> > print "$_\n" if ( /^Files Section/ .. /\}/ ) ;
> > }
> > close(FDL) ;
> >
> > ====================================
> > This only prints the contents till the first occurence of the closing
> > brace, i.e., till Date1 of the first file1.
> >
> > How do I tell it to "print till the closing brace of Files Section,
> > not just the first occurence of }"?
> >
>
>
> Is that file exactly as you showed it above, including all whitespace? If
> so, your second pattern match can just look for a right-brace as the first
> character on the line:
Thanks everyone for your responses.
After looking all over the file.txt, unfortunately the right-brace is
not always the first char. I guess, I cant use the "starts with }" as
my delimiter.
Heres a long shot, but anyone have an idea what algorithm the VI
editor uses to match the { with the corresponding }. It does it so
well, if the algorithm is simple enough, maybe I could replicate it
:).
Thanks,
Prabh
------------------------------
Date: 8 Jun 2004 07:22:43 -0700
From: Prab_kar@hotmail.com (Prabh)
Subject: Re: Print a section of a text file.
Message-Id: <e7774537.0406080622.4375a334@posting.google.com>
Prab_kar@hotmail.com (Prabh) wrote in message news:<e7774537.0406071514.41242a53@posting.google.com>...
> Hello all,
> I'm trying to print a section of a text file which has the following
> contents.
>
> ===========================
> .
> .
> .
> Files Section:
> {
> File1:
> {
> Description1
> Size1
> Date1
> }
>
> File2:
> {
> Description2
> Size2
> Date2
> }
> }
> .
> .
> ===========================
>
> In here, I want to print the contents of "File Section".
>
> I tried the following:
>
> #!/usr/local/bin/perl
>
> use strict ;
> use warnings;
>
> open(FDL,"file.txt") or die "Can't open file.txt: $!\n" ;
> while(<FDL>)
> {
> chomp ;
> print "$_\n" if ( /^Files Section/ .. /\}/ ) ;
> }
> close(FDL) ;
>
> ====================================
> This only prints the contents till the first occurence of the closing
> brace, i.e., till Date1 of the first file1.
>
> How do I tell it to "print till the closing brace of Files Section,
> not just the first occurence of }"?
>
> 2. Also, whats the closest Perl-equivalent module/package for Java's
> Velocity to readin a well-formatted file, because file.txt is always
> of a standard format.
>
> Thanks for your time,
> Prabh
Hello all,
I'm posting from Google, time-delay and all.
I was able to print the Files section this way:
=============================================================
#!/usr/local/bin/perl
use strict ;
use warnings ;
my $open_brace = 0 ; # Count the open braces
my $close_brace = 0 ; # Count the close braces
my $in_FilesSection = 0 ; # This will tell if I should start
printing.
open(FDL,"file.txt") or die "Can't open file.txt: $!\n" ;
while(<FDL>)
{
chomp ;
$in_FilesSection = 1 if ( /^Files section/i ) ;
if ( $in_FilesSection )
{
$open_brace++ if ( /\}/ ) ;
$close_brace++ if ( /\{/ ) ;
print "$_\n" ;
last if ( ( $open_brace == $close_brace ) && (
$open_brace and $close_brace != 0 ) ) ;
}
}
close(FDL) ;
==================================================================
Inside the Files section, I increment the open or close brace count
and keep printing "$_" till the count of open brace is equal to close
brace and they're non-zero.
This did print the entire Files section and not just till the first }.
I'd appreciate if someone could give some feedback on my solution.
Thanks for your time,
Prabh
------------------------------
Date: Tue, 08 Jun 2004 16:36:26 +0200
From: Herr Hardy <schaumfestiger@gmx.de>
Subject: Re: Print a section of a text file.
Message-Id: <kgjbc0ps3gm6li59sm0g9ftd6lfmv1ktnf@4ax.com>
Prab_kar@hotmail.com (Prabh) wrote on 7 Jun 2004 16:14:21 -0700:
>In here, I want to print the contents of "File Section".
Hmmh, counting FILE SECTION and { || } to open or close the
'print-gate'.
Ciao Hardy
#!/usr/bin/perl
use warnings;
use strict;
my $print_from_here = 0;
for(<DATA>){
$print_from_here = -1 if(/Files Section/);
$print_from_here++ if(/{/);
$print_from_here-- if(/}/);
next if((/{/) && ($print_from_here == 0));
# ^ just to avoid printig the closing brace
# of FILE SECTION where $print_from_here == 0
print $print_from_here.$_ if ($print_from_here >= 0);
}
__DATA__
> > Files Section:
> > {
> > File1:
> > {
> > Description1
> > Size1
> > Date1
> > }
> >
> > File2:
> > {
> > Description2
> > Size2
> > Date2
> > }
> > }
> > Files Section:
> > {
> > File3:
> > {
> > Description1
> > Size1
> > Date1
> > }
> >
> > File4:
> > {
> > Description2
> > Size2
> > Date2
> > }
> > }
------------------------------
Date: Tue, 08 Jun 2004 16:39:01 +0200
From: Herr Hardy <schaumfestiger@gmx.de>
Subject: Re: Print a section of a text file.
Message-Id: <jpjbc09h52vv348g23sedctlgpmqdu61bk@4ax.com>
Herr Hardy <schaumfestiger@gmx.de> wrote on Tue, 08 Jun 2004 16:36:26
+0200:
Sorry,
> print $print_from_here.$_ if ($print_from_here >= 0);
is developing-status, should be
print if ($print_from_here >= 0);
at last.
Ciao Hardy
------------------------------
Date: Tue, 08 Jun 2004 16:48:50 +0200
From: Herr Hardy <schaumfestiger@gmx.de>
Subject: Re: Print a section of a text file.
Message-Id: <m9kbc05quntk37cucdr8js4c8pa3vae7g7@4ax.com>
Herr Hardy <schaumfestiger@gmx.de> wrote on Tue, 08 Jun 2004 16:36:26
+0200:
Well, I shouldn't print ALL USELESS CONTENT of file.txt that appears
before 1st FILE SECTION. So we have to 'initialise' the counting
#!/usr/bin/perl
use warnings;
use strict;
my $print_from_here = 0;
open(FDL,"file.txt") or die "Can't open file.txt: $!\n" ;
while(<FDL>){
$print_from_here = 1 if(/Files Section/);
$print_from_here++ if(/{/);
$print_from_here-- if(/}/);
next if((/{/) && ($print_from_here == 2));
print if ($print_from_here >= 2);
}
close(FDL);
------------------------------
Date: Tue, 8 Jun 2004 12:13:29 -0400
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
Subject: signal not being caught when re-exec()d
Message-Id: <Pine.SGI.3.96.1040608120641.24511B-100000@vcmr-64.server.rpi.edu>
Here is a very simple demonstration of my problem:
#!/usr/bin/perl
BEGIN {
my @args = ($^X, $0, @ARGV);
warn "$$: [@args]\n";
$SIG{USR1} = sub {
warn "$$: re-exec()ing with [@args]\n";
exec @args;
};
}
while (1) { }
I call that code 'exec.pl', and run it thus:
% perl exec.pl arg &
and I get
1234: [/usr/bin/perl exec.pl arg]
Then I send it a USR1 signal (numerical value is 10):
% kill -10 1234
and I get
1234: re-exec()ing with [/usr/bin/perl exec.pl arg]
1234: [/usr/bin/perl exec.pl arg]
Then I try to send it the signal again... and nothing. No messages at
all. But the program is running, with the same PID... I'm baffled.
--
Jeff Pinyan RPI Acacia Brother #734 RPI Acacia Corp Secretary
"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, 08 Jun 2004 17:55:08 +0200
From: Gunnar Strand <MyFirstnameHere.News1@gustra.org>
Subject: sub returning nothing
Message-Id: <ca4ngs$3fc$1@hudsucker.umdac.umu.se>
Hi,
IANAPG (I Am Not A Perl Guru), but I found something which got me a
little worried. This has probably been discussed ad nauseum, but I
haven't found anything about it in the FAQ. sub's returning nothing
can be dangerous in some contexts. Consider this code:
#!/usr/bin/perl
use strict;
use warnings;
sub isok {
if ( $_[0] ) {
print "Ok\n";
} else {
print "Nok\n";
}
}
sub myvoid {
}
isok( myvoid(), 1 );
isok( ! myvoid(), 1 );
This script will print
Ok
Ok
and not any 'Nok'. I assume that's because 'nothing' is magically
removed from @_, leaving only the '1', right? I am trying out
the Test::Unit suite and had an empty sub in the code under test
while using assert in my test case, and all tests passed:
$self -> assert( $target -> the_test(), "Test OK" );
$self -> assert( ! $target -> the_test(), "Test NOK" );
IMHO, it would have been nice if perl could have issued some kind
of warning, since relying on 'nothing' as a return value seems...
well, not-so-common. Maybe perl is making heavy use of it internally?
Regards,
/Gunnar
------------------------------
Date: Tue, 8 Jun 2004 12:41:50 -0400
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
Subject: Re: sub returning nothing
Message-Id: <Pine.SGI.3.96.1040608122617.25170B-100000@vcmr-64.server.rpi.edu>
On Tue, 8 Jun 2004, Gunnar Strand wrote:
>sub isok {
> if ( $_[0] ) {
> print "Ok\n";
> } else {
> print "Nok\n";
> }
>}
>
>sub myvoid {
>}
>
>isok( myvoid(), 1 );
>isok( ! myvoid(), 1 );
>
>This script will print
>
>Ok
>Ok
>
>and not any 'Nok'. I assume that's because 'nothing' is magically
>removed from @_, leaving only the '1', right? I am trying out
Because isok() isn't enforcing any calling context on its arguments,
myvoid() is called in list context (since it's in the argument list to a
function), and nothingness in list context is (), and empty list.
--
Jeff Pinyan RPI Acacia Brother #734 RPI Acacia Corp Secretary
"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: 08 Jun 2004 18:06:42 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: sub returning nothing
Message-Id: <u97juiou71.fsf@wcl-l.bham.ac.uk>
Gunnar Strand <MyFirstnameHere.News1@gustra.org> writes:
> Hi,
>
> IANAPG (I Am Not A Perl Guru), but I found something which got me a
> little worried. This has probably been discussed ad nauseum,
Yes I can recall one really nausiating discussion of this.
> but I
> haven't found anything about it in the FAQ. sub's returning nothing
> can be dangerous in some contexts. Consider this code:
>
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> sub isok {
> if ( $_[0] ) {
> print "Ok\n";
> } else {
> print "Nok\n";
> }
> }
>
> sub myvoid {
> }
That is not a subroutine returning nothing.
That is an empty function.
In a list context an empty function retunrns its arguments.
In a scalar context it returns undef.
How ever I wouldn't consider this to be defined bevaviour. I would be
inclined to consider the behaviour of an empty function wrt what it
returns to be undefined.
So let us instead consider a function that returns nothing.
sub myvoid {
return;
}
> isok( myvoid(), 1 );
> isok( ! myvoid(), 1 );
>
> This script will print
>
> Ok
> Ok
>
> and not any 'Nok'. I assume that's because 'nothing' is magically
> removed from @_, leaving only the '1', right?
No magic. If you call a function in a list context and it returns
'nothing' then nothing is an empty list. If you append a 1 to an
emplt list you get a single elemement list containing the value 1.
> I am trying out
> the Test::Unit suite and had an empty sub in the code under test
> while using assert in my test case, and all tests passed:
>
> $self -> assert( $target -> the_test(), "Test OK" );
> $self -> assert( ! $target -> the_test(), "Test NOK" );
>
> IMHO, it would have been nice if perl could have issued some kind
> of warning, since relying on 'nothing' as a return value seems...
> well, not-so-common.
I'm affraid that calling functions in a list context is common in
perl.
------------------------------
Date: 08 Jun 2004 18:11:28 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: sub returning nothing
Message-Id: <u91xkqotz3.fsf@wcl-l.bham.ac.uk>
Brian McCauley <nobull@mail.com> writes:
> Gunnar Strand <MyFirstnameHere.News1@gustra.org> writes:
>
> > Hi,
> >
> > IANAPG (I Am Not A Perl Guru), but I found something which got me a
> > little worried. This has probably been discussed ad nauseum,
>
> Yes I can recall one really nausiating discussion of this.
Sorry, hit send too soon before I looked up the thread on Google...
http://groups.google.com/groups?threadm=atqp0b%24246%241%40newslocal.mitre.org
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 8 Jun 2004 07:59:31 -0700
From: genericax@hotmail.com (Sara)
Subject: Re: syntax $_[0]
Message-Id: <776e0325.0406080659.1ed0876e@posting.google.com>
jon.m.landenburger@verizon.com (Jon Landenburer) wrote in message news:<feee7535.0406070528.79d5ca1f@posting.google.com>...
> I inherited a small perl program. It has this syntax whjich I donnot
> iunderstand.
>
> while (<FDF>)
> {
> $value = $_;
> if ($_[0])
> { print TEMP $value;
> next;
> }
> $service_order = substr( $value, 21, 18);
> if ( $_[1] ) { $last_so = $service_order;} ## record 1 force
> feed
> . . .
> . . .
>
>
> Its the $_[0] I dont understand. If this were a subroutine I would
> understand that tto be the first passed parameter. But this is not a
> subroutine . I see the comment indicating that $_[1] but that line
> never gets hit
Not seeing the entire context it's difficult to say. Perhaps this
"used to be" subroutine code that was moved into main and this was
overlooked?
Here's a hint- run it with "perl -wd", and examine the contents ot
$_[0] or @_ on that line. If it's undef then you probably have a
problem.
G
------------------------------
Date: 8 Jun 2004 06:59:18 -0700
From: iqrity@web.de (Thorsten Gottschalk)
Subject: Text GUI with Perl
Message-Id: <beb38f7.0406080559.31f4c402@posting.google.com>
Hi all,
I search a module for doing easy text dialogs with perl.
I tried to find something in CPAN, but I only find curses or something similar.
But curses is to complex for that I want to do.
I only need very basic dialoges like that tool dialog under Linux can provide.
Is there an interface or module for that?
Remeber I need no colors, no mouse, only text.
Thanks.
Bye
Thorsten
------------------------------
Date: Tue, 8 Jun 2004 10:19:10 -0400
From: "Tulan W. Hu" <twhu@lucent.com>
Subject: Re: Text GUI with Perl
Message-Id: <ca4ht0$bjo@netnews.proxy.lucent.com>
"Thorsten Gottschalk" wrote in...
> Hi all,
>
> I search a module for doing easy text dialogs with perl.
> I tried to find something in CPAN, but I only find curses or something
similar.
> But curses is to complex for that I want to do.
> I only need very basic dialoges like that tool dialog under Linux can
provide.
> Is there an interface or module for that?
>
> Remeber I need no colors, no mouse, only text.
http://search.cpan.org/~ni-s/Tk-804.027/
http://www.perltk.org/contrib/perltk-01/index.htm
Tk::Dialog
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 6666
***************************************
