X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fhash2array.pl;h=8b3419d1139fbdbb68f742470b85125bbc8aec40;hb=b40a565a6a78eb14572fc60de1807d91662017fd;hp=863ba885721a1de1c42bc9929d4b51426a34f76b;hpb=f46c60eca42ac927f26e0d332112a3a5eae80269;p=perl%2Fmodules%2Fautovivification.git

diff --git a/samples/hash2array.pl b/samples/hash2array.pl
index 863ba88..8b3419d 100644
--- a/samples/hash2array.pl
+++ b/samples/hash2array.pl
@@ -6,8 +6,9 @@ use warnings;
 use Fatal qw/open/;
 use Text::Balanced qw/extract_bracketed/;
 
-open my $hash_t,  '<', 't/20-hash.t';
-open my $array_t, '>', 't/21-array.t';
+open my $hash_t,       '<', 't/20-hash.t';
+open my $array_t,      '>', 't/30-array.t';
+open my $array_fast_t, '>', 't/31-array-fast.t';
 
 sub num { ord($_[0]) - ord('a') }
 
@@ -35,23 +36,28 @@ my $in_data;
 while (<$hash_t>) {
  if (/^__DATA__$/) {
   $in_data = 1;
-  print $array_t $_;
+  print $array_t      $_;
+  print $array_fast_t $_;
  } elsif (!$in_data) {
   s{'%'}{'\@'};
-  print $array_t $_;
+  print $array_t      $_;
+  print $array_fast_t $_;
  } else {
-  s!(\ba\b)?(\s*)HASH\b!($1 ? 'an': '') . "$2ARRAY"!eg;
-  s!->{([a-z])}!'->[' . num($1) . ']'!eg;
-  s!%(\{?)\$!\@$1\$!g;
-  my $buf;
-  my $suffix = $_;
-  my ($bracket, $prefix);
-  while (do { ($bracket, $suffix, $prefix) = extract($suffix); $bracket }) {
-   $buf .= $prefix . dump_array(hash2array(eval $bracket));
+  for my $file ([ 1, $array_t ], [ 0, $array_fast_t ]) {
+   local $_ = $_;
+   s!(\ba\b)?(\s*)HASH\b!($1 ? 'an': '') . "$2ARRAY"!eg;
+   s!->{([a-z])}!my $n = num($1); '->[' . ($file->[0] ? "\$N[$n]" : $n) .']'!eg;
+   s!%(\{?)\$!\@$1\$!g;
+   my $buf;
+   my $suffix = $_;
+   my ($bracket, $prefix);
+   while (do { ($bracket, $suffix, $prefix) = extract($suffix); $bracket }) {
+    $buf .= $prefix . dump_array(hash2array(eval $bracket));
+   }
+   $buf .= $suffix;
+   $buf =~ s/\s+/ /g;
+   $buf =~ s/\s+$//;
+   print { $file->[1] } "$buf\n";
   }
-  $buf .= $suffix;
-  $buf =~ s/\s+/ /g;
-  $buf =~ s/\s+$//;
-  print $array_t "$buf\n";
  }
 }