fork download
copy 
  1. {
  2. for(i = 1; i <= NF; i += 1){
  3.     if($i ~ /[a-z\d].+@[a-z\d].+\.[a-z\d]{2,4}$/){  print $i  }
  4. }
  5. }
  6.  
Success #stdin #stdout 0.01s 5544KB
comments (?)
stdin
copy 
This is my gmail: denys.riabtsev@nure.ua 
gmail @ not mail some@text not@mail.notmail
goodmail@ukr.ua
another.goodmail@nure.ua
stdout
copy 
denys.riabtsev@nure.ua
goodmail@ukr.ua
another.goodmail@nure.ua
https://ideone.com/yJlBTS
language:
AWK (gawk 4.2.1)
created:
1 year ago
visibility:
public

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!