2016-09-18 24 views
-1

나는 펄 스크립트를 가지고 있으며 파일의 하드 링크를 만든다는 것을 알고 있으며 대신 심볼릭 링크를 만들고 싶습니다. 펄을 잘 아는 사람이 내 스크립트를 수정하는 방법을 알려줄 수 있습니까? 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"; 
     } 
    } 
} 
+2

음 :

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"; } 

으로 : 당신은이 모든 것을 대체 할 수있다 '-s' 인수. – Biffen

+0

그냥 참고 사항 :'mkdir'과'rm'을 위해 쉘을 사용할 필요가 없습니다. 이를위한 Perl 함수가 있습니다. ['unlink'] (http://perldoc.perl.org/functions/unlink.html)와 ['File :: Path :: make_path'] (http://perldoc.perl.org/File)를보십시오. /Path.html). 오류 조건을보다 잘 제어 할 수 있습니다. – PerlDuck

답변

2

당신은 밖으로 껍질 필요가 없습니다. 펄은 symlink을 생성하기 위해 내장되어있다. 당신이 링크를 만들`system`와`ln`을 사용하고 있기 때문에 그냥 추가로 쉬워야한다,

my $link_created = symlink $src_file, $link_name or die $!; 

print "symlink created ok\n" if $link_created; 
+0

니스. 그러나 스 니펫이 이미 실패로 끝나기 때문에'if $ link_created; '부분을 생략 할 수 있습니다. – PerlDuck

+0

@PerlDog 예, 저도 알고 있습니다. 단지 설명을위한 것입니다. 그래도 고마워! – stevieb