From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Wed, 31 May 2023 20:52:11 +0000 (+0200)
Subject: lib/php/out/perl.php
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=4ab734e48d6200134c42d8db4e183b9462de1e9d;p=nb.git

lib/php/out/perl.php
---

diff --git a/lib/php/out/perl.php b/lib/php/out/perl.php
new file mode 100644
index 00000000..6613bed7
--- /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));
+  }
+];
+?>