Hola! Si te entiendo bien, necesitas imprimir la primera palabra de una cadena (cuando existe una)?
Supongo que tengamos un archivo como
-------------------------------------------------------------------------------------------------
Interface IP-Address OK? Method Status Prot
ocol
Vlan1 unassigned YES NVRAM administratively down down
Vlan301 150.168.1.250 YES manual up up
Vlan302 142.87.13.62 YES manual up up
Vlan303 142.87.13.126 YES manual up up
Vlan304 142.87.13.254 YES NVRAM administratively down down
-------------------------------------------------------------------------------------------------
luego usar este Perl:
Código:
while (<>) {
next if /^$/; # si no hay palabra, haga nada
($primero)=split;
{print "encontrado: $primero \n"; }
}
(por ejemplo %perl split.pl Interface.txt )
Claro que las cadenas estan ya dentro de tu programa - puedes adaptar el codigo para leer/probar las lineas..
Suerte!