プログラミング学習の記録 600.2 13章(ディレクトリ操作)の練習問題5 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の13章(ディレクトリ操作), 13.14(練習問題)、5を解いてみる。

 

5.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use File::Spec;

my($old_name,$new_name)=@ARGV;

# ディレクトリかどうか判定
if(-d $new_name){
  my $basename=basename $old_name;
  $new_name
  =File::Spec->catfile($new_name,$basename);
  }
  
rename $old_name,$new_name 
  or warn "Cant't rename '$old_name'"
      ."to '$new_name': $!";

カレントディレクトリはDesktop

Desktopのファイル、sampleをsample1にrename。

入出力結果(Ternimal)

$ ls my_program sample $ ./my_program sample sample1 $ ls my_program sample1

成功！次は第2引数にディレクトリ(名前はfolder)を指定してみる。

入出力結果(Ternimal)

$ ls folder my_program sample1 $ ./my_program sample1 folder $ ls folder my_program $ cd folder folder $ ls sample1

名前そのままに第2引数に指定したディレクトリに移動成功！

メモ:

• 今日は11章のPerlモジュールを読み返した。
• ファイルかディレクトリか判定する引数「-d」を知らず、ググって知るまでに時間がかかった。

ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。