【IT168 技术文档】

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__