Normalmente, con las expresiones regulares se usa El operador de binding =˜ , el cuál nos permite ''asociar'' la variable con la operación de casamiento/sustitución sobre la expresión regular:
if ($d =~ /esto/) { print "la palabra 'esto' aparece en: $d\n" }Si se omiten el operador
=~
y la variable
entonces se usa la variable por defecto $_
:
pp2@nereida:~/doc/2005_2006$ perl -wde 0 main::(-e:1): 0 DB<1> $_ = '-3.2' DB<2> print "yes" if /\d+\.?\d*/ # igual que $_ =~ /\d+\.?\d*/ yes DB<3> print "yes" if /^\d+\.?\d*$/ # No casa. $_ empieza por '-' DB<4> print "yes" if /^-?\d+\.?\d*$/ yes
Casiano Rodríguez León