善用 Perl Date Structure 和 reference

　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__