プログラミング学習の記録 693.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 = shift; my $new_name = shift; if (-d $new_name){ my $basename = basename $old_name; $new_name = File::Spec->catfile($new_name, $basename); } rename $old_name, $new_name or die "$old_name to $new_name failed: $!\n";

入出力結果(Terminal)

$ ls perl_program sample1 sample_folder $ ./perl_program sample1 sample2 $ ls perl_program sample2 sample_folder $ ./perl_program sample2 ./sample_folder/ $ ls perl_program sample_folder $ cd sample_folder $ ls sample2