Perl:线程与JSON
Perl是一种通用的高级编程语言，广泛应用于Web开发、系统管理、网络编程等领域。下面是关于Perl中线程和JSON的相关内容：
- 线程（Threads）：
- 概念：线程是操作系统能够进行运算调度的最小单位，是进程中的一个执行流程。
- 分类：在Perl中，线程可以分为原生线程（native threads）和解释器线程（interpreter threads）。
- 优势：线程可以实现并发执行，提高程序的性能和响应能力。
- 应用场景：线程常用于需要同时处理多个任务的情况，如并行计算、网络编程等。
- 腾讯云相关产品：腾讯云提供的云服务器（CVM）支持多线程编程，可以满足线程相关需求。
- JSON（JavaScript Object Notation）：
- 概念：JSON是一种轻量级的数据交换格式，易于人阅读和编写，也易于机器解析和生成。
- 分类：JSON可以表示简单的数据结构，如数字、字符串、布尔值等，也可以表示复杂的数据结构，如数组和对象。
- 优势：JSON具有良好的可读性和可扩展性，广泛应用于Web服务的数据传输和存储。
- 应用场景：JSON常用于前后端数据交互、API接口传输、配置文件存储等场景。
- 腾讯云相关产品：腾讯云提供的云数据库MySQL、云数据库MongoDB等都支持存储和查询JSON格式的数据。
以上是关于Perl中线程和JSON的基本概念、分类、优势、应用场景以及腾讯云相关产品的介绍。请注意，本回答仅供参考，具体的技术选型和产品选择应根据实际需求进行评估。
相关·内容
有人能告诉我，如果启动了一些线程，为什么JSON不能工作吗？
use strict;
use warnings;
use JSON;
use threads;
use threads::shared;
sub th { }
threads->create(\&th)->join() if $ARGV[0];
my $json = to_json({ val => "123"}); # WTF?!?
print "$json\n";
工作正常，并打印JSON-字符串。但是将1作为参数传递给脚本以创建线程，to
浏览 2提问于2017-10-17得票数 8
回答已采纳
2回答
我尝试在我的Perl脚本中使用线程，运行在Windows 7上。我无法编译这个脚本，因为Perl在最初安装时没有使用线程支持构建(前面的用户安装了Perl，没有线程支持)。
如何使用线程支持重新构建Perl？
谢谢。
浏览 4提问于2014-09-26得票数 2
回答已采纳
我正在写一个分孩子的剧本(一次只有一个)。子查询DB，并应将结果(在散列中)返回给父级。在孩子和父母之间沟通的最好方法是什么？目前，我正在使用以下代码：
父母：
close WRITER;
chomp(my $line = <READER>);
logEntry("Parent Pid $$ received panelist listing.");
print '-------------------------';
浏览 2提问于2013-03-25得票数 0
我刚刚在上发现了一篇很棒的博客文章，声明如下
MongoDB非常适合日志记录。听起来很诱人.高性能的插入、JSON结构化记录和有上限的集合--如果您只想保留过去的X项的话。如果您关心较旧的历史数据，但仍然希望保留空间，您可以运行定期作业来将登录项卷到摘要记录中。编写一个与Apache的日志指令挂钩并将记录写入MongoDB的命令行脚本应该不难。
外面有什么东西吗？已经在mongodb中使用apache日志记录的人了吗？
浏览 7提问于2010-03-06得票数 1
在没有线程支持的情况下，每个默认的Perl都安装。这只是一个遗留的习惯，还是一个具有线程支持的Perl安装会产生问题？
浏览 1提问于2014-05-15得票数 8
回答已采纳
1回答
我试图用perl (Windows，x64)编写多线程服务器。当我试图从另一台计算机连接到它时，我发现内存和句柄使用率一直在上升，即使我一次只维护了一个连接。经过数千次试验，它消耗了几乎所有的系统内存。我搞不懂原因。
以下是服务器端：
use IO::Socket::INET;
use threads;
sub session_thread
{
my $client_socket=$_[0];
my $client_address = $client_socket->peerhost();
my $client_port = $client_socket-&g
浏览 1提问于2013-08-24得票数 1
回答已采纳
我在Windows (JSON5.10.1build1006)下使用Perl语言创建了一个服务器，该服务器在连接时派生，接受一些ActivePerl数据，并将其写入数据库。在64个客户端连接到服务器后，我遇到了一个问题，当我尝试派生时，错误消息是“资源不可用”。
在Linux下运行这段代码，我发现了许多不存在的子进程，这是通过在父进程上添加一个wait()调用来解决的。然而，这并没有解决问题。在Linux下运行代码超过了Windows中允许的64个调用。
我还启动了一个虚拟Windows服务器，以防它受到服务器上的限制，但是重新安装Perl会导致相同的64个连接限制。
任何想法都是值得感谢的。
浏览 0提问于2010-02-18得票数 2
回答已采纳
我正在编写一个perl脚本来运行某种管道。我从读取一个包含一堆参数的JSON文件开始。然后我做了一些工作-主要是构建一些稍后需要的数据结构，并调用外部程序来生成一些我一直引用的输出文件。
对于这些步骤，我通常都使用子例程。每个这样的子例程通常将一些数据写入没有其它子例程写入的唯一位置(即，散列中的特定关键字)，并读取其它子例程可能已经生成的数据。
如果按顺序完成这些步骤，可能需要几分钟的时间，但它们中的大多数可以与一些简单的依赖关系逻辑并行运行，我知道如何处理这些依赖关系(使用线程和队列)。所以我想知道我应该如何实现这一点，以允许在线程之间共享数据。您建议的框架是什么？也许可以使用一个对象(我
浏览 1提问于2010-08-11得票数 0
回答已采纳
3回答
Python3.2Alpha
从变更日志来看，GIL已经被完全重写了。
几个问题：
吃的是好是坏？(为什么)是新的吉尔更好吗？如果是，怎么做？
更新
我对Python相当陌生。所以所有这些对我来说都是新的，但我至少明白，使用CPython的GIL的存在是一件很大的事情。
但是，为什么CPython不像Perl那样复制解释器以消除对GIL的需求？
浏览 3提问于2010-08-02得票数 21
1回答
我想知道当我从freebsd中的端口源码编译perl 5.16 (和其他版本)时，'PTHREAD‘和’PTHREAD‘选项之间有什么不同？
PTHREAD是posix线程吗？(因为线程)，如果是这样的话，它是不是比‘-pthread’更好？(因为它似乎是预选的)即使在freebsd上也是如此？什么是“线程”(内核线程？)从另一方面来说？好处和坏处是什么？
我可以在一次安装中同时使用这两个工具吗？这是有意义的吗？
据我所知，结合使用perl并没有太多的用处。
谢谢你，吉米
浏览 0提问于2012-11-27得票数 9
回答已采纳
我试图在我的FreeBSD 7.1 (BSD)服务器上编译Perl 5.10，但是当我运行配置脚本并回答问题时，我会得到以下错误：
...POSTIX threads should be supported by FreeBSD 7.1 ... but your system is missing the shared libc_r.
谷歌搜索出的答案是安装了gethostnamadr.c，这很好，除了两件事：
我不知道把这个文件和放在哪里，如果配置程序想要查看libc_r?，如何解决我的问题？
浏览 2提问于2009-05-02得票数 5
回答已采纳
2回答
下面的代码在mod_cgi上运行得很好，但在mod_perl上却不起作用。在创建第一个线程时，代码就会崩溃。对如何在mod_perl上实现线程有任何想法吗？真的有可能吗？我遗漏了什么？
use strict;
use warnings;
use threads;
print "Content-type: text/html\n\n";
sub testthread{
my $value = shift;
print "<br>test - $value"
}
my @threads = ();
push(@threads, thre
浏览 5提问于2016-07-27得票数 4
如何设置Perl在OSX上的Apache httpd.conf文件中查找模块的位置？
我已经通过CPAN安装了几个模块，并在
/opt/local/lib/perl5/site_perl/5.8.9
我可以通过perldoc perllocal验证这一点
如果我在命令行上运行perl -V，我会得到(在其他目录中)：
@INC:
/opt/local/lib/perl5/site_perl/5.8.9/darwin-2level
/opt/local/lib/perl5/site_perl/5.8.9
然而，当我通过Apache以CGI的身份运行perl脚本时，我得到的错误是我正在us
浏览 0提问于2011-10-11得票数 2
回答已采纳
2回答
说:自Perl 5.8以来，线程编程就使用了一个称为解释器线程的模型，该模型为每个线程提供了一个新的Perl解释器。
使用下面的程序使用ps -Lm <pid>，我可以看到线程并行运行，也就是说，它们在不同的内核中同时运行。但是，即使有4个线程(3个和主线程)，ps aux也只显示一个Perl进程。
这是否意味着每个线程上都有一个完整的 Perl解释器？
threads是映射到 system 的 Perl线程。
如果2为真，如何在一个进程中有多个Perl解释器？
use threads;
$thr = threads->new(\&sub1);
浏览 3提问于2012-09-21得票数 8
回答已采纳
线程被认为是轻量级进程。它们实际上会比同等数量的派生进程运行得更快吗？
浏览 2提问于2013-05-21得票数 1
1回答
我有一个小型perl脚本，它从mongoDB获取服务细节，查询它的状态并给出html输出。
#...some stuff to get $token
my @cmd = ('/opt/mongo/bin/mongo', '127.0.0.1:27117/service_discovery', '--quiet', '-u', 'xxx', '-p', 'xxx', '--eval', "var environ='$env'; var acti
浏览 2提问于2016-02-11得票数 2
回答已采纳
1回答
我使用以下子程序运行大约40个线程：
my $app = shift;
my $ua = LWP::UserAgent->new();
$ua->timeout(5);
my $response = $ua->get($$app{'watch_url'});
my $new_md5;
if ($response->is_success()) {
$new_md5 = md5_hex($response->content());
}
return ($$app{'short_name'}, $$app{'watch_m
浏览 0提问于2009-12-03得票数 2
回答已采纳
我想要创建70多个线程，每个线程都以不同的值开始。
下面是我的代码，以便更清楚
use strict;
use warnings;
use threads;
use LWP::UserAgent;
my @char = (("A".."Z"),("a".."z"));
my @threads;
my $ua = LWP::UserAgent->new;
push @threads , threads->create(\&Chara);
sub Chara {
foreach my $a (@char){
f
浏览 1提问于2014-01-11得票数 1
回答已采纳
看起来mod_perl只管理，有没有办法影响mod_perl选择哪个克隆的解释器来处理请求？我已经通读了可配置的作用域，并查看了源代码中的"modperl_interp_select“，我可以看到，如果一个请求已经关联了一个解释器，那么这个解释器就是由mod_perl选择的。
else if (r) {
if (is_subrequest && (scope == MP_INTERP_SCOPE_REQUEST)) {
[...]
}
else {
p = r->pool;
get_interp(p);
浏览 17提问于2014-12-31得票数 2
我在同时调用Parallel::ForkManager和Inline::Java时遇到问题。具体地说，如果我使用JNI => 1选项调用Inline::Java (我必须这样做)，那么派生进程就不会返回到父进程。代码如下：
use Parallel::ForkManager;
##### Calling Inline::Java #####
use Inline Java => <<END, JNI => 1;
END
###### End of Inline::Java #####
my $pm = Parallel::ForkManager->ne
浏览 0提问于2011-10-13得票数 3
回答已采纳
5回答
在python中，我们可以使用多处理模块。如果Perl和Ruby中有类似的库，您会教它吗？如果你能附上一个简短的样品，我将不胜感激。
浏览 1提问于2009-05-13得票数 5
回答已采纳
1回答
我有一个webapp，它使用一个旧版本的Perl。因此，我使用perlbrew安装了一个独立的Perl版本，创建了一个符号链接/usr/bin/perlx，并更改了我所有perl文件中的路径。但是，我安装的附加模块仍然存在一些问题。如果我试图启动这个get应用程序，我会收到一条错误消息：
无法在@INC中找到JSON/XS.pm (@INC包含: /opt/perlbrew/perls/perl-5.10.1/lib/5.10.1/x86_64-linux /opt/perlbrew/perls/perl-5.10.1/lib/5.10.1 /opt/perlbrew/perls/perl-
浏览 5提问于2012-10-17得票数 3
回答已采纳
这几天我都面临着一些问题，谷歌帮不了我太多。我想使用需要线程的perl程序，但它让我很难。我目前使用的是Perl 5.10.1，它不支持多线程，但通常我在下面粘贴的命令安装起来应该没有任何问题。我愿意为这个好帮手报答你。
所以我试着这样做：
sudo su -
cpan
install shared::thread
(高度损坏)输出：
root@noc:~# sudo su - root@noc:~# cpan Terminal does not support
AddHistory.
cpan shell -- CPAN exploration and modules installati
浏览 5提问于2012-12-14得票数 0
1回答
我正在尝试运行使用wxGlade生成的Perl代码，但是我收到了这个错误。
。
文本
无法加载模块Wx的C:/Perl/site/lib/auto/wx.dll:在C:/Perl/lib/Dynaloader.pm第191行中找不到load_file:The指定的模块。
最终，我希望使用从wxGlade生成的代码重新排列小部件。我没有*.wxg文件，我只有Perl代码。
如果这是不可能的，我希望在Perl代码运行时看到这些小部件，然后在wxGlade中重新创建这些小部件。
我正在使用ActivePerl 5.16.3在Windows10上构建1604，我已经安装了wxPerl版本
浏览 10提问于2017-12-03得票数 1
回答已采纳
看起来，thread_sleep的结尾不恰当。
我可以使用线程队列、信号量等来处理它，但是我对这里的问题很感兴趣。
这段代码永远不会结束，因为threads->list()大小永远不会减少。
use strict;
use warnings;
use Thread;
my @threads;
my $count = 0;
while ( scalar( @threads ) < 10 ) {
my $thr = threads->create( 'thread_sleep' );
push @threads, $thr;
$c
浏览 6提问于2017-12-11得票数 1
回答已采纳
需要帮助在RedHat Linux6.0上使用PerlVersion5.10.1。我已在StackOverflow上搜索过相关主题，但这与常见的“符号查找错误”无关。
我正在尝试运行perl脚本返回。
/usr/bin/perl:符号查找错误：./../lib/i386-linux-thread-multi/auto/Math/Pari/Pari.so:未定义符号: Perl_Tstack_sp_ptr。
和
./../lib/i386-linux-thread-multi/auto/IO/Tty/Tty.so:未定义符号: Perl_Tstack_sp_ptr
我试过：
浏览 1提问于2015-08-18得票数 0
2回答
我对perl还比较陌生，我编写了一个程序来处理操作系统映像集上的相同操作。因为操作是相同的，所以我使用了线程。该程序的缩小版本附后。问题是，主程序永远不会出来等待。在跟踪时，我看到主程序正在等待"tee“命令。我在这有什么不对劲的吗？
我使用的是PerlVersion5.1的CentOS 6.7，由于其他许多依赖项，我无法继续前进:(
#!/usr/bin/perl -w
use threads;
my $tee_pid= open my $tee, "|-", "tee mylog";
my @images = ( "image1"
浏览 0提问于2018-05-06得票数 3
回答已采纳
我想在Lua中使用gettext库，但是当我试图加载它时，会得到一个未定义的符号错误：
require('gettext')
error loading module 'gettext' from file './gettext.so':
./gettext.so: undefined symbol: PL_thr_key
stack traceback:
[C]: in ?
[C]: in function 'require'
stdin:1: in main chunk
[C]:
浏览 1提问于2016-08-16得票数 2
我有以下目录结构：
top_dir
|________AA
|_______f1.json
|_______f2.json
|________BB
|_______f1.json
|_______f2.json
|________CC
|_______f1.json
|_______f2.json
我想编写一个脚本/命令行命令，以获得以下结构
new_dir
|_______f1_AA.json
浏览 0提问于2020-02-21得票数 0
回答已采纳
在脚本中，我使用线程和线程：：Queue，也使用perl 5.18.2版本。当我运行我的脚本时，它会产生错误：这个Perl不是为了在文档中支持线程而构建的，我看到，这是一个错误。解决这一问题的可能办法是什么？
浏览 5提问于2014-02-26得票数 1
回答已采纳
2回答
我使用的是Dancer 1.31，采用标准配置(plackup/Starman)。
在一个请求中，我希望异步调用perl函数，以便请求立即返回。想一想典型的“长时间运行的操作”场景，在这个场景中，人们想要返回一个带有refresh+redirect的“处理页面”。
我(天真？)尝试使用线程：
sub myfunc {
sleep 9; # just for testing a slow operation
}
any '/test1' => sub {
my $thr = threads->create('myfunc');
浏览 0提问于2012-10-21得票数 1
1回答
[root@server]# awk '!seen[$0]++' out.txt > cleaned
awk: (FILENAME=out.txt FNR=8547098) fatal error: internal error
Aborted
[root@server]#
“服务器”有:8 GByte内存+ 16 GByte交换，x>300 GByte空闲空间，amd64，桌面CPU。科学Linux 6.6它上没有其他东西能装子弹。几秒钟后Awk中止..。out.txt为1.6 GByte。GNU : 3.1.7。
问:如何在保持行序的同时删除重复行？案件也很重要
浏览 0提问于2015-04-07得票数 24
回答已采纳
while ($thr->is_running() {
# do something
}
vs
while (! $thr->joinable()) {
# do something
}
这两者有什么区别吗？
什么时候程序员会使用一个而另一个，反之亦然？
我假设你不能加入一个线程，如果它运行的这么多，他们基本上是一样的事情？
如果是这样的话，为什么perl提供两种不同的方法来检查线程的状态？
浏览 4提问于2015-05-21得票数 2
回答已采纳
使用是我的%数据；下面是or还是应该切换到我的$data={};？
#!/usr/bin/perl -wT
use strict;
use JSON;
sub makeJson {
my %data;
$data{kib} = 1;
$data{games} = {
0 => [],
1 => [qw(a b c d e)],
};
return \%data;
}
my $x = makeJson();
print encode_
浏览 5提问于2012-02-26得票数 1
回答已采纳
我的最初任务是安装mod_perl 2.0.6 +Apache2.2.22。
在编译off64_t时，进程停止了许多与mod_perl相关的错误。所以，我开始深入挖掘。首先，我安装了两个Perl5.8.9的新实例(因为我必须使用这个版本)：线程版本和非线程版本(它们是相同的，只有usethreads不同)。试图使用线程Perl进行同样的复制，最终获得了成功，而且完全没有off64_t错误。
结论是显而易见的:线程Perl提供了必要的off64_t，而非线程的则没有。
进一步地，我比较了两个Perl‘’es的config.h (来自core/<arch>/CORE)，在第3671行我
浏览 1提问于2012-05-06得票数 6
回答已采纳
我正在尝试调试一个复杂的Perl应用程序，该应用程序以错误消息"Signal SIGCHLD接收，但没有信号处理程序集“终止。我知道它来自Perl解释器本身，特别是来自文件mg.c，因此无法捕获它。但我不明白它的确切性质。
这是“不应该发生”这类解释器的内部错误吗？
或者是否有一种(简单的)方法在最近的Perl版本中重现此错误？
我已经尝试用中给出的提示来再现它，方法是在一个无穷无尽的循环中设置和取消一个信号处理程序，并不断地在另一个脚本中触发这个信号，并从另一个脚本中触发一个无穷无尽的循环。但我无法重现Perl版本5.18.4、5.26.0、5.26.2、5.28.2和5.30.2所
浏览 2提问于2020-03-16得票数 4
我正在处理一个多行字符串，其中包含Unix (\n)换行符。
它的一些行的形式是"A，a“(即大写字母，逗号，空格，小写字母)，我想从字符串中删除它们。
我可以用正则表达式替代来实现这一点，但是有一个我不明白的谜团：
使用"A-Z“和"a-z”的正则表达式在正常模式和多行模式下都有效。
使用"\p{Lu}“和"\p{Ll}”的正则表达式可以工作，但只能在普通模式下工作，不能在多行模式下工作。
其中每一个都成功了：
$all =~ s/\n\K *[A-Z], [a-z]\n//g; # 1
$all =~ s/^ *[A-Z], [a-z]\n/
浏览 1提问于2012-08-03得票数 3
2回答
我正在尝试使用模块并行运行一个进程。我的需求不是派生一个新进程并让它运行。
我试过这段代码，但它不是并行执行的
use AnyEvent::HTTP;
use JSON::XS qw[ decode_json ];
use Promises qw[ collect deferred ];
use Data::Dumper;
sub process {
my ($data) = @_;
my $d = deferred;
for (1..5) {
print "\n$data " . $_ * $data;
}
$d-
浏览 0提问于2018-04-19得票数 3
我正在尝试用Perl生成一个与Python中生成的字符串等效的压缩字符串。
Python (生成正确的输出)：
import gzip
test_file = 'example.json'
with open(test_file) as f:
output_data = gzip.compress(f.read().encode())
print(output_data)
或多或少我一直试图在Perl中实现的功能：
use Encode;
use IO::Compress::Gzip qw/gzip/;
use File::Slurp;
my $json =
浏览 48提问于2019-11-19得票数 2
回答已采纳
因为Android R已经弃用了AsyncTask，所以我不能解析或接受来自web的JSON数据。所以我所做的是。我创建了一个名为DownloadingObject的kotlin类。下面是代码
类DownloadingObject {
@Throws(IOException::class)
fun downloadJSONDataFromLink(link: String): String {
val stringBuilder: StringBuilder = StringBuilder()
val url: URL = URL(link)
val urlConne
浏览 2提问于2020-05-22得票数 1
1回答
我有一个perl脚本，当我用perl2exe编译它时，它会给出以下消息：
Can't locate unicore/Heavy.pl in @INC (@INC contains: PERL2EXE_STORAGE c:\tools\hunalign\scripts\sentence_splitter C:\Users\EURIDE~1\AppData\Local\Temp/p2xtmp-5936) at PERL2EXE_STORAGE/utf8_heavy.pl line 176.
我有独角兽模块中的文件，所以我不知道问题出在哪里。但是，我可以通过插入以下行来暂
浏览 1提问于2014-10-29得票数 1
2回答
我有一个运行正常的perl脚本，但它只使用了我的2核CPU中的1核，我如何才能使它利用所有的核。
我知道我可以使用threads ->new()来创建线程；但是我如何将其应用到像这样的东西中：
my $twig= new XML::Twig::XPath(TwigRoots => {TrdCaptRpt => \&top_level});
$twig->parsefile($file);
其中子例程正被其他东西调用。
浏览 0提问于2011-02-17得票数 3
回答已采纳
我有一个mod_perl2模块，可以将一些文件写入工作目录。mod_perl2或Apache2的标准工作目录似乎是"/“。当然，Apache不允许在此目录中写入文件。
谁能告诉我如何更改工作目录或mod_perl2写入的目录？
我在SLES10上使用Apache2 Prefork。
浏览 0提问于2011-10-06得票数 0
回答已采纳
我正在考虑编写我自己的代码(为了实践，也为了满足我公司的需要)来监控我的300台路由器。我想做以下事情
1) icmp监控。丢包超过60%时发送邮件2)延迟监控，延迟超过30ms时发送邮件。
很久以前，当我在思科论坛上问到类似的问题时，他们推荐了我perl和freebsd。从那时起，我就认为perl可以做到这一点。但我只是感到困惑，我应该采取什么方法。我需要在这里做一些多线程编程吗？正如你所知，我在这里是一个新手，所以如果有人可以指导我一点怎么做。我知道有企业级的NMS，但我仍然认为编写自己的NMS对我来说是一种很好的学习经历。此外，perl也不是必须的，但我只是认为perl可以做到这一点。
浏览 2提问于2011-12-13得票数 1
回答已采纳
我正在从Java启动一个外部进程，并通过process.getInputStream()等获取它的stdin、stdout和stderr。我的问题是:当我想将数据写入输出流(proc的stdin)时，它不会被发送，直到我在流上调用close()。我正在显式地调用flush()。
我做了一些实验，并注意到如果我增加发送的字节数，它最终会通过。在我的系统中，神奇的数字是4058字节。
为了进行测试，我将数据发送到perl脚本，如下所示：
#!/usr/bin/perl
use strict;
use warnings;
print "Perl starting";
while(
浏览 2提问于2012-07-18得票数 5
回答已采纳
目前，我有一个Perl脚本，它多次运行python程序，由于每个程序都是按顺序运行的，所以需要一段时间，有没有办法同时运行python程序？
以下是代码
use Cwd;
$curdir=getcwd;
chdir("../python");
for (my $i = 0; $i < 1000; $i++) {
$cmd="python myCode.py";
system($cmd);
}
chdir($curdir);
python代码大约需要10秒才能运行，这样程序就会一个接一个地运行，这需要一段时间，我想并行运行它们。
这是可能
浏览 1提问于2015-03-23得票数 0
我们有一个Perl程序来验证从Java程序调用的XML。它无法写入标准错误并挂在打印位置。
Perl正在向STDERR写入数据，而一个java程序正在使用getErrorStream()函数读取STDERR。但是Perl程序正在挂起以写入STDERR。我怀疑Java函数完全阻塞了STDERR流，而Perl正在等待该流被释放。
在Perl中有没有一种方法可以克服这个障碍并强制写入标准错误？由于Java只执行读取操作，因此API不应该根据java文档锁定STDERR流。
Perl代码片段是：
sub print_error
{
print STDERR shift;
}
Java代码片段是
浏览 3提问于2008-12-10得票数 5
回答已采纳
1回答
我有一个用C编写的Perl库，在XS文件中，我声明了回调函数，以从C代码调用Perl函数。当从C代码(多线程)调用此函数时：
char *
callbackfunc(void *fun, char **args)
{
dSP;
int count,i;
char *s;
ENTER;
SAVETMPS;
PUSHMARK(SP);
for(i=0;args[i];++i) {
XPUSHs(sv_2mortal(newSVpv(args[i],0)));
}
PUTBACK;
count = call_sv(fun,G_SCALAR|G_
浏览 3提问于2015-03-16得票数 2
回答已采纳
我想在我的网站上运行一个使用JSON的脚本。我已经在cgi-bin文件夹中成功测试了以下脚本：
#!/usr/local/bin/perl
print "Content-Type: text/html \n\n";
print "<h1 align=center>\n";
print "Welcome to my website\n";
print "</h1>\n";
但是，一旦我包含了JSON模块，网站的内容管理系统(OpenCart)就会回复到“找不到页面”的错误：
#!/usr/local/bin
浏览 4提问于2013-06-19得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
