68user's page 掲示板

Prev< No. 1846> Next  [最新発言に戻る] [過去ログ一覧]
No. 1846 # rosegarden 2001/03/22 (木) 06:15:44
>>1845 rosegarden
この他にも

#!/usr/bin/perl -w

use vars qw($login $pass $uid $gid);

($login, $pass, $uid, $gid) = getpwnam('root');

print "$login:(password):$uid:$gid\n";
exit;

などと、use vars で宣言しておけば文句を言われないようです。
詳しくは、perldoc vars してみてください。
Prev< No. 1846> Next  [最新発言に戻る] [過去ログ一覧]