Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: Threads and TCL DeleteInterpProc

by x-lours (Acolyte)
on Jun 13, 2014 at 08:13 UTC ( #1089787=note: print w/ replies, xml ) Need Help??


in reply to Re: Threads and TCL DeleteInterpProc
in thread Threads and TCL DeleteInterpProc

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


Comment on Re^2: Threads and TCL DeleteInterpProc
Re^3: Threads and TCL DeleteInterpProc
by Anonymous Monk on Jun 13, 2014 at 08:24 UTC
Re^3: Threads and TCL DeleteInterpProc
by Anonymous Monk on Jun 13, 2014 at 09:32 UTC

    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://1089787]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2015-07-07 06:56 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 (87 votes), past polls