Re: WWW::Curl pause conflict

Replies are listed 'Best First'.
Re^2: WWW::Curl pause conflict by krmx (Novice) on Sep 21, 2015 at 06:38 UTC
Additional: I was wrong - using sleep instead of pause does not work. there is no difference whatsoever between: `while (1) { my $url = "http://kronometrix.org/"; $http->setopt(CURLOPT_URL, $url); my $retcode = $http->perform(); ## Get the results my $response = $http->getinfo(CURLINFO_HTTP_CODE); if ($retcode == 0) { print "Ok, Status: $response\n"; } else { print "Error, Status: $response\n"; } ### Check for end last if ++$loop == $loop_max; ### Interval pause; }` [download] and `while (1) { my $url = "http://kronometrix.org/"; $http->setopt(CURLOPT_URL, $url); my $retcode = $http->perform(); ## Get the results my $response = $http->getinfo(CURLINFO_HTTP_CODE); if ($retcode == 0) { print "Ok, Status: $response\n"; } else { print "Error, Status: $response\n"; } ### Check for end last if ++$loop == $loop_max; ### Interval sleep; }` [download] The code gets stuck after 2 run samples. Always 2 . not sure why. It seems to me something between WWW::Culr (libcurl) and perl regarding alarms and timers.	[reply] [d/l] [select]
Re^3: WWW::Curl pause conflict by Anonymous Monk on Sep 21, 2015 at 07:00 UTC
Hmm , try turning off safe signals, see Perl::Unsafe::Signals Also try turning on cpan curl timeout , site:metacpan.org curl timeout , site:cpan.org curl timeout , -> https://metacpan.org/pod/WWW::Curl::Simple#connection_timeout-connection_timeout_ms/ https://metacpan.org/source/ANDREMAR/WWW-Curl-Simple-0.100191/lib/WWW/Curl/Simple.pm Read more... (1217 Bytes) http://search.cpan.org/grep?cpanid=SZBALINT&release=WWW-Curl-4.17&string=time&i=1&n=1&C=0 `t/01basic.t 20:ok(! $curl->setopt(CURLOPT_TIMEOUT, 30), "Setting CURLOPT_TIMEOUT") +;` [download]	[reply] [d/l] [select]
Re^4: WWW::Curl pause conflict by krmx (Novice) on Sep 21, 2015 at 07:17 UTC
Thanks for pointers. It seems related the way libcurl handles signal handlers within. I have played around by setting: CURLOPT_NOSIGNAL used to disable the timeouts while the name resolve takes place. `$http->setopt(CURLOPT_NOSIGNAL, 1); while (1) { my stuff here ... ### Interval pause; }` [download] http://curl.haxx.se/libcurl/c/CURLOPT_NOSIGNAL.html This might not be smart if I really need to timeout, I think in for some reasons DNS calls are not functioning. I need to think.	[reply] [d/l]
Re^2: WWW::Curl pause conflict by krmx (Novice) on Sep 21, 2015 at 05:06 UTC
I understand that it is not safe to use sleep and a timer at the same time within Perl code. My sample uses POSIX timers and alarm. https://www.febo.com/pages/perl_alarm_code/ At the same time: this code works fine for other types of work, like here: https://github.com/kronometrix/recording/blob/master/bin/linux/cpurec	[reply]
Re^3: WWW::Curl pause conflict by Anonymous Monk on Sep 21, 2015 at 06:52 UTC
https://metacpan.org/pod/Time::HiRes#setitimer-which-floating_seconds-interval_floating_seconds says Use of interval timers may interfere with alarm(), sleep(), and usleep(). In standard-speak the "interaction is unspecified", which means that anything may happen: it may work, it may not.	[reply]