🚀 go-pugleaf

Holas

Alguien me puede explicar porqu� este c�digo no rula?

  my ($info) = ($buffer =~ /(.*)\n/);
 my ($compext, $dumpext) =
 ($info =~ /AMANDA: FILE \d+ \w+ \S+ lev \d+ comp (\S+) program (\S+)/);
 goto END_1 if !$compext or !$dumpext; 

Deber�a asignar las extensiones de compresion y empaquetamiento segun lo
encontrado en (\S+)  y (\S+) pero no lo hace.

$info es una cadena como �sta:
AMANDA: FILE 20010528 hola.fou.net /etc lev 1 comp .gz program /bin/gtar 

Tendr�a que actualizar perl a una versi�n mayor o es un fallo del c�digo?
tengo perl, version 5.005_03 built for i386-linux de debian potato

Pues eso

Gracias

Pere

Por cierto si estais interesados en ello este c�digo es del programa cdrw-taper
que encontr� el otro d�a en internet i que sirve para que amanda funcione
tambi�n con cd-rw


9 pero no lo hace

Lo he encontrado en un