善用 Perl Date Structure 和 reference


\| 网站首页 \| 文章中心 \| 下载中心 \| 图片中心 \| 访客留言 \| 数码商城 \| 毕设、论文 \| 彩票 \|

您现在的位置：有昌网络 >> 文章中心 >> 特别研究 >> Linux专区！ >> Perl编程 >> 文章正文

用户登录

新用户注册

善用 Perl Date Structure 和 reference

热 ★★★

善用 Perl Date Structure 和 reference

作者：-①℃冰洁… 文章来源：本站原创点击数：更新时间：2007-4-26 17:29:36

winnie.chan=Winnie Chan=
　　tom.chow=Tom Chow=
　　frankie.chow=Frankie Chow=
　　
　　这档案的意义就是说当在数据中如果遇上 Frankie Chow 就把它转换成 frankie.chow ，另外当遇上 Peter wong 就把它转换成 peter.wong 。
　　
　　另外有一文件名为 test.ldif ，读者可以先把它看成一个普通的文本文件。
　　
　　dn: uid=Frankie Chow,ou=users,ou=samba,dc=godclick,dc=net
　　uid: Frankie Chow
　　sambaSID: S-1-5-21-2093837416-124xxxxxxxxxxxxxxxxxxxxxxxx70-1872
　　sambaPrimaryGroupSID:
　　S-1-5-21-2093837416-124xxxxxxxxxxxxxxxxxxxxxxxxxxxxx70-513
　　displayName: Frankie Chow
　　sambaLogonTime: 1079690765
　　sambaLogoffTime: 2147483647
　　sambaKickoffTime: 2147483647
　　sambaPwdCanChange: 0
　　sambaPwdMustChange: 2147483647
　　sambaLMPassword: 29B9xxxxxxxxxGHTHC
　　sambaNTPassword: 96B9xxxxxxxxxTHHDA
　　sambaPwdLastSet: 1064457577
　　sambaAcctFlags: [UX ]
　　objectClass: sambaSamAccount
　　objectClass: account
　　
　　dn: uid=Tom Chan,ou=users,ou=samba,dc=godclick,dc=net
　　uid: Tom Chan
　　sambaSID: S-1-5-21-2093837416-124xxxxxxx70-1682
　　sambaPrimaryGroupSID: S-1-5-21-2093837416-124xxxxxx70-513
　　...
　　
　　现在把 test.ldif 中所遇见的任何串字倚 cuser.map 来转换。很多时初学 Perl 的学生就会先想把 cuser.map 打开，然后再打开 test.ldif ，然后比较转换。其实这种思考方式就是没有善用 perl 中的数据结构功能。
　　
　　其实可以用以下的方式来重新思考这问题。可以先建立一数据结构 < arrayref/hashref >，然后把 cuser.map 内的各笔数据放入，那只需要使用一个简单的 foreach 就可以把 test.ldif 的数据来作转换了。
　　
　　这是笔者的 perl script
　　
　　------------------------------------------------------------------------
　　
　　#!/usr/bin/perl -w
　　
　　sub cNameMap {
　　
　　# Create a Data Structure for storage cuser.map
　　# $cname = [
　　# {
　　# source => "Frankie Chow",
　　# target => "frankie.chow"
　　# },
　　# ...
　　# ];
　　
　　my $cname = [];
　　
　　open $datafile, "
　　
　　while (<$datafile>) {
　　
　　@usermapdata = split("=",$_);
　　push (@$cname, {
　　source => $usermapdata[1],
　　target => $usermapdata[0]
　　} );
　　};
　　
　　return $cname ;
　　}
　　
　　$cnamemap = &cNameMap ;
　　CHANGEFILE: {
　　
　　open $sourcefile, "<test.ldif"; while ($line = <$sourcefile>) { foreach (@$cnamemap) { $line =~ s/$_->{source}/$_->{target}/;
　　
　　};
　　print $line;
　　};
　　};
　　
　　__END__

文章录入：范有昌责任编辑：范有昌

上一篇文章： Linux 使用基本知识:编写简单的perl

下一篇文章： ActivePerl PerlIS.dll 远程缓冲区溢出漏洞

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

专题栏目