Если у вас есть Perl на вашем сервере, вы используете:
print 'Array(';
while (($key, $val) = each(%arrayname)) {
print "'$key' => '$val',";
}
print ');';
Вы также можете взглянуть на пакет Perl PECL , эта библиотека интегрирует парсер Perl в PHP.
Вы можете использовать онлайновый интерпретатор Perl с примером кода и работой (в конце есть только одна лишняя запятая).
Я создал регулярное выражение, которое почти работает.Вы можете попробовать это, но это зависит от структуры массива Perl:
preg_match_all(#\%(.+)\s=|\n(.+).*#);
Пример данных:
my %arrayname = (
key1 => "Value1",
key2 => "Value2",
key3 => "Value3"
)
Вы можете проверить это с помощью Средство тестирования регулярных выражений.