learners0930 Ответов: 1

Как можно импортировать хэши из одного файла в другой файл?

у меня есть два хэша скажем фруктовый и овощной в a.pl файл как я могу получить доступ к ним в другом файле скажем b.pl-что?

Что я уже пробовал:

#a.pl файл 
%fruit=('apple',1,'mango',2,'grapes',3);
%vegetable=('carrot',4,'potato',5);
%flowers=('rose',6,'jasmine',7);

#b.pl файл
$praticular_product="apple";
#check $praticular_product belongs to fruit hash or vegetable hash
if(exists($fruit{$praticular_product})) 
{ 
    print "fruit\n"; 
} 
elsif(exists($vegetable{$praticular_product}))
{ 
    print "vegetable\n"
}
elsif((exists($flowers{$praticular_product})))
{
    print "flower\n"
}
else
{
    print "none\n"
}
print $praticular_product;

1 Ответов

Рейтинг:
0

Sandeep Mewara

Я бы посоветовал вам выбрать какую-нибудь книгу или учебник, чтобы сначала пройти через него. Посмотрите, что все уже есть и как их можно использовать. Это поможет вам узнать основные вещи.

На данный момент, выше запроса, смотрите подробности здесь: Использование переменной из модулей[^]

Цитата:
Мы также можем использовать переменные из разных пакетов. Но мы должны сначала объявить их, прежде чем использовать их. Мы делаем это путем использования Варс кя($скалярного @массив %хэш) и мы можем также использовать наш ($скалярного @массив %хэш) с Perl V5 для.6.0 или более поздней версии.

Пример:
#This is p.pm

use strict;
 se warnings;

package b;
 
our ($var_name);

sub Hello{
  print "Hello $var_name\n";
}

1;

#p.pm is in parent directory

use strict;
 se warnings;

#using package p
use p;
 
#using var_name from p
$p::var_name = "Sam";
#Function Hello of p
p::Hello();

Выход:
Hello Sam