하나의 Perl 스크립트에서 다른 하나의 Perl 스크립트로 2D 배열을 전달

Question

나는 master.pl이라는 Perl 스크립트를 가지고 있습니다. 두 번째 배열은 @inputarray입니다.

master.pl의 2D 배열 값을 child.pl이라는 다른 프로그램으로 전달하고 child.pl의 데이터에 액세스해야합니다.

많은 시도를했지만 child.pl의 배열을 역 참조 할 수 없습니다.

도와주세요.

master.pl

system "start perl child.pl $appl $count @inputarray"; 

child.pl

($appl, $count, @inputarray) = @ARGV; 

for (my $k = 0; $k < $count + 1; $k++) { 
    for (my $m = 0; $m < 6; $m++) { 
     print "$inputarray[$k][$m] "; 
    } 
    print "\n"; 
} 

Answer 1

방법 1 :

은 표준 모듈 Data::Dumper에서보세요 , 그것은 당신이 원하는 것에 이상적입니다.

Data :: Dumper를 사용하여 임시 파일에 데이터 구조를 저장 한 다음 두 번째 스크립트에서 읽습니다.

방법 2 : 첫 번째 스크립트에서 배열을 저장하고 다른에서 검색 할 Storable를 사용

.

편집 (당신은 당신의 코드를 제공 한 후) :

는이

master.pl

#!/usr/local/bin/perl 
use strict; 
use warnings; 
use Storable; 
my @inputarray = ([1, 2, 3], [4, 5, 6], [7, 8, 9]); 
store (\@inputarray, "/home/chankey/child.$$") or die "could not store"; 
system("perl", "child.pl", $$) == 0 or die "error"; 

child.pl

같은 배열에 액세스 할 수 있습니다 참조

#/usr/local/bin/perl 
use strict; 
use warnings; 
use Storable; 
use Data::Dumper; 
my $parentpid = shift; 
my $ref = retrieve("/home/chankey/child.$parentpid") or die "coudn't retrieve"; 
print Dumper $ref; 
print $$ref[0][0]; #prints 1 

$VAR1 = [ 
      [ 
      1, 
      2, 
      3 
      ], 
      [ 
      4, 
      5, 
      6 
      ], 
      [ 
      7, 
      8, 
      9 
      ] 
     ]; #from Dumper 
    1 #from print $$ref[0][0] 

당신이 덤프에서 볼 수 있듯이 출력, 당신은 $ref에 @inputarray을 받았습니다. 이제 원하는 방식으로 사용하십시오.

Answer 2

모든 종류의 펄 데이터 직렬화/직렬화 해제에 대해서는 Storable을 확인하십시오.

POSIX 시스템의 프로세스간에 데이터를 전달할 때 named pipes을 사용합니다. Windows와의 호환성을 향상시키기 위해 File :: Temp를 사용하여 임시 파일을 사용할 수 있습니다.

Answer 3

UNIX와 Windows에서 같은 방식으로 작동하는 익명 파이프를 사용할 수 있습니다. start 때문에 Windows를 사용한다고 가정합니다.이 시도 :

use strict; 
use warnings; 

my $appl = 'orange'; 
my @inputarray = ([0,1,2],[3,4,5],[6,7,8]); 

을 우리는 $count 필요하지 않습니다, 당신은 스칼라 문맥, 또는 $#inputarray를 사용하여 가장 높은 인덱스 번호를 사용하여 배열의 요소 수를 얻을 수 있습니다;

디버그하기가 어렵 기 때문에 start을 생략했습니다 (실행 후 콘솔 창이 닫힙니다).

use strict; 
use warnings; 

my ($inp) = <STDIN>; 

my ($appl, $inputarray); 
eval "$inp"; 
print "appl = $$appl\n"; 

: 파이프 (입력 스트림을) 읽는 아이, 지금

use Data::Dumper; 

local $Data::Dumper::Purity = 1; 
local $Data::Dumper::Indent = 0; 

my $dat = Data::Dumper->new([\$appl,\@inputarray], 
          [qw($appl $inputarray)]); 

print $pipe $dat->Dump(); 
close ($pipe); 

: 우리가 eval 문을 추가하고 공백 발생을 줄일 수있는 데이터 : 덤퍼 사용

my $cmd = 'perl child.pl'; 
open(my $pipe, '|-', $cmd) or 
    die "Unable to execte $cmd; $!"; 

eval의 사용은 보통 눈살을 찌푸 리니 보안 구멍이 생길 수 있으므로 조심해서 사용하십시오. 나는 그것이 여기 정당하다고 생각한다.

귀하의 루프는 태드 복잡하고, C의 냄새가이 오히려 더 Perlish 있습니다

for my $ref (@$inputarray) { 
    for my $ele (@$ref) { 
     print "$ele " 
    } 
    print "\n" 
} 

YAML이는 eval을 필요로하지 않기 때문에 안전하지만 설치해야합니다.