perl'deki iç ortam dosyasını nasıl okuyabilirim?

UNIX betiğini Perl'e çeviriyorum. Unix içinde biz

. ${DTE_WORKING_DIR}/sh/dte.env    
. ${DTE_WORKING_DIR}/sh/xfer.env    
. ${DTE_WORKING_DIR}/sh/dte_reports.env    
. ${DTE_WORKING_DIR}/sh/java.env

Perl'de ne yapmalıyım? Aynı veya açık ve her dosyayı okumak?

perl

— osamuyl
kaynak

Perl betiğiniz için sarmalayıcı olarak bir kabuk betiği kullanın.

#!/bin/sh
. ${DTE_WORKING_DIR}/sh/dte.env    
. ${DTE_WORKING_DIR}/sh/xfer.env    
. ${DTE_WORKING_DIR}/sh/dte_reports.env    
. ${DTE_WORKING_DIR}/sh/java.env
perl /path/to/file.pl

Perl betiğinin içinde bu dosyalarda tanımlanan ortam değişkenlerini alabilirsiniz.

— Roberto Paz
kaynak

Yapamam, sistem sadece Perl'i anlıyor. Gerekli ortamı elde etmek için yeni bir Perl betiği oluşturdum

— osamuyl

Daha sonra perl betiğinizdeki dosyalarda tanımlanan değişkenleri yeniden tanımlamanız gerekir. Belki bu dosyaları açabilir, "dışa aktarma" işlemini bulmak için satırları ayrıştırabilir, kendi karma değerinizde yeniden tanımlayabilirsiniz. Örnek: "A = B", "$ newEnv {'A'} = 'B'" oldu ve $ ENV {'A'} yerine $ newEnv {'A'} kullanabilirsiniz.

— Roberto Paz,