『Perl』使用者搜尋

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
#!/usr/bin/perl
print "INPUT USERNAME/UID:";$user_name = ;
( 'grep -q $user_name /etc/passwd' )?print `less /etc/passwd|cut -d : -f 1,3,4,6|grep -w $user_name`;
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝