The first thought that comes to me is to use a repeat statement instead of your "after". Sometimes you just have to use "trial and error" and try alot of different approaches.
my $id; #setup a global for the repeat so you can cancel
#from anywhere in the script
sub run { #this is called via a button from the GUI
#Call the Module
# update: also try to start the repeat here, before the
# thread start
$threadRun = Thread -> new (\&printExcel::Edit, $option,$path);
#print the status
$id = repeat(5000, \&printStatus() );
}
sub printStatus {
print "\n\n\n\n\n\nprint status\n";
#hier hol ich mir den neuen status
my @NewStatus = &printExcel::GetStatus();
print "new status: @NewStatus\n";
}
I'm not really a human, but I play one on earth.
flash japh
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|