今日の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
