thread pool queue blocking! Was: simple perl 5.8 thread pool creation

hi all, I am trying to implement a thread pool using Thread::Queue. I created a pool of 10 threads. The problem is only one thread is being used, and all jobs are queud up in a line behind the first. Each job is a subroutine call. How can I create this to be multi-tasking? ..eg jobs being execute

Re: Webservice Call using Win32::OLE

for: "Call oServXMLHTTP.open("POST", decryptWebServiceURL, False)" try: "$DOM->open("POST",$decryptWebServiceUrl, 0); # 0 = false, 1 = true" hope I have been some help! cheers, -Jer A Quoting "Briggs, Larry" <[EMAIL PROTECTED]>: > Hi I am trying to convert the following VB script webservice

simple perl 5.8 thread pool creation was "perl 5.8 threads and Thread::Pool"

Hi all, Activestate only support v.0.1 of Thread-Pool, while the current module, 0.32 is not supported. The one provided in the activeperl repository (0.1) does not support perl 5.8 threads. How can I implement simple thread-pooling using perl 5.8 threads? I would need some way of injecting co

perl 5.8 threads and Thread::Pool

hi all, I want to create a pool of perl 5.8 threads, but Thread::Pool was built for the old Thread implementation, and it does not work! is there a module for perl 5.8 that creates thread pools? Thanks in advance for your help. -Jer A. ___ Perl-Wi

perl 5 and hyper operators for manipulating lists

hi all, I am new to hyper operatorsI have been studying them in a perl 6 book. Does using hyper operators,offer better performance, in manipulating lists, than using loops? Can I forget about loops altogether?how complex can I make a hyper statment? Can Hyper operators be implemented i

perl inline c and weird buggy-ness

hi there perl gurus. I am creating a module in inline c. I want to concat a very large string fast. I am getting weird crashes for each run. Also, it appears that my string is not being concatinated at all. I am using VC6.0, perl 5.8 on win32 xp. how can I get this to work. your help is apprec

Re: Extremely fast concat required

Randy, thanks for your response. I am trying this. opening a handle to memory, and using syswrite,.but *nothing* gets written. I have never done this before...this is supposed to work. Your help with this is appreciated, thanks in advance. I am running win32 xp with perl 5.8. -Jeremy A. o

Extremely fast concat required

hello all I need a fast concat solution. the following works, but it is extremely slow and it stutters. I am not replicating values, each value that is concatonated is unique- the following is example does not illustrate this. about the stuttering...is this a buffering issue? it stutters (pauses)

Regular Expressions and variables

hello all perl gurus, I have a regular expression problem how do i use scalar variables in substitution and complex matching? eg I want the following to work. $string =~ s/^$variable//; $string =~ m/^([^$variable]*)/; thanks in advance for your help. -Jeremy A. __

[no subject]

hello all perl gurus, I have a regular expression problem how do i use scalar variables in substitution and complex matching? eg I want the following to work. $string =~ s/^$variable//; $string =~ m/^([^$variable]*)/; thanks in advance for your help. -Jeremy A. __

RE: references - inject sub/params into longterm running thread

hi there basically...I have instantiated long term running thread/s. in the main thread, i want to pass a subroutine (code ref) and its parameters into a threads::shared variable, then execute it in a separate thread running in a while loop. I want to do this, because having a group of a coupl

references of sub and params in a threads::shared variable

how do i use this hash as a shared variable to be used in threads? eg. with threads::shared -Jeremy A > Why not make it a hash? > > my $sub = { ref => \&test, params => [$sockethandle] }; > $sub->{ref}->(@{$sub->{params}}); > > sub test { > my $socket = shift; > # ... > } > > > > hello again,

references situation

hello again, > > hello all, > > > > here is a ref/deref problem > > > > I need to take a socket handle, convert it to a socket ref, then a scaler > > string > > > > A bit later in the same script, I need to take that scaler string and turn > it > > back to a socket ref, and deref it back to

Re: references

hello again, > > hello all, > > > > here is a ref/deref problem > > > > I need to take a socket handle, convert it to a socket ref, then a scaler > > string > > > > A bit later in the same script, I need to take that scaler string and turn > it > > back to a socket ref, and deref it back to

freeze-thaw - socket/file handle to ref then string

hello all, here is a ref/deref problem I need to take a socket handle, convert it to a socket ref, then a scaler string A bit later in the same script, I need to take that scaler string and turn it back to a socket ref, and deref it back to the socket handle. An example would be great, Tha

gui activex control

hi all, what win32-api calls can i make in order to create a client-side activex gui control that can be embedded in an application or internet explorer, using perlctrl. I realize this cannot be done *just using* perlctrl code. What perl win32::api calls can be made to make it work, and in wh

perlctrl tk activex

hi all, what win32-api calls can i make in order to create a client-side activex gui control that can be embedded in an application or internet explorer, using perlctrl. I realize this cannot be done *just using* perlctrl code. What perl win32::api calls can be made to make it work, and in what

Perlapp CGI's on IIS 5.1, XP Pro

Hello there I recently compiled a script that I use on IIS. the script works, but as a binary it does not. the binary is compiled with the exe flag set to "cgi", there for the executable name is eg. "myexe.cgi" when i enter the url, nothing happens, though there is no IIS web page error message.

perl/java encrypted socket client/server

hello all, I have a perl server/java client problem I need to create a perl socket server, and a java applet socket client. I know how to do sockets, and encryption on client/server perl is easy.all i do is encrypt the string on the before i print to sockets on one end, and decrypt the strin

monitoring win32 process (program) memory usage

Hi all, Does anyone know how to monitor memory usage in perl, that is cheap on cpu and works on all windows versions (eg. win95 and newer) Basically i have this background perl process, that continues to eat up memory. my plan for managing it would be if currentmemoryusage > myspecifiedlimi

port number <---> process id, for nt,2000(pro)

hi all, how do i retrieve a port number a process uses from a pid or vice versa. This can be done in xp eg. $ret = Win32::IPHelper::AllocateAndGetTcpExTableFromStack([EMAIL PROTECTED],$bOrder); the above does not work in NT,2000 (pro). This is driving me crazyI cant find an api so i can ge

ExtractIcon, then write it to file

hello all, how do i extract an icon from an exe file, then write it to a file. here is my code. It does not work. - use Win32::API; my $ExtractIcon = new Win32::API("shell32.dll","ExtractIcon",[N,P,N],'N'); my $icon = $ExtractIcon->Call($$,"C:\\Program Files\\Shareaza\\Shareaza.exe",0); open(I

get a (array)list of icons from registry

Hi all, Is there any way of getting all icons of installed programs from the registry? If so, how do i display them in a tk app? is there support for *.ico in tk? Thanks in advance for any help. -Jeremy A. ___ Perl-Win32-Users mailing list [EM

RE: get a list of installed programs and path to exe.

hi all. here is a start. I want to get values for programs installed. eg. "DisplayName","DisplayVersion" etc. thanks in advance for any help. -Jeremy A. - #!perl use Win32::TieRegistry( Delimiter=>"#", ArrayValues=>0 ); $pound= $Registry->Delimiter("/"); $appKey= $Registry->{

get a list of installed programs and path to exe.

Hi there, in windows xp/2000 how do i get a list of all installed programs and paths to exe? Thanks in advance. -Jeremy A. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

program probe

hello there, Sorry for the dumb questions. Is there any way to probe a program to find if and what (socket) ports it uses, in perl? It should be compatible with windows xp service pack 2 (which includes the windows firewall). Thanks in advance for all help. -Jeremy A. _

source port blocking......(a simplistic firewall)

hello all how do i prevent a program's source port from connecting to the internet. eg. suppose, i want to prevent Internet Explorer from connecting to the internet,it would not be port 80, as this is the destination port...am I correct? I suppose, this port blocking would be a simplistic firewa

Blocking ports

Hi all, I have a network problem. how do i block a port(s) programmically in perl, making the port unusable by other software, requiring that port, while the perl script is running. my platform is windows, so the solution must be windows compatible. Thanks in advance for any help. -Jeremy A.

Win32 process auto-restart on error/crash or kill

Hi all, how do i automatically get a script to restart itself on error/crash or kill? I tried $SIG{INT}, but that only works with Ctrl-C, in a console. Lets say i were to kill the process using the Task Manager ("end process"). How do I get the script to automatically restart? Thanks in advanc

Win32-API GetAsyncKeyState

hi all, I need to be able to log keys typed. I cannot use Win32::GuiTest module, because the 'IsKeyPressed' function does not work with perl 5.8. Using the win32 api seems to be a good option. how do i get key strokes using perl and the win32 api? eg. "how do i use GetAsyncKeyState in perl?