fork download
copy 
  1. $/ = $\;
  2.  
  3. @tests = split /\*{30}/, <DATA>;
  4.  
  5. for (@tests){
  6.  
  7. /{(.*)}(.*)/ms;
  8.  
  9. ($kson, $table) = ("($1)", $2);
  10.  
  11. $kson =~ s/
  12. 	".*?" \s* \K :
  13. /
  14. 	"=>"
  15. /xmsge;
  16.  
  17. %h = eval $kson;
  18.  
  19. $table =~ s/^\s+//ms;
  20.  
  21. @table = split /\n/, $table;
  22.  
  23. @plus = ();
  24. push @plus, pos $table[0] while $table[0] =~ m/\+/g;
  25.  
  26. @table = grep m/^\|/m, @table;
  27.  
  28. for $i (0 .. @table-1){
  29. 	for $j (0 .. @plus -2){
  30. 		$T[$i][$j] = substr $table[$i], $plus[$j], $plus[$j+1] - $plus[$j] - 1;
  31. 		$T[$i][$j] =~ s/
  32. 			^ ( \s* Value: ( [.\w ]*? ) \s* ) $
  33. 		/
  34. 			$match = $1,
  35. 			$keys = $2,
  36. 			@keys = (split m!\.!, "$keys.A"),
  37. 			pop @keys,
  38. 			$space_fail = (grep m!^ | $!, @keys),
  39. 			$keys = eval '$h' . (join '', map qq[{"$_"}], @keys),
  40. 			defined $keys && ! (ref $keys) && ! $space_fail ?
  41. 				$keys
  42. 			:
  43. 				$match
  44. 		/xgmse
  45. 		}
  46. 	}
  47.  
  48. @jmax = ();
  49.  
  50. for $j (0 .. @plus -2){
  51. 	$max = 0;
  52. 	for $i (0 .. @table-1){
  53. 		$len = length $T[$i][$j];
  54. 		$max < $len and $max = $len;
  55. 		}
  56.  
  57. 	for $i (0 .. @table-1){
  58. 		$T[$i][$j] .= ' ' x ($max - length $T[$i][$j]);
  59. 		}
  60. 	push @jmax, $max;
  61. 	}
  62.  
  63. print join (
  64. 		( join '', map "$_\n", join '+', '', ( map '-' x $_, @jmax ), '' ),
  65. 			'',
  66. 			( map "$_\n", map { join '|', '', @{ $T[$_] }, '' } 0 .. @table-1 ),
  67. 			'',
  68. 	);
  69.  
  70. undef @T;
  71. }
  72.  
  73.  
  74. __DATA__
  75. {}
  76. ++-------------+-------------------------+----------------------+--+
  77. ||             |   Value:                |  Value:.             |  |
  78. ++-------------+-------------------------+----------------------+--+
  79. ******************************
  80.        {   
  81.    }  
  82. ++-------------+-------------------------+----------------------+--+
  83. ||             |Value:                   |Value:.               |  |
  84. ++-------------+-------------------------+----------------------+--+
  85. ******************************
  86.        {   "":"a  b"
  87.    }  
  88. +-------------+-------------------------+----------------+---------+
  89. |       Value:|Value:                   |Value:.         |  Value:.|
  90. +-------------+-------------------------+----------------+---------+
  91. ******************************
  92.        {   "b c":"a  b"
  93.    }  
  94. +-------------+-------------------------+----------------+----------+
  95. |   Value:b c |                Value:b c|Value: b c      |Value:.b c|
  96. +-------------+-------------------------+----------------+----------+
  97. ******************************
  98.        {   ""     :
  99. ""   }  
  100. +-------------+-------------------------+----------------+----------+
  101. |   Value:    |                   Value:|Value:          |Value:.   |
  102. +-------------+-------------------------+----------------+----------+
  103. |  Value :    |                   value:|Value:         .|   Value:.|
  104. +-------------+-------------------------+----------------+----------+
  105. ******************************
  106.        {   "c  d"     :
  107. "   fg   "   , "c" : "f","d"       : ": ."
  108.  
  109.     }  
  110. +-------------+-------------------------+----------------+----------+
  111. |   Value:c  d|       Value:c           |Value:d         |Value:.   |
  112. +-------------+-------------------------+----------------+----------+
  113. |  Value:d.   |               Value:.d  |Value: d        | Value:d.c|
  114. +-------------+-------------------------+----------------+----------+
  115. ******************************
  116.        {   "fg"     : {}, "12 34" :
  117.  "..."   , "c" : { "d" : "cd", "e" : {    } }
  118.  
  119.     }  
  120. +-------------+-------------------------+----------------+----------+
  121. |   Value:fg  |       Value:12 34       |Value:c         |Value:fg. |
  122. +-------------+-------------------------+----------------+----------+
  123. |  Value:c.d  |               Value:d   |Value:c.e       | Value:e  |
  124. +-------------+-------------------------+----------------+----------+
Success #stdin #stdout 0s 6044KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
++-------------+-------------------------+----------------------+--+
||             |   Value:                |  Value:.             |  |
++-------------+-------------------------+----------------------+--+
++-------------+-------------------------+----------------------+--+
||             |Value:                   |Value:.               |  |
++-------------+-------------------------+----------------------+--+
+----+----+----------------+---------+
|a  b|a  b|Value:.         |  Value:.|
+----+----+----------------+---------+
+----+----+----------------+----------+
|a  b|a  b|Value: b c      |Value:.b c|
+----+----+----------------+----------+
+-------------+-------------------------+----------------+----------+
|             |                         |                |Value:.   |
+-------------+-------------------------+----------------+----------+
|  Value :    |                   value:|Value:         .|   Value:.|
+-------------+-------------------------+----------------+----------+
+-------------+-------------------------+----------------+----------+
|   fg        |f                        |: .             |Value:.   |
+-------------+-------------------------+----------------+----------+
|  Value:d.   |               Value:.d  |Value: d        | Value:d.c|
+-------------+-------------------------+----------------+----------+
+-------------+-------------------------+----------------+----------+
|   Value:fg  |...                      |Value:c         |Value:fg. |
+-------------+-------------------------+----------------+----------+
|cd           |               Value:d   |Value:c.e       | Value:e  |
+-------------+-------------------------+----------------+----------+
https://ideone.com/JJLSHK
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!