善用PerlDateStructure和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__
  
 
徐克談中國電影發展:發揚武俠文化 善用3D技術
徐克談中國電影發展:發揚武俠文化 善用3D技術
徐克在威尼斯接受訪問時表示,武俠是中國特有的浪漫情懷,3D技術的出現有可能爲武俠電影帶來更大的發展。     新浪娛樂訊 北京時間9月9日消息,據香港媒體報道,身在威尼斯的導演徐克和劉德華接受采訪,他們談到...查看完整版>>徐克談中國電影發展:發揚武俠文化 善用3D技術
 
烏鴉比大猩猩聰明 更善用推理解決問題 動物世界
人們通常認爲動物中,與人類最接近的猿類最聰明。但最新一期英國《皇家學會生物學分會學報》刊登研究報告顯示,烏鴉懂得使用類推方法,而大猩猩不懂。...查看完整版>>烏鴉比大猩猩聰明 更善用推理解決問題 動物世界
 
善用思科IOS配置鎖 防路由配置錯亂-網絡故障
  本文主要給大家介紹了對于思科IOS配置鎖,我們應該如何進行路由器配置,從而防止配置錯亂,相信看過此文會對你有所幫助。  如果多名網絡管理員同時連接到路由器上對配置進行改動的話,可能會出現導致改動丟失或...查看完整版>>善用思科IOS配置鎖 防路由配置錯亂-網絡故障