テキストファイルからテキストをPerlでjson形式で保存する方法

Question

テキストファイルのテキストをPerlでJson形式で保存する方法を知りたいと思います。私はperlがインターネット上でループしながら使用してファイルを読むことができることがわかったので、テキストファイルから

テキスト

23rd Street Wave the Wheat Ale 

Lawrence, Kansas, USA 

5.2 

13.65 

Rating - 0.00 

3 Guys & A Beer’d Wheat the People 

Carbondale, Pennsylvania, USA 

5.2 

Unknown 

Rating - 0.00 

51 North Paint Creek Wheat 

Lake Orion, Michigan, USA 

4.8 

Unknown 

Rating - 0.00 

は、私がコードを実装しようとしたが、それは失敗しました。以下は

は私のPerlスクリプト

for($i = 0; $i < $fileSize; $i+2){ 
say qq{{"beerName": "$beerName", 
"location":"$location", 
"ABV":"$ABV", 
"IBU":"$IBU", 
"Rating":"$Rating"}}; 
} 

Answer 1

ないテキストファイルの構造が何であるか、それがどのように一貫してくださいです。私はすべてのエントリーは5行で、各エントリーのアイテムは同じオーダーであると思う。その場合は、一度に5行のテキストファイルを読み込んで、各行を適切なハッシュキーに割り当て、そのハッシュリファレンスを後でJSONに使用できる配列に格納することです構造。たぶん、よりエレガントにそれを行うための方法が、このようなものについて何：

#!/usr/bin/perl 
use strict; 
use warnings; 
use autodie; 

use JSON; 

my $input_file = shift; 
my @results; 

open(my $fh, "<", $input_file); 
# Read the text file 5 lines at a time, and store each line in the hash data with the desired keys. 
while ((my @lines) = map { scalar(<$fh>) or() } 0..4) { 
    my %data = ('beername' => $lines[0], 
       'location' => $lines[1], 
       'ABV'  => $lines[2], 
       'IBU'  => $lines[3], 
       'Rating' => $lines[4], 
    ); 
    # Store these hash refs in an array that we'll later convert to JSON. 
    push(@results, \%data); 
} 

# Write results to file. 
open(my $json_out, ">", 'beers.json'); 
print {$json_out} encode_json(\@results); 

これは構造を持っているだろう「beers.json」ファイルになります：私が言ったように

$ json_xs <beers.json 
[ 
    { 
     "ABV" : "5.2\n", 
     "IBU" : "13.65\n", 
     "location" : "Lawrence, Kansas, USA\n", 
     "Rating" : "Rating - 0.00\n", 
     "beername" : "23rd Street Wave the Wheat Ale\n" 
    }, 
    { 
     "ABV" : "5.2\n", 
     "IBU" : "Unknown\n", 
     "location" : "Carbondale, Pennsylvania, USA\n", 
     "Rating" : "Rating - 0.00\n", 
     "beername" : "3 Guys & A Beerââ¬â¢d Wheat the People\n" 
    }, 
    { 
     "location" : "Lake Orion, Michigan, USA\n", 
     "Rating" : "Rating - 0.00\n", 
     "beername" : "51 North Paint Creek Wheat\n", 
     "IBU" : "Unknown\n", 
     "ABV" : "4.8\n" 
    } 
] 

、おそらくエレガントではなく、あなたのファイルが各ビールについて5行であり、各ビールのメタデータが毎回同じ順序であるという仮定に完全に依存しているかもしれません。しかし、他に何もないなら、これは良い出発点として役立つでしょうか？