UNIX for Beginners Questions & Answers

echo "Plz enter the Target file name with path"
read path
if [ -f "$path" ]
then
echo "The valid mail address are:"
email=$(grep -E -o "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,6}\b" $path )
echo "$email"
fi

hmmeeranrizvi18@gmail.com
dfeugfbfveuifg@gmail,com
Mohamed@msystechnologies.com
12345@gmail.com
raja@jj@gmail.com
krish@yahoo.commm
jack34@97899.in

rizvi@rizvi-VirtualBox:~$ ./unt.sh
Plz enter the Target file name with path
/home/rizvi/unwant.sh
The valid mail address are:
hmmeeranrizvi18@gmail.com
Mohamed@msystechnologies.com
12345@gmail.com
jj@gmail.com
krish@yahoo.commm
jack34@97899.in

#!/usr/bin/env perl

# @(#) p1       Demonstrate recognize email addresses, perl common regex.

use strict;
use warnings;

use Regexp::Common qw[Email::Address];
use Email::Address;

my (@a) = <>;

print " Addresses being examined:\n";
print @a;

print "\n";
print " Acceptable email address string anywhere on line:\n";
for (@a) {
  my (@found) = /($RE{Email}{Address})/g;
  my (@addrs) = map $_->address, Email::Address->parse("@found");
  print "X-Addresses: ", join( ", ", @addrs ), "\n";
}

print "\n";
print " Entire line must match acceptable email address:\n";
for (@a) {
  my (@found) = /^($RE{Email}{Address})$/g;
  my (@addrs) = map $_->address, Email::Address->parse("@found");
  print "X-Addresses: ", join( ", ", @addrs ), "\n";
}

print "\n";
print "See document at https://en.wikipedia.org/wiki/Email_address#Syntax\n";

exit(0);

$ ./p1 data1
 Addresses being examined:
hmmeeranrizvi18@gmail.com
dfeugfbfveuifg@gmail,com
Mohamed@msystechnologies.com
12345@gmail.com
raja@jj@gmail.com
krish@yahoo.commm
jack34@97899.in

 Acceptable email address string anywhere on line:
X-Addresses: hmmeeranrizvi18@gmail.com
X-Addresses: dfeugfbfveuifg@gmail
X-Addresses: Mohamed@msystechnologies.com
X-Addresses: 12345@gmail.com
X-Addresses: raja@jj
X-Addresses: krish@yahoo.commm
X-Addresses: jack34@97899.in

 Entire line must match acceptable email address:
X-Addresses: hmmeeranrizvi18@gmail.com
X-Addresses: 
X-Addresses: Mohamed@msystechnologies.com
X-Addresses: 12345@gmail.com
X-Addresses: 
X-Addresses: krish@yahoo.commm
X-Addresses: jack34@97899.in

See document at https://en.wikipedia.org/wiki/Email_address#Syntax

email=$(grep -E -o "^[A-Za-z0-9._]+@[a-z]+\.[a-z]{1,3}$" $path )

Plz enter the Target file name with path
/home/rizvi/unwant.sh
The valid mail address are:
hmmeeranrizvi18@gmail.com
Mohamed@msystechnologies.com
12345@gmail.com

grep -E -o '^[^@]+@([a-z][-a-z0-9]*[a-z0-9]+\.)+[a-z]{2,3}$'