订阅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__
