bananan_wの日記： はぢめてのぱぁる

はぢめてぱぁるスクリプトを書いたのですよ。
記念に書いておこう。

#!/usr/bin/perl
($User) = bananan_w;
($Group) = bananan_w;

($uid) = (getpwnam ($User))[2];
($gid) = (getgrnam ($Group))[2];

print <<EOM;
$User = $uid
$Group = $gid
EOM