fork download
copy 
  1. #!/usr/bin/perl -w
  2. use strict;
  3.  
  4. my $ip1 = "192.168.0.24";
  5. my $ip2 = "192.168.0.128";
  6. my $ipaddr = "192.168.0.238";
  7.  
  8. sub ip2hex($) {
  9.     sprintf("%02x%02x%02x%02x", split(/\./, $_[0]));
  10. }
  11.  
  12. if ((ip2hex($ipaddr) ge ip2hex($ip1)) && ip2hex($ipaddr) le ip2hex($ip2)) {
  13.     printf("範囲内です");
  14. } else {
  15.     printf("範囲内じゃないです");
  16. }
  17.  
Success #stdin #stdout 0s 4596KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
範囲内じゃないです
https://ideone.com/lbi8l
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!