構文 |
|
link リンク元ファイル(既存のファイル), リンク先ファイル(作成するファイル) |
返り値 |
|
・リンク作成成功時に真 |
説明
- リンク元ファイルからリンク先ファイルへのハードリンクを作成します。シンボリックリンクを作成する場合はsymlinkを使います。
- エラーが発生した場合、$!にエラー情報がセットされます。
使用例
#!/usr/bin/perl
use strict;
use warnings;
my $src = 'foo.txt';
my $dest = 'hoge.txt';
link $src, $dest or die "$!:$src:$dest";
#!/usr/bin/perl
use strict;
use warnings;
my @now = localtime;
my $src = sprintf "%04d%02d%02d.txt", $now[5]+1900, $now[4]+1, $now[3];
my $dest = 'today.txt';
if (-e $dest) {
# 既にファイルが存在している場合は削除する
unlink $dest or die "$!:$dest";
}
# 当日のファイルのリンクを作成する
link $src, $dest or die "$!:$src:$dest";