En realidad quiero complementar mi función print_LOG, haciendo que, además de imprimir el argumento que se le pase, actualice una variable global que cuenta el número de líneas que va imprimiendo.
Para ello haría algo como:
Using perl Syntax Highlighting
#!/bin/perl
our $lines;
sub print_LOG
() {
my $message = shift;
print $message;
while ($message contenga
"\n") {
$message=$message - "\n";
$lines++;
}
}
print_LOG
("missatget\n");
print_LOG
("lalalalala");
print_LOG
("tururú\n\n\n");Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
El valor del $lines llegado a este punto debería ser 4.
¿Sabéis cómo podría implementar:?
Using perl Syntax Highlighting
while ($message contenga
"\n") {
$message=$message - "\n";Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Muchas gracias