perl mail 处理

今天去面了一个LINUX SA的地方，结果，人家看PROFILE里有PERL和SHELL两个字眼，

便要求写个脚本实现如下功能：
将一个EMAIL地址里的用户名与域名分离出来。

我一句话用个CUT 命令不就行了吗？人家不服，非让PERL或SHELL的函数实现。

我就告诉可以用SPLIT来分一下，结果人家还是不满意，带着一串问题回为试一下：
结果如下：
[root@logser tmp]# more mail.pl
#!/usr/bin/perl -w
$mail_add=;
my($username,$networkname)=split('@',$mail_add);
print "username=$username,networkname=$networkname\n";

[root@logser tmp]#
[root@logser tmp]# ./mail.pl
[e-mail]
username=macerzou,networkname=gmail.com

[root@logser tmp]#
现在觉得很怪啦，难道这样分开不行吗？但既然CUT实现时人家说要求用PERL来做，说明CUT可以做的呀（那我的听题应该没错哇），难道还要用别的东西做不成。可惜当时没当面一起看一下，也许没办法对质了。


再试一下CUT也不过这样罢了吧！
[root@logser tmp]# echo "[e-mail]"|cut -d"@" -f1
macerzou
[root@logser tmp]# echo "[e-mail]"|cut -d"@" -f2
gmail.com
[root@logser tmp]#