在PHP中使用一个Perl的数据::自卸车格式阵列 [英] Use a Perl's Data::Dumper format array in PHP
问题描述
我需要存取权限阵列至极由Perl的数据::自卸车所输出的。结果
数组是原始文件,我需要用PHP来存取权限了。结果
数组被格式化为这样的:
I need to acces an array wich is outputed by Perl's Data::Dumper.
Array is in a raw file, and I need to acces it with php.
Array is formated as this:
$stats = {
'days' => 25,
'lengths' => {
'Piwee' => 269,
'Jeanne-' => 904,
'kaAnar' => 340,
[... Very Big ARRAY....]
我发现就在这里这个解决方案,但我不想使用eval(),因为该数组将含有用户输入数据。
因为我总是需要eval()的输出在str_replace转换解决方案的情况下,我想我需要找到另一种方式来做到这一点。结果
也许转换成XML或直接PHP解析?结果
我不知道什么是最好的解决方案。
I found this solution on here, but i dont want to use eval() because this array will have user-input data.
Since i will always need to eval() output in case of a str_replace solution, i think i need to find another way to do it.
Maybe convert to XML or by direct PHP parsing ?
I'm not sure about what would be the best solution here.
一个Perl / PHP / bash的解决方案会好起来的。
A perl / PHP / bash solution would be okay
注1:我不能编辑Perl的code的输出这个原始文件结果
注2:我不使用Perl code,所以我不知道如何与这样DATAS工作
note 1: I cant edit the Perl code that output this raw file
note 2: I dont code in Perl so i dont know how to work with such datas
推荐答案
不要使用数据::自卸车
来导出数据。它主要用于调试的目的,不是为了数据序列化,特别是不能输入到一个陌生的语言
Don't use Data::Dumper
to export your data. It's primarily for debugging purposes, not for data serialisation, and especially not for input to an alien language
使用Perl的 JSON
模块的连接code_json
调用创建Perl的哈希JSON字符串,和PHP的的 json_de code
把它转换成一个PHP关联数组
Use the Perl JSON
module's encode_json
call to create a JSON string from the Perl hash, and PHP's json_decode
to convert it into a PHP associative array
例如,假设从数据::自卸车
你的输出文件 stats.data code>,再短像这样的Perl程序将打印JSON相当于STDOUT
For instance, say your output from Data::Dumper
is in file stats.data
, then a short Perl program like this will print the JSON equivalent to STDOUT
use strict;
use warnings qw/ all FATAL /;
use JSON;
print encode_json( do 'stats.data' or die $! ), "\n";
输出
{"lengths":{"Jeanne-":904,"Piwee":269,"kaAnar":340},"days":25}
这篇关于在PHP中使用一个Perl的数据::自卸车格式阵列的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!