commandline version of this script.

[NNTP]

#!/usr/bin/perl
use Validate::Net;
if ( Validate::Net->ip($ARGV[0]))
{
print "valid";
exit 0;
}
print "invalid";
#--done

is it even doable?

[Ben Morrow]

ne******@yahoo. com (NNTP) wrote:

#!/usr/bin/perl
use Validate::Net;
if ( Validate::Net->ip($ARGV[0]))
{
print "valid";
exit 0;
}
print "invalid";
#--done

is it even doable?

err... (untested)

perl -MValidate::Net -le'print !Validate::Net->ip(shift) && "in", "valid"'

Ben

--
"If a book is worth reading when you are six, * be*@morrow.me.u k
it is worth reading when you are sixty." - C.S.Lewis

[Exide Arabellan]

NNTP wrote:

#!/usr/bin/perl
use Validate::Net;
if ( Validate::Net->ip($ARGV[0]))
{
print "valid";
exit 0;
}
print "invalid";
#--done

is it even doable?

Worked for me. Here is the script i used:

#!/usr/bin/perl -w

use strict;
use Validate::Net;

if (Validate::Net->ip($ARGV[0])) {
print "valid\n";
exit 0;
}
print "invalid\n" ;

[NNTP]

This script does work but what I am trying to do is call it from
another script and I don't want to have 2 scripts if I can just
replace this script with a command like Ben suggested,

perl -MValidate::Net -le'print \!Validate::Net->ip(shift) && "in",
"valid"'
doesn't work

sh-2.05a# ./validateip.pl 1.1.1.1
valid
sh-2.05a# ./validateip.pl 1.1.1.1asdfdasf
invalid
sh-2.05a# cat validateip.pl
#!/usr/bin/perl
use Validate::Net;
if ( Validate::Net->ip($ARGV[0]))
{
print "valid
";
exit 0;
}
print "invalid
";
sh-2.05a# perl -MValidate::Net -le'print \!Validate::Net->ip(1.1.1.1)
&& "in", "valid"'
invalid
sh-2.05a# perl -MValidate::Net -le'print \!Validate::Net->ip(1.1.11.)
&& "in", "valid"'
syntax error at -e line 1, near ".) "
Execution of -e aborted due to compilation errors.
sh-2.05a# perl -MValidate::Net -le'print
\!Validate::Net->ip(1.1.1.1asdf dasf) && "in", "valid"'
Bareword found where operator expected at -e line 1, near
"1.1.1.1asdfdas f"
(Missing operator before asdfdasf?)
syntax error at -e line 1, near "1.1.1.1asdfdas f"
Execution of -e aborted due to compilation errors.


Ben Morrow <us****@morrow. me.uk> wrote in message news:<c1******* ***@wisteria.cs v.warwick.ac.uk >...

ne******@yahoo. com (NNTP) wrote:

#!/usr/bin/perl
use Validate::Net;
if ( Validate::Net->ip($ARGV[0]))
{
print "valid";
exit 0;
}
print "invalid";
#--done

is it even doable?

err... (untested)

perl -MValidate::Net -le'print !Validate::Net->ip(shift) && "in", "valid"'

Ben

[Ben Morrow]

[don't top-post]
[wrap your posts at 72 chars or so]

ne******@yahoo. com (NNTP) wrote:

Ben Morrow <us****@morrow. me.uk> wrote in message
news:<c1******* ***@wisteria.cs v.warwick.ac.uk >...

ne******@yahoo. com (NNTP) wrote:

#!/usr/bin/perl
use Validate::Net;
if ( Validate::Net->ip($ARGV[0]))
{
print "valid";
exit 0;
}
print "invalid";
#--done

is it even doable?

err... (untested)

perl -MValidate::Net -le'print !Validate::Net->ip(shift) && "in", "valid"'

perl -MValidate::Net -le'print \!Validate::Net->ip(shift) && "in",
"valid"'
doesn't work

sh-2.05a# perl -MValidate::Net -le'print \!Validate::Net->ip(1.1.1.1)
&& "in", "valid"'
invalid
sh-2.05a# perl -MValidate::Net -le'print \!Validate::Net->ip(1.1.11.)
&& "in", "valid"'
syntax error at -e line 1, near ".) "
Execution of -e aborted due to compilation errors.
sh-2.05a# perl -MValidate::Net -le'print
\!Validate::Net->ip(1.1.1.1asdf dasf) && "in", "valid"'
Bareword found where operator expected at -e line 1, near
"1.1.1.1asdfdas f"
(Missing operator before asdfdasf?)
syntax error at -e line 1, near "1.1.1.1asdfdas f"
Execution of -e aborted due to compilation errors.

Try using it right:

~% perl -MValidate::Net -le'print !Validate::Net->ip("1.1.1.1" )
&& "in", "valid"'
valid
~% perl -MValidate::Net -le'print !Validate::Net->ip("1.1.1.1ada d")
&& "in", "valid"'
invalid
~% perl -MValidate::Net -le'print !Validate::Net->ip("1.1.11." )
&& "in", "valid"'
invalid

or, better,

#!/bin/sh

VALID_IP=$(<<CM D
perl -MValidate::Net -le'print !Validate::Net->ip(shift) && "in", "valid"'
CMD
)

eval $VALID_IP 1.1.1.1
eval $VALID_IP 1.1.11.
eval $VALID_IP 1.1.1.1adsf

Ben

--
don't get my sympathy hanging out the 15th floor. you've changed the locks 3
times, he still comes reeling though the door, and soon he'll get to you, teach
you how to get to purest hell. you do it to yourself and that's what really
hurts is you do it to yourself just you, you and noone else * be*@morrow.me.u k

[NNTP]

That worked great. my bad.

Thanks

Ben Morrow <us****@morrow. me.uk> wrote in message news:<c1******* ***@wisteria.cs v.warwick.ac.uk >...

[don't top-post]
[wrap your posts at 72 chars or so]

ne******@yahoo. com (NNTP) wrote:

Ben Morrow <us****@morrow. me.uk> wrote in message
news:<c1******* ***@wisteria.cs v.warwick.ac.uk >...

ne******@yahoo. com (NNTP) wrote:
>
> #!/usr/bin/perl
> use Validate::Net;
> if ( Validate::Net->ip($ARGV[0]))
> {
> print "valid";
> exit 0;
> }
> print "invalid";
> #--done
>
> is it even doable?

err... (untested)

perl -MValidate::Net -le'print !Validate::Net->ip(shift) && "in", "valid"'

perl -MValidate::Net -le'print \!Validate::Net->ip(shift) && "in",
"valid"'
doesn't work

sh-2.05a# perl -MValidate::Net -le'print \!Validate::Net->ip(1.1.1.1)
&& "in", "valid"'
invalid
sh-2.05a# perl -MValidate::Net -le'print \!Validate::Net->ip(1.1.11.)
&& "in", "valid"'
syntax error at -e line 1, near ".) "
Execution of -e aborted due to compilation errors.
sh-2.05a# perl -MValidate::Net -le'print
\!Validate::Net->ip(1.1.1.1asdf dasf) && "in", "valid"'
Bareword found where operator expected at -e line 1, near
"1.1.1.1asdfdas f"
(Missing operator before asdfdasf?)
syntax error at -e line 1, near "1.1.1.1asdfdas f"
Execution of -e aborted due to compilation errors.

Try using it right:

~% perl -MValidate::Net -le'print !Validate::Net->ip("1.1.1.1" )
&& "in", "valid"'
valid
~% perl -MValidate::Net -le'print !Validate::Net->ip("1.1.1.1ada d")
&& "in", "valid"'
invalid
~% perl -MValidate::Net -le'print !Validate::Net->ip("1.1.11." )
&& "in", "valid"'
invalid

or, better,

#!/bin/sh

VALID_IP=$(<<CM D
perl -MValidate::Net -le'print !Validate::Net->ip(shift) && "in", "valid"'
CMD
)

eval $VALID_IP 1.1.1.1
eval $VALID_IP 1.1.11.
eval $VALID_IP 1.1.1.1adsf

Ben