나는 펄 스크립트를 가지고 있으며 파일의 하드 링크를 만든다는 것을 알고 있으며 대신 심볼릭 링크를 만들고 싶습니다. 펄을 잘 아는 사람이 내 스크립트를 수정하는 방법을 알려줄 수 있습니까? PHP 만 사용하여 루프 논리 등을 읽을 수 있지만 Perl이 파일 시스템과 상호 작용하는 방식을 확신 할 수 없습니다.Perl에서 하드 링크 대신 symlink
가 나는 루프 시작 @ 선 (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";
}
}
}
음 :
으로 : 당신은이 모든 것을 대체 할 수있다 '-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