I have used the Thread::Pool modules with LWP with success in the past, so I guess - yes. Your script works for me....
On Wed, 29 Jan 2003 12:26:26 +0300 "Victor A. Prylipko" <[EMAIL PROTECTED]> wrote: > Hi, All ! > > Is ot possible to use threads and LWP modules together ? > > I tried to run simple programm: > =================================================== > #!/usr/bin/perl5 > use LWP::UserAgent; > use threads; > > my $ua = LWP::UserAgent->new; > $req = HTTP::Request->new(GET => 'http://www.liniya.ru/robots.txt'); > $res = $ua->request($req); > print $res->as_string; > $thr = threads->new(\&sub1, "Param 1"); > $thr->join; > > sub sub1 { > my (@InboundParameters) = @_; > print "In the thread\n"; > print "got parameters >", join("<>", @InboundParameters), "<\n"; > }; > =================================================== > > > Result is unexpected: > =================================================== > HTTP/1.1 200 OK > Connection: close > Date: Wed, 29 Jan 2003 09:17:45 GMT > Server: Apache/1.3.27 (Unix) PHP/4.1.2 mod_ssl/2.8.12 OpenSSL/0.9.6e > Content-Type: text/html; charset=windows-1251 > Client-Date: Wed, 29 Jan 2003 09:17:45 GMT > Client-Peer: 195.34.31.254:80 > Client-Response-Num: 1 > Client-Transfer-Encoding: chunked > > > User-Agent: * > Disallow: /Cat/E/ > Disallow: /Domen/ > > > Bizarre SvTYPE [32] at ./ctest2 line 9. > Segmentation fault (core dumped) > =================================================== > > > But when I comment lines > $res = $ua->request($req); > print $res->as_string; > > I got expected result: > > =================================================== > In the thread > got parameters >Param 1< > =================================================== > > My system: > FreeBSD 4.7-STABLE #1: Sun Jan 12 12:26:39 MSK 2003 > > Result of /usr/bin/perl5 -V > =================================================== > Summary of my perl5 (revision 5.0 version 8 subversion 0) > configuration: > Platform: > osname=freebsd, osvers=4.7-stable, > archname=i386-freebsd-thread-multi uname='freebsd gw.lini-a.ru > 4.7-stable freebsd 4.7-stable #1: sun jan 12 > 12:26:39 msk 2003 [EMAIL PROTECTED]:sourceusrobjsourceusrsrcsysgw > i386 ' > config_args='-Dusethreads' > hint=recommended, useposix=true, d_sigaction=define > usethreads=define use5005threads=undef useithreads=define > usemultiplicity=define > useperlio=define d_sfio=undef uselargefiles=define usesocks=undef > use64bitint=undef use64bitall=undef uselongdouble=undef > usemymalloc=n, bincompat5005=undef > Compiler: > cc='cc', ccflags > ='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing > -I/usr/local/in clude', > optimize='-O', > > > > > cppflags='-DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing > -I/usr/ local/include' > ccversion='', gccversion='2.95.4 20020320 [FreeBSD]', > gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, > byteorder=1234 d_longlong=define, longlongsize=8, > d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, > nvtype='double', nvsize=8, Off_t='off_t', > lseeksize=8 > alignbytes=4, prototype=define > Linker and Libraries: > ld='cc', ldflags ='-pthread -Wl,-E -L/usr/local/lib' > libpth=/usr/lib /usr/local/lib > libs=-lgdbm -lm -lc_r -lcrypt -lutil > perllibs=-lm -lc_r -lcrypt -lutil > libc=, so=so, useshrplib=false, libperl=libperl.a > gnulibc_version='' > Dynamic Linking: > dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' ' > cccdlflags='-DPIC -fpic', lddlflags='-shared -L/usr/local/lib' > > > Characteristics of this binary (from libperl): > Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES > PERL_IMPLICIT_CONTEXT > Built under freebsd > Compiled at Jan 28 2003 18:38:33 > @INC: > /usr/local/lib/perl5/5.8.0/i386-freebsd-thread-multi > /usr/local/lib/perl5/5.8.0 > /usr/local/lib/perl5/site_perl/5.8.0/i386-freebsd-thread-multi > /usr/local/lib/perl5/site_perl/5.8.0 > /usr/local/lib/perl5/site_perl/5.6.1 > /usr/local/lib/perl5/site_perl/5.005 > /usr/local/lib/perl5/site_perl > . > =================================================== > > >
