lib/php/out/perl.php

diff --git a/lib/php/out/perl.php b/lib/php/out/perl.php
new file mode 100644 (file)
index 0000000..6613bed
--- /dev/null
+++ b/lib/php/out/perl.php
@@ -0,0 +1,19 @@
+<?php
+if (!class_exists('out')) return;
+return [
+  'enclose' => (self::p('enclose') === '0' ? [] : [
+     '@VAR = ('.NB_EOL
+    ,');'.NB_EOL
+  ]),
+  'eol' => self::p('eol',NB_EOL),
+  'row' => function(&$o,&$r) {
+    return preg_replace(array(
+      '/^array\s*\(/',
+      '/\)$/',
+    ),array(
+      '{',
+      "},",
+    ),var_export($r,true));
+  }
+];
+?>