 |
 |
 |
構文 |
|
| symlink OLDFILE, NEWFILE | |
| 引数 | OLDFILE | リンク元ファイル（既存のファイル） |
| NEWFILE | リンク先ファイル（作成するファイル） |
返り値 |
|
|
リンク作成成功時に真 |
|
説明
- OLDFILEからNEWFILEへのシンボリック・リンクを作成します。ハードリンクを作成する場合はlinkを使います。
- エラーが発生した場合，$!にエラー情報がセットされます。
使用例
ファイル$foo.txtに対してシンボリック・リンクhoge.txtを作成する
#!/usr/bin/perl
use strict;
use warnings;
my $src = 'foo.txt';
my $dest = 'hoge.txt';
symlink $src, $dest or die "$!:$src:$dest";today.txtへのシンボリック・リンクを当日の年月日のファイルで付け替える
#!/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";
}
# 当日のファイルのリンクを作成する
symlink $src, $dest or die "$!:$src:$dest";
