Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Threads and TCL DeleteInterpProc

by Anonymous Monk
on Jun 12, 2014 at 23:44 UTC ( #1089741=note: print w/ replies, xml ) Need Help??


in reply to Threads and TCL DeleteInterpProc

is there a way to avoid the error ?

Yes, write better code :) something about managing exit and interpreter life ... probably Tkx foolishness


Comment on Re: Threads and TCL DeleteInterpProc
Re^2: Threads and TCL DeleteInterpProc
by x-lours (Acolyte) on Jun 13, 2014 at 08:13 UTC
    i already found this tip but don't know how to manage it in a Perl script ...

    have you any suggestion ?

    i put my code as a reply of the other answer. if you have any suggestion about better code i'll be happy to learn it ;-)

    thanks for taking care

      A question for you, how far does your program go before the Tcl error shows up? Devel::Trace

      Reminds me of Re^3: TKX and closing windows (bug) ..

      L'anana ne parlais pas .... so this is the way I'd structure the program to avoid any Tkx noise .... I don't see an use for Thread::Semaphore

      As you can see, the more well named subs you have, the less comments you need

      See also Ask - ask your users about stuff / ask-introduction.pod

      You can use utf8 to signal to perl that your file is written in utf8, so you don't have to decode("utf8" all over the place

      Also see Win32::Unicode::Native since I assume you're on win32 ... for unicode version of mkdir/open... so you don't have to encode("iso-8859-1" ...

      Also, if you still need to encode("iso-8859-1" .... don't do it all over the place (repetition hurts your fingers), do it in one helper subroutine, say in recup_fic or MyMkdir ...

      I would also consider  my $answer = YesNo( "question", "title" ); and  ReadThis( $msg, $title ); ... although  Info( $msg, $title ); sounds good .... there is a Ask::Tk, a Ask::Tkx should be only a few tweaks to that

        as i wrote, i can't install any module (i don't know how installing them manualy, i read about but don't understand much...)

        so i can't use Devel::Trace , Win32::Unicode::Native or Ask::Tkx

        but thanks for the explanations and advices

        PS

        the use of Semaphore is in the "sub recup_fic" to avoid more than 5 threads when i save the nearly 30 files of the "@lst_log"

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1089741]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2015-07-03 03:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (48 votes), past polls