[caracas-pm] Ayuda con Expresiones Regulares

[Francisco Ugarte Rivas]

Hola Guillermo, quizas lo que tengas q hacer es tan solo agregar un '.*-' en
el sitio correcto.

Algo así.

#! C:\bin\perl

my $var1 =
"Systems/1353NM-XX1X/data/eml/usmvW.Y.Z/UsmPrint.pshjnubuknlSystems/1353NM-X2XX/data/eml/usmvW.Y.Z/UsmPrint.psijlihkhugyjfujffSystems/1353NM-X3XX/data/eml/usmvW.Y.Z/UsmPrint.ps";

print "var 1 = $var1;\n\n";

$var1 =~ s!Systems/.*-([^/]*).*/UsmPrint.ps!Systems/$1/script/UsmPrint.ps!;

print "new var 1 = $var1;\n";


Saludos.


-- 
   ..:: Francisco Ugarte Rivas ::..
Estudiante de Ing de Computación
           Webmaster USB
      Universidad Simón Bolívar
          +58-0412-7196800
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.pm.org/pipermail/caracas-pm/attachments/20060808/928c959f/attachment.html