perl - Parse::RecDescent によるデータの収集

Question

ステートメントのコレクションである文字列 (30,000 以上) のリストがあります。論理的にParse::RecDescentは、文字列を解析してデータを収集するために使用するツールですが、文法仕様の構築について理解できません。

次のコードは、祝福されたノードの大きなリストを作成していますが、より有用なデータ構造を実際に作成する方法がわかりません (私が欲しいのはYear, Vol&Iss値だけです)

#!/usr/bin/perl

use strict;
use warnings;

use Parse::RecDescent;
use Data::Dumper;

my $string1 = '2006 - v. 1 (1-2), 2007 - v. 2 (1-4), 2008 - v. 3 (1-4), 2009 - v. 4 (1-4), 2010 - v. 5 (1-4), 2011 - v. 6 (1-2), 2012 - v. 7 (1, 4), 2013/2014 - v. 8 (1-4), 2014 - v. 9 (1, 3)';
my $string2 = 'v.35(1,2),v.36(1,2),v.33(1,2),v.34(1,2),v.39(1,2),v.37(1,2),v.38(1,2),v.43(1,2),v.42(1,2),v.41(1,2),v.40(1,2),v.22(),v.23(),v.24(),v.25(1),v.26(),v.27(),v.28(1,2),v.29(1,2),v.3(),v.2(1,2),v.1(1,2),v.30(),v.7(),v.6(),v.32(1,2),v.5(),v.4(),v.31()';
my $string3 = '1820/1825 - v. 1 (1-2), 1821/1825 - v. 2 (3-4), 1821/1826 - v. 3 (5-6), 1821 - v. 4 (7-8), 1822 - v. 5 (9-10), 1823 - v. 6 (11-12), 1823 - v. 7 (13-14), 1823 - v. 8 (15-16), 1824 - v. 9 (17-18)';

my $data = {}; # Edit: Added hash-ref to show alternate testing
my $grammar = q {
   <autotree> 
     Holdings  : Node(s /,/) 
     Node      : When(?) Volume Issue { $data->{ $item{when} } = [ $item{Vol}, $item{Iss} ] } # Edit: Action Added - This was one option I tried
     When      : Years | Year { $arg[0] = $item{When} } 
     Years     : Year '/' Year
     Year      : /\\d{4}/  { $item[1] } # Edit: Action Added - This was another option I tried
     Volume    : /v\\.\\s*/ Vol { $arg[1] = $item{Vol} } # Edit: Add commet "This was blindly flailing to work out how to get variable data
     Vol       : /\\d+/
     Issue     : /\\s*\(/ Iss ')' { $arg[2] = $item{Iss} }
     Iss       : /[\\d+\\-\\,]*/ 
     };

my $parser = Parse::RecDescent->new($grammar);

foreach my $string ( ($string1, $string2, $string3) ) {
  $string =~ s/\s+\-\s+//g;
  print "$string\n";
  my $output = $parser->Holdings($string);
  print Dumper $output;
}

余談ですが、ループで置換が不要になるように文法ステートメントを作成するにはどうすればよいですか?