Hello,
> my @fields = split(/:/, $_);
>$pass = join(':', $fields[0],$fields[1]);
Yes,you are right here.for more briefness,I would write it as below instead,
my $pass = join ':',((split /:/,$_)[0,1]);
>#my $MYFILE = '/usr/local/cvsnt/CVSROOT/passwd';
>syswrite ('/usr/local/cvsnt/CVSROOT/passwd', $pass, 60);
here you don't need the 'syswrite',you can simply open a file and obtain its
file handle,then 'print' to this handle.
The code should be like:
open (FILEHD,">>",$myfile) or die $!;
print FILEHD $pass,"\n";
close FILEHD;
by the way,for good program practice,you should be careful to use the varible
whose name is all spelled in capital letter.For example,I would write $myFile
instead of $MYFILE,the latter have other special meanings (for example,it means
a global varible) usually.
--
Jeff Pang
NetEase AntiSpam Team
http://corp.netease.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
