私はPerlスクリプトを持っていますが、ファイルのハードリンクを作成していますが、代わりにシンボリックリンクを作成したいと思っています。私はPHPのみを行うので、ループロジックなどを読むことはできますが、Perlがファイルシステムとどのようにやり取りするかはわかりません。Perlのハードリンクの代わりにシンリンク
私はそれが@ライン62を起動ループであると仮定します。foreach my $file(@to_add) {...
#!/usr/bin/perl
use strict;
use warnings;
use JSON qw(decode_json);
use Data::Dumper;
my $hashkey = 'myKey';
my $data_folder = '/jail/glftpd/site';
my $player_folder = '/var/mediaplayers';
my $mediaplayersurl = "myRoute";
sub filesInFolder {
my ($path) = @_;
my @files =();
if(opendir SCANDIR, $path) {
push @files, grep !/^\./ && -f "$path/$_", readdir SCANDIR;
closedir SCANDIR;
}
return @files;
}
my $json = `wget --no-check-certificate --header "keyFile: $hashkey" -q -O - $mediaplayersurl`;
die "Failed to retrieve $mediaplayersurl!", unless defined $json;
my $data = decode_json($json);
# print Dumper $data;
foreach my $player(@$data) {
my $sync_folder = $player_folder."/".$player->{companyName}."/".$player->{mediaPlayer};
my $source_folder = $data_folder."/".$player->{companyName};
print "Preparing ".$player->{companyName}."/".$player->{mediaPlayer}."\n";
unless(-d $source_folder) {
print STDOUT "Source folder '$source_folder' does not exist, doing nothing.\n";
next;
}
unless(-d $sync_folder) {
system("mkdir", "-p", $sync_folder);
}
my @existing = filesInFolder($sync_folder);
my %existing = map {$_, => 1} @existing;
my @videos =();
foreach(@{$player->{'videos'}}) {
push @videos, $_;
}
my %videos = map {$_, => 1} @videos;
my @to_add = grep {not $existing{$_}} @videos;
my @to_del = grep {not $videos{$_}} @existing;
foreach my $file(@to_add) {
my $source_file = $source_folder."/".$file;
my $target_file = $sync_folder."/".$file;
unless(-e $source_file) {
print STDERR "Failed to create link to '$source_file', file does not exist.\n";
next;
}
if(system('ln', $source_file, $target_file) != 0) {
print STDERR "Failed to create link from '$target_file' to '$source_file'.\n";
}
else {
print "Linked '$target_file' to '$source_file'.\n";
}
}
foreach my $file(@to_del) {
my $target_file = $sync_folder."/".$file;
if(system('rm', $target_file) != 0) {
print STDERR "Failed to remove file link '$target_file'.\n";
}
else {
print "Removed link '$target_file'.\n";
}
}
}
、あなたがリンクを作成するために 'system'と' ln'を使用していることから、それだけで追加することと同じくらい簡単にする必要があります'-s'引数です。 – Biffen
ちょっとした注意: 'mkdir'と' rm'のためにシェルする必要はありません。そのためのPerl関数があります。 ['unlink'](http://perldoc.perl.org/functions/unlink.html)と[' File :: Path :: make_path'](http://perldoc.perl.org/File)を見てください。 /Path.html)。エラー条件をよりよく制御できます。 – PerlDuck