今日のPerl
公開日：
:
最終更新日：2014/02/04
プログラミング
記事内に広告を含む場合があります。記事内で紹介する商品を購入することで、当サイトに売り上げの一部が還元されることがあります。
use File::Basename;
use File::Spec;
my($source, $dest) = @ARGV;
if(-d $dest){
my $basename = basename $source;
$dest = File::Spec->catfile($dest, $basename);
}
rename $source, $dest
or die "Can't rename '$source' to '$dest': $!\n";
関連記事
- PREV
- Web2.0ポッドキャストの反省と課題
- NEXT
- 今日のPerl
