Using perl Syntax Highlighting
if ( $campos[0] =~ /(.+)\./ ) {
$campos[2] = $1 . '.' . $campos[2
];
}Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
La línea del
if está comprobando si el primer campo coincide (
=~) con un patrón de búsqueda. Ese patrón es
/(.+)\./ que quiere decir que nos quedamos (
()) con todo (
.+) lo que hay delante de un punto (
\.).
Si hemos encontrado ese patrón, se ejecuta la siguiente línea.
La siguiente línea asigna un nuevo valor al tercer campo. Ese nuevo valor es: lo que hemos capturado antes en el primer par de paréntesis del patrón (
$1), seguido de un punto y seguido de lo que era antes el tercer campo (usamos el operador punto para hacer concatenación de cadenas de caracteres).
El
split, sin ningún parámetro, divide
$_ (la línea del fichero en este caso), por los espacios en blanco que separan los campos. Y da lo mismo que sean espacios en blanco o tabuladores.