]> git.nbdom.net Git - nb.git/commitdiff
lib/php/out/perl.php
authorNicolas Boisselier <nicolas.boisselier@gmail.com>
Wed, 31 May 2023 20:52:11 +0000 (22:52 +0200)
committerNicolas Boisselier <nicolas.boisselier@gmail.com>
Wed, 31 May 2023 20:52:11 +0000 (22:52 +0200)
lib/php/out/perl.php [new file with mode: 0644]

diff --git a/lib/php/out/perl.php b/lib/php/out/perl.php
new file mode 100644 (file)
index 0000000..6613bed
--- /dev/null
@@ -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));
+  }
+];
+?>