免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3704 | 回复: 6

[求助]/usr/bin/passwd 用perl写 [复制链接]

论坛徽章:
6
丑牛
日期:2014-03-21 15:42:04子鼠
日期:2014-04-12 11:50:17处女座
日期:2014-09-01 09:25:1115-16赛季CBA联赛之吉林
日期:2015-12-22 14:01:5215-16赛季CBA联赛之广东
日期:2016-03-08 18:49:422016科比退役纪念章
日期:2016-07-06 12:19:55
发表于 2014-01-16 13:55 |显示全部楼层
我这有些solaris机子上/usr/bin/passwd需要人机交互才可以改密码。
求大神教偶怎样用perl直接实现非交互版本的/usr/bin/passwd ? 异常情况怎么解决,例如磁盘满了的情况,etc

论坛徽章:
8
技术图书徽章
日期:2013-09-30 08:51:28技术图书徽章
日期:2013-12-11 09:26:39白羊座
日期:2013-12-27 15:27:13金牛座
日期:2014-01-06 09:13:05天蝎座
日期:2014-01-21 14:23:28酉鸡
日期:2014-05-09 16:51:12卯兔
日期:2014-08-11 16:49:1515-16赛季CBA联赛之八一
日期:2017-08-14 23:24:57
发表于 2014-01-16 14:41 |显示全部楼层
/etc/passwd /etc/shadow
这两个文件是楼主想要的。

论坛徽章:
33
荣誉会员
日期:2011-11-23 16:44:17天秤座
日期:2014-08-26 16:18:20天秤座
日期:2014-08-29 10:12:18丑牛
日期:2014-08-29 16:06:45丑牛
日期:2014-09-03 10:28:58射手座
日期:2014-09-03 16:01:17寅虎
日期:2014-09-11 14:24:21天蝎座
日期:2014-09-17 08:33:55IT运维版块每日发帖之星
日期:2016-04-17 06:23:27操作系统版块每日发帖之星
日期:2016-04-18 06:20:00IT运维版块每日发帖之星
日期:2016-04-24 06:20:0015-16赛季CBA联赛之天津
日期:2016-05-06 12:46:59
发表于 2014-01-16 15:07 |显示全部楼层
改密码 非交互方式执行 ?

论坛徽章:
5
丑牛
日期:2014-01-21 08:26:26卯兔
日期:2014-03-11 06:37:43天秤座
日期:2014-03-25 08:52:52寅虎
日期:2014-04-19 11:39:48午马
日期:2014-08-06 03:56:58
发表于 2014-01-16 15:12 |显示全部楼层
{:2_172:} use Passwd::Unix;

论坛徽章:
6
丑牛
日期:2014-03-21 15:42:04子鼠
日期:2014-04-12 11:50:17处女座
日期:2014-09-01 09:25:1115-16赛季CBA联赛之吉林
日期:2015-12-22 14:01:5215-16赛季CBA联赛之广东
日期:2016-03-08 18:49:422016科比退役纪念章
日期:2016-07-06 12:19:55
发表于 2014-01-16 15:27 |显示全部楼层
非常感谢大大的回复。。
这模块是先备份文件,然后修改备份文件,然后用备份文件覆盖初始文件。
我想问下,如果文件备份后,磁盘就满了,此时再进行文件的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


   

论坛徽章:
41
19周年集字徽章-年
日期:2019-09-06 18:58:36数据库技术版块每日发帖之星
日期:2015-12-01 06:20:002015亚冠之首尔
日期:2015-11-04 22:25:43IT运维版块每日发帖之星
日期:2015-08-17 06:20:00寅虎
日期:2014-06-04 16:25:27狮子座
日期:2014-05-12 11:00:00辰龙
日期:2013-12-20 17:07:19射手座
日期:2013-10-24 21:01:23CU十二周年纪念徽章
日期:2013-10-24 15:41:34平安夜徽章
日期:2015-12-26 00:06:30IT运维版块每日发帖之星
日期:2016-01-27 06:20:0015-16赛季CBA联赛之新疆
日期:2016-06-07 14:10:01
发表于 2014-01-16 18:53 |显示全部楼层
/etc要是满了,系统就崩溃了

论坛徽章:
95
程序设计版块每日发帖之星
日期:2015-09-05 06:20:00程序设计版块每日发帖之星
日期:2015-09-17 06:20:00程序设计版块每日发帖之星
日期:2015-09-18 06:20:002015亚冠之阿尔艾因
日期:2015-09-18 10:35:08月度论坛发贴之星
日期:2015-09-30 22:25:002015亚冠之阿尔沙巴布
日期:2015-10-03 08:57:39程序设计版块每日发帖之星
日期:2015-10-05 06:20:00每日论坛发贴之星
日期:2015-10-05 06:20:002015年亚冠纪念徽章
日期:2015-10-06 10:06:482015亚冠之塔什干棉农
日期:2015-10-19 19:43:35程序设计版块每日发帖之星
日期:2015-10-21 06:20:00每日论坛发贴之星
日期:2015-09-14 06:20:00
发表于 2014-01-16 20:46 |显示全部楼层
laputa73 发表于 2014-01-16 18:53
/etc要是满了,系统就崩溃了


系统运行绝大部分情况是不需要修改 /etc 下的文件的,极端的情况下,甚至可以将 /etc 放在一个只读分区中。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

SACC2019中国系统架构师大会

【数字转型 架构演进】SACC2019中国系统架构师大会,8.5折限时优惠重磅来袭!
2019年10月31日~11月2日第11届中国系统架构师大会(SACC2019)将在北京隆重召开。四大主线并行的演讲模式,1个主会场、20个技术专场、超千人参与的会议规模,100+来自互联网、金融、制造业、电商等领域的嘉宾阵容,将为广大参会者提供一场最具价值的技术交流盛会。

限时8.5折扣期:2019年9月30日前


----------------------------------------

大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP