[25383] in Perl-Users-Digest
Perl-Users Digest, Issue: 7628 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jan 11 03:05:35 2005
Date: Tue, 11 Jan 2005 00:05:12 -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 Tue, 11 Jan 2005 Volume: 10 Number: 7628
Today's topics:
Re: complex numbers <itsme@yahoo.com>
DBI , Oracle, Shutting down <carlton_gregory@yahoo.com>
differences <webmaster @ infusedlight.net>
Re: eliminating empty elements of a list <abigail@abigail.nl>
Re: eliminating empty elements of a list <matternc@comcast.net>
Re: eliminating empty elements of a list <david@slytobias.com>
Re: Extarcting And Storing a String <hx_101@hotmail.com>
Help ! Unable to create tmp file using a CGI script <Arun.SNarayanan@gmail.com>
Re: Help ! Unable to create tmp file using a CGI script <spamtrap@dot-app.org>
How to change configuration on installed Perl ? <a@b.c>
Re: I don't get what this is de-referencing. <webmaster @ infusedlight.net>
Re: Interactive shell from system()? <No_4@dsl.pipex.com>
Re: IPC looking for simple/best way to communicate <abigail@abigail.nl>
Re: IPC looking for simple/best way to communicate xhoster@gmail.com
Re: IPC looking for simple/best way to communicate xhoster@gmail.com
kick external script without waiting for it to end <steffen.knobloch@de.bosch.com>
Re: kick external script without waiting for it to end <spamtrap@dot-app.org>
Re: Tk: Call subroutine when MainWindow is realized? <lusol@Dragonfly.cc.lehigh.edu>
Re: Tk: Call subroutine when MainWindow is realized? <josef.moellers@fujitsu-siemens.com>
URGENT --- Aspell Scores <sumitra@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 11 Jan 2005 00:11:01 GMT
From: "It's me" <itsme@yahoo.com>
Subject: Re: complex numbers
Message-Id: <pQEEd.530$8Z1.216@newssvr14.news.prodigy.com>
For those of us that works with complex numbers, having complex number as a
natively supported data type is a big advantage. Non-native add-ons are not
sufficient and lead to very awkward program code.
"Jürgen Exner" <jurgenex@hotmail.com> wrote in message
news:Fm6Ed.3556$u47.321@trnddc09...
> xah@xahlee.org wrote:
> > #python supports complex numbers.
> [...]
>
> So?
>
The world would come to a halt if all of a sudden nobody understands complex
numbers anymore. :-)
> > # Perl doesn't support complex numbers. But there are packages that
> > supports it.
>
> The Math::Complex module is part of the standard installation already, no
> need for any "packages" (whatever that might be).
> Did you check "perldoc Math::Complex"
>
> NAME
> Math::Complex - complex numbers and associated mathematical functions
> [...]
>
> jue
>
>
------------------------------
Date: 10 Jan 2005 19:44:55 -0800
From: "g3000" <carlton_gregory@yahoo.com>
Subject: DBI , Oracle, Shutting down
Message-Id: <1105415095.667048.146320@f14g2000cwb.googlegroups.com>
Can you use DBI ( DBD::Oracle ) to shutdown and startup and Oracle8i
database?
------------------------------
Date: Mon, 10 Jan 2005 21:18:32 -0700
From: "Robin" <webmaster @ infusedlight.net>
Subject: differences
Message-Id: <nqudnbV1kYSqzn7cRVn-qw@comcast.com>
What are respectively the difference with linux and windows installed on
different partitions and windows by itself perl on both machines has
reletively the same run time, but that is just a guess. I have just
installed suse linux 9.1 personal and am wondering how to get a hold of perl
modules and then install them. Let me know if this will be a problem for
some of you to answer or not. Anyway, thanks in advance.
-also I need beta testers for the script at
www.infusedlight.net/cgi-bin/bbs.pl - please be kind.
--
Robin
--
webmaster@infusedlight.net
--
------------------------------
Date: 10 Jan 2005 23:21:27 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: eliminating empty elements of a list
Message-Id: <slrncu63fn.ucb.abigail@alexandra.abigail.nl>
Hendrik Maryns (hendrik_maryns@despammed.com) wrote on MMMMCL September
MCMXCIII in <URL:news:JeGdnZME291WYn_cRVnyvg@scarlet.biz>:
&& Anno Siegel schreef:
&& >
&& > my @newlist = grep { defined && length } @oldlist;
&&
&& You are sure this works on Windows right?
What happened when you tried? Djees man, it's one line!
&& PS: What is the difference between c.l.p.misc, c.l.p, c.l.p.moderated
&& and c.l.p.tk?
c.l.p has been dead for almost 10 years now. c.l.p.moderated is like
misc, but with people rolling a die to determine whether your post should
be allowed or not, c.l.p.tk is about Perl and Tk, and c.l.p.misc is about
Perl related discussions which aren't covered in another group in the
c.l.p hierarchy. This means that any crossposting between c.l.p.misc and
another group from the c.l.p hierarchy is wrong. If it's on-topic in the
other group, it doesn't belong in c.l.p.misc, and if it's not on-topic
in the other group, it shouldn't have been crossposted there.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
------------------------------
Date: Mon, 10 Jan 2005 18:23:06 -0500
From: Chris Mattern <matternc@comcast.net>
Subject: Re: eliminating empty elements of a list
Message-Id: <LNqdnVZuV5zBk37cRVn-pA@comcast.com>
Hendrik Maryns wrote:
> Anno Siegel schreef:
>> Jim Gibson <jgibson@mail.arc.nasa.gov> wrote in comp.lang.perl.misc:
>>
>> [...]
>>
>>
>>>Keep in mind that this will also eliminate any element with a value 0.
>>>If that is not wanted, change to:
>>>
>>> my @newlist = grep { defined && ($_ ne '') } @oldlist;
>>
>>
>> Equivalent, but more common:
>>
>> my @newlist = grep { defined && length } @oldlist;
>>
>> Anno
>
> Thanks all!
> Actually, I solved my problem in a totally different way, making what I
> asked here unnecessary, but thanks anyway. I guess, I'll have to read
> some more tutorials, as I didn't know you could use grep _inside_ Perl.
> You are sure this works on Windows right?
Yes. You are not using the Unix utility "grep", you are using the Perl
function "grep," which is available provided that you're using Perl.
>
> Hendrik
>
> PS: What is the difference between c.l.p.misc, c.l.p, c.l.p.moderated
> and c.l.p.tk?
c.l.p.misc = where you should generally be posting
c.l.p = dead group, even though your newserver may still be mistakenly
carrying it. Don't post here.
c.l.p.moderated = moderated group. Post here if you're willing to submit
to the moderation. Read the c.l.p.moderated FAQ before trying this group.
c.l.p.tk = for questions about Perl/Tk, which is Perl with GUI widgets
added on for your point-n-click pleasure.
--
Christopher Mattern
"Which one you figure tracked us?"
"The ugly one, sir."
"...Could you be more specific?"
------------------------------
Date: Tue, 11 Jan 2005 00:40:11 GMT
From: David Sletten <david@slytobias.com>
Subject: Re: eliminating empty elements of a list
Message-Id: <LfFEd.52507$Ew6.34196@twister.socal.rr.com>
Hendrik Maryns wrote:
> Hi,
>
> I was wondering wether there is an easy way to eliminate all undefined
> or empty elements of a list, except from skipping through it with a
> foreach loop and rebuilding it. So, if I had a list like this:
>
> (5,"jan","",$whatever,undef,undef,"someotherstring")
>
> The result should be
>
> (5,"jan",$whatever,"someotherstring")
>
> Notice that I want the empty string to be removed too.
>
> If this is a FAQ, I apologise, and would be very happy with a link.
>
> Thanks, Hendrik
This will remove all of the undef elements:
@out = grep { defined($_) } @in;
Or if you want to be chintzy:
@out = grep { defined } @in;
However, that leaves empty strings in. On the other hand, this gets rid
of undef and empty strings:
@out = grep { $_ } @in;
But it also removes 0's.
So this should work for your purposes:
@out = grep { $_ || $_ eq '0' } @in;
(Of course, if the value of $whatever is undef or an empty string it too
will be removed.)
David Sletten
------------------------------
Date: Mon, 10 Jan 2005 19:48:28 -0500
From: Digger <hx_101@hotmail.com>
Subject: Re: Extarcting And Storing a String
Message-Id: <tg86u0966ripup2p0553vgl3n14qbun6ej@4ax.com>
Is it possible to add another loop inside the while loop to spit out a
number "1" to a file only if a link has the FAILURE????
On 9 Jan 2005 17:28:23 -0800, charley@pulsenet.com wrote:
>
>Sorry, my bad. Joe's code was correct for the data example that the
>poster provided. I should've read the thread more closely.
------------------------------
Date: 10 Jan 2005 20:41:13 -0800
From: "Arun" <Arun.SNarayanan@gmail.com>
Subject: Help ! Unable to create tmp file using a CGI script
Message-Id: <1105418473.392349.105750@f14g2000cwb.googlegroups.com>
This is the code that I am using to create the file and am
failing.Please help.
thanks
#!/opt/bin/perl -wT
use strict;
use IO::File;
$file = "$ENV{'PWD'}" . "$ENV{'PATH_INFO'}";
$tmp = $file . ".tmp";
$tmp =~ s/\//@/g; # make a unique tmp file name from the path
$tmp = "/tmp/$tmp";
$fh = IO::File->new("> $tmp")
or die "Couldn't open $tmp for writing: $!\n";
while (<STDIN>)
{
if(defined $fh)
{
print $fh "$_\n";
}
}
$fh->close;
------------------------------
Date: Tue, 11 Jan 2005 00:12:00 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Help ! Unable to create tmp file using a CGI script
Message-Id: <3sudnSHZPOq__X7cRVn-vw@adelphia.com>
Arun wrote:
> $file = "$ENV{'PWD'}" . "$ENV{'PATH_INFO'}";
> $tmp = $file . ".tmp";
> $tmp =~ s/\//@/g; # make a unique tmp file name from the path
Wow, two FAQs in three lines of code. That takes talent. :-)
Have a look at:
perldoc -q always quoting
perldoc -q temporary
> $fh = IO::File->new("> $tmp")
> or die "Couldn't open $tmp for writing: $!\n";
Why did you include an error message if you're not going to read what it
prints? The message in $! will tell you why it couldn't open $tmp.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Tue, 11 Jan 2005 08:57:40 +0100
From: "Yan" <a@b.c>
Subject: How to change configuration on installed Perl ?
Message-Id: <41e386f0$0$6409$8fcfb975@news.wanadoo.fr>
Hi !
I wonder if there is a command for changing config info (stored in Config.pm
and others...) on an installed version of Perl (5.8.6) whithout reinstalling
it fully.
My Perl is working fine for most tasks, but if I want to install a new
module or use scripts like pod2html, it won't work because of wrong paths in
config files (my perl was built in /users/user1 and I want to copy it in
/users/user2 on another machine).
I have tried to replace /users/user1 with /users/user2 in Config.pm and it
seems to work, but I would prefer a built-in "reconfig" command, if there is
any...
Best Regards,
Yannick
------------------------------
Date: Mon, 10 Jan 2005 21:14:43 -0700
From: "Robin" <webmaster @ infusedlight.net>
Subject: Re: I don't get what this is de-referencing.
Message-Id: <9PydnebSTYjOz37cRVn-3A@comcast.com>
"grocery_stocker" <cdalten@gmail.com> wrote in message
news:1105352016.196851.25600@c13g2000cwb.googlegroups.com...
>I have question about line 10 for the following code.
>
> 1 #!/usr/bin/perl
> 2
> 3 { package Horse;
> 4 @ISA = qw(Animal);
> 5 sub sound {"neigh" }
> 6 sub names {
> 7 print $_[0] , "\n";
> 8 $self = shift;
> 9 #print @_ , "\n";
> 10 $$self;
> 11 }
> 12 sub named {
> 13 $class = shift;
> 14 $name = shift;
> 15 bless \$name, $class;
> 16 }
> 17 }
> 18
> 19 my $tv_horse = Horse->named("Mr. Ed");
> 20 print $tv_horse->names, "\n";
> 21 print Horse->named("Mr. Ed"), "\n";
>
> What is $$self actually de-referencing? I thought it was de-referencing
> $name. But when I replace $$self; with $self->{'name'};, I get "Not
> HASH reference at ./9-horse.pl line 10."
>
> Chad
that means it is something else.
-Robin
>
------------------------------
Date: Tue, 11 Jan 2005 00:39:08 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Interactive shell from system()?
Message-Id: <L_OdneU0UOewvX7cRVnytw@pipex.net>
bh_ent@hotmail.com wrote:
>
> I've written a series of ksh scripts I'd like to launch from my perl
> script, but the ksh scripts are interactive (ie, prompts the user, and
> reads their input), however, this obviously doesn't work via system()
I'm not sure what is "obvious" about this - particularly given that
it works.
e.g., this script:
===== z.sh =====
#!/bin/sh
while echo -n '>> ' && read line; do
echo "Just got: $line"
done
echo
=====
and this perl command:
system("./z.sh");
works perfectly and interactively for me.
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
Date: 10 Jan 2005 23:25:48 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: IPC looking for simple/best way to communicate
Message-Id: <slrncu63nr.ucb.abigail@alexandra.abigail.nl>
whansen_at_corporate-image_dot_com@us.com
(whansen_at_corporate-image_dot_com@us.com) wrote on MMMMCL September MCMXCIII in <URL:news:41e2e98a.3288201@news.sonic.net>:
:)
:) So your advice boils down to, don't ask questions on Usenet?
No.
:) some stats:
:) 1.7GHz Processor
:) 1024 MB
:) 2x80GB raid 1
:) 500 GB montly badwith
:) 10mbps internet connection
:) Mandrake 9.2
:) Perl 5.8.1
:)
:) Speed is important, each process should be able to iterate at 3 per
:) second with the entire lot comeing in at 150 itterations per second,
:) although under actual war conditions this slows down to 10 seconds per
:) cycle or about 5 iterations per second for all processes.
But this is a pretty dumb question to ask on Usenet. If you have such
specific requirements, you should hire a consultant.
:) Cpu utalization is important as the current Shareable implementation
:) uses about 2% of CPU running at 3 requests per second. 50 processes
:) meaning we're at very high CPU usage. However this drops consdierably
:) durring the actual run time when things slow down to 10 seconds per
:) response.
:)
:) Memory is important as it is limited. The current processes use less
:) than 1% of the gig memory each. There is about 400megs free on the
:) system when they are all running. This could be a factor if we
:) increase the 50 processes to 200 or so. We are unable to upgrade
:) memory without a new server and additional costs, so memory is the
:) major factor lmiiting the number of processes we run.
Hire a consultant.
:) > - portability,
:) should work on any reasonable linux box with perl
:) > - maintainance,
:) the code you write needs its oil changed every once in a while?
:) > - scalability,
:) more processes doing the same thing as described above.
:) > - development time,
:) not a huge factor. Getting it done right is more important
:) > - development costs,
:) not really a factor. I'm getting paid
:) > - ease of deployment,
:) sftp
:) > - simplicity,
:) so long as I can figgure it out
:) > - operational costs,
:) not even going to try to figgure that out, doesn't matter or is
:) insignificant.
That still doesn't answer the question what "the best" solution will
be, does it?
You should hire a consultant.
:) On 08 Jan 2005 20:33:03 GMT, Abigail <abigail@abigail.nl> wrote:
Top posting?
Goodbye.
*PLONK*
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: 11 Jan 2005 01:52:29 GMT
From: xhoster@gmail.com
Subject: Re: IPC looking for simple/best way to communicate
Message-Id: <20050110205229.321$zs@newsreader.com>
whansen_at_corporate-image_dot_com@us.com wrote:
> I actually did something like that, but used a string instead of an
> array. It greately sped things up. Each process merely looks for a
> change to the string and if there are any it then decodes the string
> and modifies its internal list.
When you have your variable tied to IPC::Shareable, merely looking for a
change isn't just "merely". It has a lot of overhead. (Not to mention
potential for corruption if you aren't careful about locking).
>
> >> Basicly each process is iterating over a list (array) and every so
> >> often a process gets a result that means that item no longer needs to
> >> be ran, so it should remove it from it's list and notify the other
> >> processes so that they can remove it from theirs as well.
> >
> >What are the consequences if a process doesn't get the message and runs
> >that task anyway? Is it just a waste of resources, or is it fatal to
> >the whole thing you are trying to do?
> >
> >How many such removal messages do you generate, in relation to the full
> >size of the array to iterate over? If small, it would probably be most
> >efficient to just run even the "removed" tasks and then filter them out
> >in post-processing.
>
> It's not fatal, but it wastes the request.
I'm not sure what the "request" is that you are talking about. That
sounds like you are doing some kind of http or other network processing,
rather than the parallel computational processing in a SMP environment what
I had originally thought you were talking about. If you just have one CPU
and are issuing many slow IOs, maybe you should look at using non-blocking
IO in just one process rather than spawning an extravagant number of
processes.
Anyway, unless someone is charging you per request, a request is not
something that can be wasted. Only the resources associated with it can be
wasted, and you should weigh those resources against the resources that, as
you have discovered, are used by excessive IPC::Shareable (or any other
synchronization method).
> Each request has a chance
> of getting a product for my company. So, concentrating on products
> that are still available and not wasting requests on taken products
> will improve our chances of getting products 10-20% or so.
Let us say that the overhead of extremely fine-grained synchronization
means that you can only perform 50 requests per second, with none of them
wasted. While the lowered overhead of more loose synchronization means you
can do 150 requests per second, with 5 of them wasted? Would it be
preferable to have 50 good requests per second or 145 good requests per
second?
> >Each process could keep their own private version of the array, and
> >only refresh it against the shared version (or against a shared
> >exception list) every now and then. How often it would do this refresh
> >would depend on the cost of the refresh vs. the wasted effort that goes
> >into processing tasks that have been removed since the last refresh.
>
> I have it do it for every request. Durring actual conditions the
> requests slow down to a 10 second response which is all the time in
> the world for this use.
If you already have all the time in the world, why are you worried about
further optimizing it?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 11 Jan 2005 02:43:30 GMT
From: xhoster@gmail.com
Subject: Re: IPC looking for simple/best way to communicate
Message-Id: <20050110214330.550$uK@newsreader.com>
whansen_at_corporate-image_dot_com@us.com wrote:
>
> A server would work like this:
>
> Server accepts connections on given port. Connection can be just a
> request or a request with a removal. Sever accepts any removals and
> removes them from it's list and then replies with the next data item
> from it's list for the client to run. Disadvantage - each process must
> connect to the server once for each itteration.
Why would it have to connect once for each iteration? Just connect at
the beginnging, and keep reusing that connection.
> Now the server process would be very simple. It just maintains the
> list and gives out the next element. But I wonder if a single process
> could deal well with 150 or more requests per second. I think I'd just
> have to program it and give it a try. Can anyone comment on this?
My very simple server can process 100 times that much, 1,000,000 processes
per minute. See below. I'm sure the code is lousy in many ways, but it
is just a quick and dirty benchmark.
Xho
#!/usr/bin/perl -w
use strict;
use IO::Select;
use IO::Handle;
my $s=IO::Select->new();
my %s;
foreach (1..50) {
pipe my ($pin,$cout);
pipe my ($cin,$pout);
my $pid = fork(); defined $pid or die;
unless ($pid) { # In the child, interogate parent.
close $pin; close $pout;
select $cout; $|=1;
foreach (1..20000) {
print "giveme!\n";
my $x=scalar <$cin>;
# warn "$$: received $x" if rand()<0.001;
};
exit;
};
close $cout; close $cin;
$pout->autoflush();
$s{$pin}=$pout;
$s->add($pin);
};
my $serial=0;
while ($s->count()) {
my @read=$s->can_read();
foreach (@read) {
my $x=<$_>;
unless (defined $x) { $s->remove($_); next};
die "'$x' ne giveme!" unless $x eq "giveme!\n";
print {$s{$_}} "you get ". $serial++ . "\n";
};
};
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Tue, 11 Jan 2005 08:05:11 +0100
From: "Steffen Knobloch" <steffen.knobloch@de.bosch.com>
Subject: kick external script without waiting for it to end
Message-Id: <crvtr9$cc6$1@ns2.fe.internet.bosch.com>
Hi,
I am about to kick an external perl-script or a shell-command.
But I don't want to wait for it to end.
The main perl-script doesn't continue unless the called script has been
finished or exited.
Any ideas?
Thanks!
Steffen Knobloch
------------------------------
Date: Tue, 11 Jan 2005 02:18:49 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: kick external script without waiting for it to end
Message-Id: <A_KdnXdgoLJE4H7cRVn-iQ@adelphia.com>
Steffen Knobloch wrote:
> I am about to kick an external perl-script or a shell-command.
> But I don't want to wait for it to end.
That's a Frequently Asked Question. For the answer, have a look at:
perldoc -q background
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Tue, 11 Jan 2005 03:18:46 +0000 (UTC)
From: Steve Lidie <lusol@Dragonfly.cc.lehigh.edu>
Subject: Re: Tk: Call subroutine when MainWindow is realized?
Message-Id: <crvgim$55gi$1@ws2.cc.lehigh.edu>
zentara <zentara@highstream.net> wrote:
> On Mon, 10 Jan 2005 09:17:24 +0100, Josef Moellers
> <josef.moellers@fujitsu-siemens.com> wrote:
>
>>Hi,
>>
>>In a small(ish) application that communicates with a smart card reader,
>>I'd like to test the link at the beginning. Since the MainLoop is not
>>yet called, I seem to be unable to create a Dialog to tell the user.
>>
>>Is there any way to call a sub the first thing after the MainWindow is
>>created?
>
> In perldoc Tk::Widget there is
> $mw->waitVisibility;
> and
> $mw->waitVariable(\$var);
> and
> $mw->waitWindow;
>
Use waitVisibility().
------------------------------
Date: Tue, 11 Jan 2005 09:02:59 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Tk: Call subroutine when MainWindow is realized?
Message-Id: <cs012v$e4j$1@nntp.fujitsu-siemens.com>
Steve Lidie wrote:
> zentara <zentara@highstream.net> wrote:
>=20
>>On Mon, 10 Jan 2005 09:17:24 +0100, Josef Moellers
>><josef.moellers@fujitsu-siemens.com> wrote:
>>
>>
>>>Hi,
>>>
>>>In a small(ish) application that communicates with a smart card reader=
,=20
>>>I'd like to test the link at the beginning. Since the MainLoop is not =
>>>yet called, I seem to be unable to create a Dialog to tell the user.
>>>
>>>Is there any way to call a sub the first thing after the MainWindow is=
=20
>>>created?
>>
>>In perldoc Tk::Widget there is
>>$mw->waitVisibility;
>>and=20
>>$mw->waitVariable(\$var);
>>and
>>$mw->waitWindow;
>>
>=20
>=20
> Use waitVisibility().
I don't see how this solves my problem. I'd need two threads: one which=20
realizes the MainWindow, one which waits for its visibility.
I had hoped for a callback mechanism, e.g.
waitVisibility($top, \&checkconnection);
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 10 Jan 2005 23:51:28 -0800
From: "Sum" <sumitra@gmail.com>
Subject: URGENT --- Aspell Scores
Message-Id: <1105429887.948445.15640@c13g2000cwb.googlegroups.com>
How do I retrieve the scores to suggestions returned by Aspell? The
Text::Aspell module does not seem to define any methods to achieve
this. Does anyone know how?
Also, can I set any options when I run Aspell from the command prompt
to view these scores?
Thanks ahead,
Sum
------------------------------
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 7628
***************************************
