今日のPerl
公開日:
:
最終更新日:2014/02/01
プログラミング
use File::Basename;
use File::Spec;
my($source,$dest) = @ARGV;
if(-d $dest){
my $basename = basename $source;
$dest = File::Spec->catfile($dest,$basename);
}
link $source, $dest
or warn "can't link '$source' to '$dest': $!";
Perl自体の勉強はサクッと終わらせて
早くCGIの勉強に移りたいな・・・。
関連記事
- PREV
- 今日のPerl
- NEXT
- オープンソースカンファレンス2007 .DB