in reply to Validation of UserInput is a positive Integer or not?

"...Input is a positive Integer or not"

Try this:

#!/usr/bin/env perl

use strict;
use warnings;
use Inline Java => q(./Karl.java);
use feature qw(say);

say Karl->isaInt($_) for ( -10, 0, 10 );

__END__

karls-mac-mini:inline karl$ ./run.pl
-1
0
1

[download]

Karl.java:

import java.lang.Integer;

class Karl {
    private Karl(){
    }
    public static int isaInt( int n){
        return Integer.signum(n);
    }
}

[download]

It seems like it works ;-)

I guess that they burn me for this.

Please see also Inline.

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

Replies are listed 'Best First'.
Re^2: Validation of UserInput is a positive Integer or not?
by Lotus1 (Vicar) on Dec 08, 2015 at 21:30 UTC

    Moose has type validation but I have never tried to use it stand alone. I did find the Data::Types module useful.

    #!/usr/bin/perl
use warnings;
use strict;
use Data::Types qw(is_int);

foreach ( qw( 1.1 -2 0 3 hi 0.0 2e5 0b11 ), 0b11 ){
    print $_, (is_int($_) and $_>0) ? ' is':' is not', " a positive in
+teger.\n";
}

__DATA__
1.1 is not a positive integer.
-2 is not a positive integer.
0 is not a positive integer.
3 is a positive integer.
hi is not a positive integer.
0.0 is not a positive integer.
2e5 is not a positive integer.
0b11 is not a positive integer.
3 is a positive integer.

    [download]
[reply]
[d/l]

      Cool. Yet another module i didn't know.

      Thanks and best regards, Karl

      «The Crux of the Biscuit is the Apostrophe»

[reply]

In Section Seekers of Perl Wisdom