Gaurav.khurana

 Profile Answers by Gaurav.khurana 

• Mar 11th, 2013

 

Answer to question 1

#logic we are retrieving the value after the second (.) and third (.) and checking if they are in the range or not
# $1 = first value match in the pattern match which is there in first parenthesis (d)+
# $2 = second value match in the pattern match which is there in second parenthesis (d)+

Code
 


/home/gkhurana> perl


 


chomp($ip=<STDIN>);


if($ip =~ m/172.125.(d+).(d+)/)


{


   if ($1 >=1 and $1 <=25 and $2 >=0 and $2 <=255 )


        {


        print "


IP address is within the range


 " ;


        }


        else


        {


        print "


IP address is out of the range


";


        }


}


172.125.1.20


 


IP address is within the range


 


/home/gkhurana>


 

Gaurav.khurana

 Profile Answers by Gaurav.khurana 

• Mar 11th, 2013

 

First we are searching for a vowel , if its found we are removing it from the string

example if input string $in=hello, then since vowels are present in it , we are removing them
so $in=hll (removed all vowels) , now we know there were vowels present in the input
now we are making sure that rest string should have atleast 3 non vowel characters

Code
print "Please enter the input(0 to exit) :- ";


chomp($in=<STDIN>);


if ($in=~ s/[aeiou]+//gi and $in=~/[b-df-hj-np-tv-z]{3,}/ig)


{


 print "


It contains a vowel and atleast 3 characters which are not vowels . 


";


}


else


{


print "


It does not meet the requirements


";


}


 

Gaurav.khurana

 Profile Answers by Gaurav.khurana 

• Mar 11th, 2013

 

Answer to question 3:

Validated the general email id that we use but not all validation as suggested on

http://en.wikipedia.org/wiki/Email_address

Code
/home/gkhurana> perl


 


@input=(a@gmail.com,a@a.ca,bcfdd.com,abc@a.in,aaaaaaaaaaaaaaaaa@a.,abcasbcscdb@A.com,abc1234@yahoo.com,abc1234abc@yahoo.co.in,1234@yahoo.com,sachin.te@yahoo.com);


foreach $in (@input)


{


# first matching should start with character then . or _ and then numbers and then @ symbol after that yahoo.com or it could be yahoo.co.in


# assuming that atleast 2 character should come after .


 


if ($in=~/^ [a-z]+ .?  \_?   [0-9]*   [a-z]*   @   [a-z]+  .[a-z]{2,} .?([a-z]{2,})?$  /ix)


{


 print "


$in  is a correct email id


";


}


else


{


 print "


$in  is not a correct email id


 ";


}


}


^D


a@gmail.com  is a correct email id


 


a@a.ca  is a correct email id


 


bcfdd.com  is not a correct email id


 


abc@a.in  is a correct email id


 


aaaaaaaaaaaaaaaaa@a.  is not a correct email id


 


abcasbcscdb@A.com  is a correct email id


 


abc1234@yahoo.com  is a correct email id


 


abc1234abc@yahoo.co.in  is a correct email id


 


1234@yahoo.com  is not a correct email id


 


sachin.te@yahoo.com  is a correct email id


 


/home/gkhurana>


 

Srikanth

• Sep 2nd, 2013

 

Answer to first question

172.125.(2[0-5]|1[0-9]|[1-9]).0

Rudra

• Sep 9th, 2013

 

In generic we can validate the IP address as
d{1,3}.d{1,3}.d{1,3}.d{1,3}

Sachin

• Sep 17th, 2013

 

This worked perfectly for me to find the range between xxx.xxx.0.x and xxx.xxx.25.25

#!/usr/bin/perl
$_ =;

if($_=~ /172.125.(2[0-5]|1[0-9]|[1-9]).(2[0-5]|1[0-9]|[0-9])/)
{
print $&;
print "Match";

}
else{
print "not match";

}

praveen

• Nov 29th, 2016

 

$ip=;
chomp($ip);
if ($ip =~ /^172.125.([1-9]|1[1-9]|2[1-5]).0/){print "$ip in range
" ;}
else{print "$ip not in range
"};

josepla

 Profile Answers by josepla 

• Jan 11th, 2017

 

Using regex for all 3 questions IP, Name and Email

Code
use v5.24;


use utf8;


use open :std, :encoding(cp437);  # Encoding used by console, to check console type in Windows cmd use chcp


use strict;


use warnings;


 


my $answer = false;


my $ip = 0.0.0.0;


my $name = undef;


my $email = undef;


 


say 1) Input ip address. Check if it is in the range 172.125.1.0 and 172.125.25.0, use only regex;


chomp($ip = <STDIN>);


 


if ($ip =~ /^172.125.(1[0-9]|2[0-5]|[0-9]).(25[0-5]|2[0-4][0-9]|1[0-9]{1,2}|[0-9])$/) {


        $answer = IP is in the range;


}else{


        $answer = IP out of range;


}


 


say $answer;


 


$answer = false;


 


say 2) Input a name . Check if it is valid at least 3 letters and one vowel, with regex.;


chomp($name = <STDIN>);


 


if ($name =~ /^[a-z]{3,}$/ & $name =~ /[aeiou]/) {


        $answer = Nice name;


}else{


        $answer = That is not a known name;


}


 


say $answer;


 


$answer = false;


 


sub checkEmail {


        my $isemail = 0;


        $isemail = ($email =~ /^.+@[^.].*.[a-z]{2,}$/);


#       say $isemail;


        return $isemail;


}


 


chomp($email = <STDIN>);


say 3) Input email address. Check if it is valid using return function...;


$answer = checkEmail($email) ? Good email : Not valid email;


 


say $answer;