forked from do-aki/php-ext-perl
-
Notifications
You must be signed in to change notification settings - Fork 0
/
README
171 lines (129 loc) · 5.28 KB
/
README
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
What is php-ext-perl?
=====================
This extension allows embedding of Perl interpreter into PHP 8 to:
* execute Perl files
* evaluate Perl code
* access values of Perl variables
* call Perl subroutines
* instantiate and manipulate of Perl objects
It is based on the work of Dmitry Stogov who wrote the PHP 5 extension and was
mostly rewritten for PHP 8.
Requirements
============
PHP 8.0.0 or later
Tested on Perl 5.28 and 5.38
Linux
Compilation
===========
phpize
./configure
make test
Installation
============
sudo make install
Add to php.ini:
extension=perl.so
PHP API
=======
new Perl()
----------
Creates perl interpreter. It allows
* reading and modifying of Perl variables
* calling Perl functions
* evaluating Perl code
* loading and executing exteranl Perl files
Examples:
$perl = new Perl();
var_dump($perl->x); // print scalar Perl variable - $x
var_dump($perl->array->x); // print array Perl variable - @x
var_dump($perl->hash->x); // print hash Perl variable - %x
$perl->func(); // call Perl function 'func' in void context
$x = $perl->func(); // call Perl function 'func' in scalar context
$y = $perl->array->func(); // call Perl function 'func' in array context
$y = $perl->hash->func(); // call Perl function 'func' in hash context
$perl->eval('use Digest::MD5');
echo $perl->{'Digest::MD5::md5_hex'}('Hello');
Perl->eval($perl_code)
----------------------
Evaluates Perl code and returns result. If Perl code is invalid it will
throw PHP exception.
Exampes:
$perl = new Perl();
$perl->eval('require "test.pl";');
echo $perl->eval($x.'+'.$y.';');
$perl->eval('$z='.$x.'+'.$y.';');
By default Perl code is evaluated in scalar context, but it can be
evaluated in array or hash context too.
Exampes:
$perl = new Perl();
$perl->eval('("a","b","c")'); // eval in void context
var_dump($perl->eval('("a","b","c")')); // eval in scalar context
var_dump($perl->array->eval('("a","b","c")')); // eval in array context
var_dump($perl->hash->eval('("a","b","c")')); // eval in hash context
Perl->require($perl_file_name)
------------------------------
Loads and executes Perl file. It doesn't return any value. If required Perl
file doesn't exist or invalid it will throw PHP exception.
Examples:
$perl = new Perl();
$perl->require('test.pl');
new Perl($perl_class_name[, $constructor = "new"[, ...]])
-----------------------------------------------------
Creates an instance of Perl class through calling specified constructor
or "new" if constructor is not specified. Additional parameters passed
to Perl's constructor. The created object allows:
* reading and modifying of object properties
* calling methods
* cloning
Examples:
$x = new Perl("Test");
$y = new Perl("Test","copy",$x);
$z = clone $y;
echo $z->property;
echo $z->method(1,2,3);
Methods can be called in array or hash context in the same way as Perl
functions, but all properties are acessable directly (without array or
hash modifiers).
Examples:
$x = new Perl("Test");
$x->f(); // call method "f" in void context
var_dump($x->f()); // call method "f" in scalar context
var_dump($x->array->f()); // call method "f" in array context
var_dump($x->hash->f()); // call method "f" in hash context
Known limitation - proxy objects
================================
Perl objects are passed between Perl and PHP by reference. All other data types
(including arrays and hashes) are passed by value. So modification of Perl's
arrays and hashes in PHP will not have effect in Perl.
$perl->eval("@x = (1,2,3)");
$perl->eval('print @x'); // prints 123
$x = $perl->array->x;
$x[1] = 9; // $x = [1,9,3];
$perl->eval('print @x'); // prints 123
Previously, the following could be done:
$perl->eval("@x = (1,2,3)");
$perl->eval('print @x'); // prints 123
$x = &$perl->array->x; // we return a proxy object because of the &
$x[1] = 9;
$perl->eval('print @x'); // prints 193
However, PHP 8.0 deprecated line 4 of the above example. It can be reimplemented
as it has been in php_ffi by a special property called "data" or something, but
I personally don't require that feature so I haven't implemented it yet.
Known limitation - calling internal Perl functions
==================================================
You can't call internal perl functions (print, die, etc) using the
$perl->function() syntax.
TODO
====
* Some tests don't pass because perl hashes are returned in random order. I have
mitigated this in some places but the remaining ones would no longer be a good
test if changed. Maybe something clever could be done with EXPECTREGEX or a
patch could be made upstream or maybe output buffer could be checked by the
test itself.
* Re-implement proxy scalar object writing
Support
=======
I need to maintain this for production anyway, so bug reports and PRs are
welcome. Ideally, make a PR with a phpt file which fails.
This version of the extension has not been tested on Windows, or with Perl
versions other than 5.28 and 5.32.