善用PerlDateStructure和reference

2008-05-19 06:25:59  編輯來源:互聯網  简体版  手機版  評論  字體: 小|中|大

 

　　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__

　　

 

　　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__