きんきょ〜

16th day

Fri Feb 2007

• Webサイトの移転を頼まれた。が、そのファイルは素人さんの手によるものが非常に多く、特に問題になったのが絶対パスでリンクを張ってる部分が3000箇所ぐらいあるということ。移行したら間違いなくリンクが切れてしまうのだが深さやリンク先がまちまちなので、単純な文字列置換では対処できない。しかたがないのでそのための置換プログラムを書いたで公開しておく。
• • Perl製(5.8でテスト)
  • 絶対パスから相対パスを求める部分はFile::PathConvertモジュールを利用。
  • 正しく変換が行われているか、リンクが切れていないかをチェックし、リンクが切れている場合は置換を行わない
  • 単純な文字列の置換も行える
  • 置換対象は href="***" と src="***" のみ
  • Download