如何避免用Perl JSON模塊引用數字引號？

Question

請問有沒有辦法讓encode_json方法不要在數字中加引號？

比如我使用的是在CentOS 6.3的Perl 5.10（也是ActiveState的Perl的5.16在Win 7），它把引號，它應該不會：

# perl -MJSON -e 'print encode_json({a => [split(",", "1.2,30")]});' 
{"a":["1.2","30"]} 

也就是說，確定是的，它在上面的代碼中看到「1.2」和「30」爲字符串，但我的問題是：

我的perl腳本解析CSV文件並生成HTML文件using Google Charts而後者通過引用數字值引起混淆（儘管我告訴他們該列是「數字」類型的）。

作爲一種變通方法我通過我的數據意象結構迭代和sprintf "%f", $val更換每一個數字，但這會導致過多的空值的每個數字，這使得圖表無誤後進行顯示，但是難看：

# perl -e 'printf "%f", "30"' 
30.000000 

UPDATE：

是，添零或一個乘以似乎工作第一眼：

# perl -MJSON -e 'print encode_json({a => [map {1 * $_} split(",", "1.2,30")]});' 
{"a":[1.2,30]} 

但my real script它仍然爲浮點數不起作用。

而且你可以看到這個問題用自卸車模塊太當我還是在CLI：

# perl -MData::Dumper -e 'print Dumper({a => [map {1.0 * $_} split(",", "1.2,30")]});' 
$VAR1 = { 
      'a' => [ 
        '1.2', # <= THIS IS MY PROBLEM AND CONFUSES GOOGLE CHARTS 
        30 
       ] 
     }; 

Answer 1

他們出來爲字符串，因爲你得到串出split。

有可能是做一個更好的方式，而是通過1只乘以出現他們的工作：

perl -MJSON -e 'print encode_json({a => [map { $_ * 1 } split(",", "1.2,30")]});' 

Answer 2

的Perl跟蹤標量數據類型的內部。您可以通過在算術表達式中使用它來強制標量的類型爲數字。例如：

sprintf "%.2f", $val 

：

my $scalar = "3.14"; # $scalar is a string 
$scalar *= 1;  # Now $scalar is a number 

在另一方面，如果你的問題是具有在sprintf輸出太多的零，你可以通過改變精確到別的東西，例如2位修復

Answer 3

你的問題是，雖然你正確地將它轉換爲數字，但在你調用encode_json之前它已經轉換回字符串。這是因爲你在調試語句中調用了Data :: Dumper。如果您將您對Data :: Dumper的調用註釋掉，您會發現encode_json輸出正確的東西。

例如這個例子說明之前並調用翻斗車在物體上後，JSON對象：

$ perl -MData::Dumper -MJSON -e ' 
my $obj = {a => [map { $_ - 0 } split(",", "1.2,30")]}; 
print "JSON before: ",encode_json($obj),"\n"; 
print "Dumper: ",Dumper($obj); 
print "JSON after: ",encode_json($obj),"\n"; 
' 
JSON before: {"a":[1.2,30]} 
Dumper: $VAR1 = { 
      'a' => [ 
        '1.2', 
        30 
       ] 
     }; 
JSON after: {"a":["1.2",30]} 

，你可以看到，自卸車實際修改你傾倒的對象，影響你以後的encode_json電話。

Answer 4

你已經有了這個答案，但我想指出在Perl中這樣做的慣用方式。從chapter 10 of Modern Perl：

要確保Perl將值作爲數字，加零：

my $numeric_value = 0 + $value; 

要確保Perl將值作爲布爾，雙否定它：

my $boolean_value = !! $value; 

爲確保Perl將值視爲字符串，請將其與空字符串連接起來：

my $string_value = '' . $value; 

Answer 5

正確解決方案已經給出。

如果出於任何原因，你覺得難以採納，這裏是一個更容易的建議，感謝Data::Dump它做了所有爲我們的辛勤工作：

perl -MJSON -MData::Dump=pp -le 'print encode_json eval pp { a => [split /,/, "1.2,30,b"] }' 

這給：

{"a":[1.2,30,"b"]} 

如果您的效率限制允許承擔往返，它應該幾乎透明地解決您的問題。

它也可以指出您在測試中獲得的報價實數只是因爲其他人已經提到的Data::Dumper（可疑）選項。

Answer 6

我有一個類似的情況。我的perl代碼生成（以複雜的方式）一個複雜的數據結構，然後用JSON :: to_json序列化並傳遞給javascript。數據結構中有許多不同深度的數字，並且JavaScript會對它們進行算術運算。

javascript中的'+'用作數字的加法和字符串的連接，因此在將數字轉換爲json時不要將數字放在引號中非常重要。另一方面，數據是相當複雜的，所以我需要簡單和通用的方式來強制數字是任意數組/散列/散列數組中的數字。

所以，我結束了這樣的功能：

use Scalar::Util qw(looks_like_number); 
sub force_numbers 
{ 
    if (ref $_[0] eq ""){ 
     if (looks_like_number($_[0])){ 
      $_[0] += 0; 
     } 
    } elsif (ref $_[0] eq 'ARRAY'){ 
     force_numbers($_) for @{$_[0]}; 
    } elsif (ref $_[0] eq 'HASH') { 
     force_numbers($_) for values %{$_[0]}; 
    } 

    return $_[0]; 
} 

現在我可以將數據轉換爲JSON之前使用它：

print to_json(force_numbers($data));