perlスクリプトからシェルスクリプトを入手する

Question

パスを永久に別のパスに変更するためのシェルスクリプトがあります。私の要件は、perlスクリプトを使用して、それをソースすることである（perlのスクリプトは、同様に他のいくつかのコードを持っており、最終的には、以下のシェルザ・スクリプトを調達しなければならない）

test.sh：

!/bin/bash 
cd /db/oa/invoke/path 

test.pl：

!/usr/bin/perl 
system("source /home/test.sh"); 

しかし、調達は機能していません。私はsystem("sh /home/test.sh --help")のperlスクリプトからシェルスクリプトを実行するコマンドを知っています。しかし、私はシェルスクリプトのソースに似たコマンドが必要です。詳細が不明な場合はお知らせください。私はすでに同じトピックで質問されている質問を見てきましたが、私は調達のための適切な解決策を見ていませんでした。誰もが私にこれを助けることができます。

よろしくお願いします。Anand

Answer 1

@tripleeeによると、あなたは自分自身をexecしなければなりません。ここで私はそれを行うだろうかです：

if (defined $ENV{TOTO}) { 
    print "TOTO is $ENV{TOTO}\n"; 
} else { 
    my $cmd = ". ./source.txt ; exec $^X $0 " . join(' ', @ARGV); 
    system ($cmd); 
} 

私のスクリプトsource.txtは

export TOTO=titi