ihd/bin/ihmq perso h00^ h01^ h08^ h15^00 | awk -F^ '
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
FILENAME==ARGV[1] { m1[$1]=$1 ;next}
{
mail=tolower(trail($3))
split(mail,mm,"@")
print $1"^"trail($2)"^"mm[1]"^"mm[1]"@inhedo.com^"mail"^"m1[$1]
} ' Maill1 -
