更新perforce user group

system(" title updating the group: specail every 5 mins");while(1){print "Input the name:/n";$nm="";while(defined($nm=<STDIN>)){chomp($nm);if ($nm=~m//w+.*/){last;}print "Input the name:/n";}system("echo %time%");foreach my $n(split(//s+/,$nm)){chomp($n);system("echo/t/t$n >> cspecail.txt ");}system("p4 group -i < cspecail.txt");sleep(300);system("p4 group -i < specail.txt");system("copy specail.txt cspecail.txt /y");system("echo %time%");}