Solo numeros y punto decimal (expresion regular)

[kidd]

Por lo que veo creo que quieres algo así:

Código:

my @num = (12, 11.897, 13.21, 17.1);


    for my $num(@num){
        $num =~ /(\d{2})(?:\.(\d{0,2}))?/;
        my ($integral, $decimal) = ($1,$2);

        print "Integral: $integral\n";
        print "Deciaml: $decimal\n";
        print "\n";
    }

Aunque serviría que nos des más detalles para saber exactamente lo que quieres hacer .


Saludos