Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict;
my $palabra = 'W$j@/E';
if ($palabra =~ /./) {
print "Si que tiene un punto";
}
use strict;
my $palabra = 'W$j@/E';
if ($palabra =~ /./) {
print "Si que tiene un punto";
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Ese código me dice que mi palabra tiene un punto, pero mi palabra no tiene ningún punto, ... ¿dónde está el error? ¿Se puede solucionar?
Gracias de antemano.