Perl - ディレクトリ操作(mvとrename)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• 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/env perl
use strict;
use warnings;
use File::Basename;
use File::Spec;

my($old, $new) = @ARGV;
if(-d $new){
  my $basename = basename $old;
  $new = File::Spec->catfile($new,$old);
}
rename $old, $new or warn "cant't rename $old to $new: $!";

入出力結果(Terminal)

$ cat sample
abcdefredfredfred12345
abcdefredfredbarney12345
abcdebarneyfredfred12345
abcdebarneybarneybarney12345
abcde12345
fred
barney
$ perl perl_program sample sample_new
$ cat sample_new
abcdefredfredfred12345
abcdefredfredbarney12345
abcdebarneyfredfred12345
abcdebarneybarneybarney12345
abcde12345
fred
barney
$ cat sample
cat: sample: No such file or directory
$ perl perl_program sample_new ./sample_folder
$ cd sample_folder
$ cat sample_new
abcdefredfredfred12345
abcdefredfredbarney12345
abcdebarneyfredfred12345
abcdebarneybarneybarney12345
abcde12345
fred
$