Foro - Perl en Español

Sobra un '\' al principio.

Código: Seleccionar todo

$model = "Platform: cisco WS-C2924-XL, Capabilities: Trans-Bridge Switch";
($model2) = $model =~ m/Platform:\s+cisco\s+([^,]+),/;
print $model2; # WS-C2924-XL

Si estás completamente seguro de que todos los aparatos son cisco, puedes usar esta otra expresión regular:

Código: Seleccionar todo

($model2) = $model =~ m/cisco *(.+?),/;

es decir, nos quedamos (()) con lo (.+) que sigue a la palabra 'cisco' seguido de algunos espacios ( *), hasta la primera coma (usamos un ? para evitar que .+ se lea toda la línea. Queremos que pare en la primera combinación de la expresión regular, esto es, en la primera que coincida con la primera coma encontrada).