[求助]/usr/bin/passwd 用perl写

stanley_tam

我这有些solaris机子上/usr/bin/passwd需要人机交互才可以改密码。
求大神教偶怎样用perl直接实现非交互版本的/usr/bin/passwd ? 异常情况怎么解决，例如磁盘满了的情况，etc

xiumu2280

/etc/passwd /etc/shadow
这两个文件是楼主想要的。

q1208c

改密码 非交互方式执行 ?

pitonas

{:2_172:} use Passwd::Unix;

stanley_tam

非常感谢大大的回复。。
这模块是先备份文件，然后修改备份文件，然后用备份文件覆盖初始文件。
我想问下，如果文件备份后，磁盘就满了，此时再进行文件的move会完全成功吗？数据会不会丢失一些？
move( /etc/shadow.tmp => /etc/shadow)

1. $tmp = $self->gshadow_file.'.tmp';
   
2.                 open($fh, '<', $self->gshadow_file()) or ($self->error($!) and umask $umask and return);
   
3.                 open($ch, '>', $tmp) or ($self->error($!) and umask $umask and return);
   
4.                 chmod PERM_SHD, $ch;
   
5.                 while(my $line = <$fh>){
   
6.                         chomp $line;
   
7.                         my ($name, $passwd, $gid, $users) = split(/:/,$line,4);
   
8.                         $users = join(q/,/, grep { !/$regexp/ } split(/\s*,\s*/, $users));
   
9.                         print $ch join(q/:/, $name, $passwd, $gid, $users),"\n";
   
10.                 }
    
11.                 close($fh);close($ch);
    
12.                 move($tmp, $self->gshadow_file()) or ($self->error($!) and umask $umask and return);

复制代码

回复 4# pitonas


   

laputa73

/etc要是满了,系统就崩溃了

MMMIX

laputa73 发表于 2014-01-16 18:53
/etc要是满了,系统就崩溃了

系统运行绝大部分情况是不需要修改 /etc 下的文件的，极端的情况下，甚至可以将 /etc 放在一个只读分区中。