Perl アカウント作成 - hamaのページ

use strict;
use warnings;

for(my $i=1;$i<=999;$i++){
       print "\/opt\/SUNWcomm\/bin\/commadmin user create \-D admin \-F user".$i." \-l user".$i." \-L user \-n mailtest\.jp  \-p 80 \-w password \-W password \-X ldap\.mailtest\.test \-S mail \-E user".$i."\@mailtest\.jp \-H ms\.mailtest\.test\n"
};