PR
 
関数順 インデックス
目的別 インデックス

構文
 
 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";
※既にファイル(リンク)が存在する場合は,上書きはせずにエラーになります。