linux - Updating a label from a thread in Perl -

-

I am using Perl on a Linux box, and I have 2 devices - a PC (Linux box) and a router.

/ dsl-thingy - on my local net at IP address 192.168.1.1 & amp; 192.168.1.2 and trying to show or show the progress of ping + The code below is not tested for any other 8 existing devices, but updating my stats, there is a problem with any help ... 

 For  ($ i = 1; $ i & lt; = 10; ++ $ i) {# --- $ i & lt; $ VarClients --- 254 My $ thr_List = ("Ping $ i"); $ Thr_List = Thread-> Create (& amp; pingingthreads, "$ i"); } Sub Pingthreads {my @pingpong = ping ("$ localAddress $ i", '-c 1', '-i.2'); Can not count more for # -i? Print "Pinging: $ local address $ i \ n"; # Output Address 1 - Address 10 is OK $ Stat Lababel = "Pinging: $ Local Address $ i"; # Only the last responder (device) is showing in my statsbase?! $ Val = ($ val + 10); # 0.392156863 Print "$ val \% done ... \ n"; # Goes to 100% up to me OK # $ indicator bar- & gt; Value ($ val); # I have a progression and it stops at 20% even if ($ val == 100) {$ val = 0; } # After scanning # after resetting # after the last ping, update status: #my @ParamList = ('some', 'test', 7, 8, 9); # $ Thr5 = Threads-> Create (& amp; Update Status Controller, @Permlist); # Start a thread within a thread ??? #Ping Response for text ... (@IngPong) {# No need to respond to anyone; Client & amp; Any time lap / ping latency ..., or *** ??? $ Pong = $ _; Cutting ($ pong); # Get rid of trailing \ n ?? If ($ Pong = ~ 1/1 packet transmitted, 1 received, 0% packet loss /) {Push (@boxas, "$ local address $ i"); } And {# See other lines from the output of ping # print "$ pong \ n"; }}} $ Local $ $ i icmp_seq = 1 for destination host unknowable ??? --------------------- # Statusbar / Progress label & amp; Bar ---------------- My $ sb = $ main- & gt; Statusbar (); $ Sb- & gt; Ad Label (-activable = & gt; \ $ status label, -relue = & gt; 'flat', -font = & gt; $ font, -documentation = & gt; "$ statusbartextColour",); My $ indicatorbar = $ sb- & gt; Progress Bar (-PDX = & gt; 2, -pady = & gt; 2, -borderwidth = & gt; 2, -ru color = & gt; "$ COLOR2", -colors = & gt; [0, "$ index "], -long => 106, -relief => 'flat', -value = & gt;" $ val ",) - & gt; Pack; # $ Val = 0; # $ Indicator bar- & gt; Value ($ val); ===================================== My $ position label: share = (); My $ val: share = (0); For the progress bar value, # var   
 I uploaded my full code here (http://cid-99cdb89630050fff.office.live.com/browse.aspx/.Public) if necessary If so, then its boxy.zip ...   
 
 
 You do not do that GUI structure is not ThreadSafe Are there. You communicate that information in that thread, which is run instead of the GUI.

Comments

Post a Comment

Popular posts from this blog

mysql - BLOB/TEXT column 'value' used in key specification without a key length -

-
I have developed an extension which works up to 1.6 on Magren (I'm trying Enterprise Edition, And I think the community is the same problem, because it is the same code). In my install script, I see the $ installer-> gt; CreateEntityTables ($ this- & gt; getTable ('alphanum / info')); The installation is done until it is not in the _text unit table. It crashed there! It turns out that when I log in to SQL and run it via PHPmyadmin, then this error is: Blob / Text column 'value' is used without the key 'key' . I saw the code there, and this is what is trying to create an index on the value column: -> addIndex ($ this- & gt; getIdxName ($ eavTableName, array ( 'attribute_id array (' attribute_id ',' value ')) - & gt; addIndex ($ this- & gt; getIdxName ($ eavTableName, array (' entity_type_id ' , 'Value')), array ('entity_type_id', 'value')) If there is no if statement is n...
Read more

c# - Using Vici cool Storage with monodroid -

-
Oh, for the moment I am not sure how it is officially supported, but for the success of the people Using Monodroid Vic Cool Storage I am able to leave and compile assemblies in my project, but while trying to use some classes, the errors of time have to be gathered. Especially when trying to connect like the example for Mono Touch string dbName = path. Cobain (environment. Gatefolder path (environment specialfolder personal), "mydb.db3"); // The following line will be called coolestation, where is the database, // to make it if it does not exist, and call a delegate that creates the necessary tables (only when the database file was newly created //) CSConfig.SetDB (DbName, true, () => {CSDatabase.ExecuteNonQuery ("Subscriber Integer Primary Key Attribute, Name Text (50) No, Number, Date First Text (30)");); There is no difference when I try to use the methods of CSConfig and when I cscfif If I try to pass 3 aggregates to STDB (3) then I get the invalid ...
Read more

python - referencing a variable in another function? -

-
I am an experienced TCL developer and write my own processes to help myself. I call it a proc i callVar, print out the value of the variable in a certain format, so I know that it is variable and what is the value "set foo 1; putVar foo" result 'foo = "1" I want to do the same thing in Python, but I can not find the answer :( In TCL I use the up command because when I pass the name of the variable, then I can see the value at the top. . I understand that an advanced light in the dragon There is no mechanism of r, but with its introspection capability, I would think that this is something trivial, but I am not getting the answer anywhere. It seems that this should work: and expanded: def foo (): y = "Hello World" printwor ("y") foo () y = "Hello World " You can, but you should not do so if your code is correct If is needed , then there is something wrong with your design, and you should probably use the dictionar...
Read more