Separar variable PHP y su valor, con Perl

[Batusai]

Hola.

He intentado buscar un script que haga lo que busco en hotscripts.com pero sin suerte.

Lo que necesito es algo que me ayude a separar los valores tomados de un archivo PHP con variables y valores, y los convierta en sentencias SQL. Por ejemplo:

Supongamos un archivo llamado admin.php con este contenido:

Código PHP:

      'CHANGE_DEFAULT_GROUP'            => 'Cambiar grupo por defecto',
    'CHANGE_PASSWORD'                => 'Cambiar contraseña', 
   

Necesitaría que se generara una sentencia del tipo:

Código:

INSERT INTO tabla_admin ( variable, valor ) VALUES ( 'CHANGE_DEFAULT_GROUP', 'Cambiar grupo por defecto');
INSERT INTO tabla_admin ( variable, valor ) VALUES ( 'CHANGE_PASSWORD', 'Cambiar contraseña');

Supongo que eso se puede hacer con Perl, pero no tengo ni idea de cómo.

Cualquier ayuda sería bienvenida y agradecida.

Saludos.

[jferrero]

Código Perl:

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
 
open my $PHP, q[<], 'admin.php'  or  die "ERROR: No puedo leer admin.php: $!\n";
 
while (<$PHP>) {
    if (/'(.+?)'.+?'(.+?)'/) {
        say "INSERT INTO tabla_admin ( variable, valor ) VALUES ( '$1', '$2')";
    }
}
 
close   $PHP;