Что делает этот код Perl?

Question

В cPanel они сообщают вам вставить этот код в начало файлов Perl. Я не уверен, что он делает. Я пробовал код с и без этого в начале файла, и, похоже, все работает одинаково. Я не тестировал это с помощью cron, управляющего кодом, но только как я. К «протестировал это», я имею в виду использование печатных линий, соединения с базой данных & возвратов, подлодка, ПОСРЕДНИКИ, и т.д. ...

BEGIN 
{ 
    my $base_module_dir = (-d '/home/root/perl' ? '/home/root/perl' : (getpwuid($>))[7] . '/perl/'); 
    unshift @INC, map { $base_module_dir . $_ } @INC; 
} 

Answer 1

Может быть, немного легче читать:

# The BEGIN block is explained in perldoc perlmod 

BEGIN { 
    # Prefix all dirs already in the include path, with root's perl path if it exists, or the 
    # current user's perl path if not and make perl look for modules in those paths first: 
    # Example: 
    #  "/usr/lib/perl" => "/home/root/perl/usr/lib/perl, /usr/lib/perl" 

    my $root_user_perl_dir = '/home/root/perl'; 

    # Fetch user home dir in a non-intuitive way: 
    # my $user_perl_dir = (getpwuid($>))[7] . '/perl/'); 

    # Fetch user home dir slightly more intuitive: 
    my $current_userid  = $>; # EFFECTIVE_USER_ID see perldoc perlvar 
    # See perldoc perlfunc/perldoc -f getpwuid 
    my ($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell,$expire) 
     = getpwuid($current_userid); 
    my $current_user_home_dir = $dir; 
    my $user_perl_dir   = $current_user_home_dir . '/perl/'; 

    my $base_module_dir = ''; 

    if (-d $root_user_perl_dir) { 
     # Use this if the path exists 
     $base_module_dir = $root_user_perl_dir; 
    } 
    else { 
     # or fallback to current user's path 
     $base_module_dir = $user_perl_dir; 
    } 

    # Generate the new paths 
    my @prefixed_INC = map { $base_module_dir . $_ } @INC; 

    # Add the generated paths in front of the existing ones. 
    @INC = (@prefixed_INC, @INC); 
} 

Answer 2

Этого код устанавливает Perl предпочитает модули в любом /home/root/perl --Ел он существует и является каталогом - или ~/perl при поиске модулей для загрузки. Он в основном использует каждый путь, который обычно использует Perl, и основывает его в этом выбранном каталоге.

Вероятно, это позволяет пользователю иметь отладочную или исправленную версию системного модуля, а для Perl предпочтительнее этого.

Он делает это в блоке BEGIN, потому что это единственный способ убедиться, что блок логики может быть запущен для изменения @INC, чтобы повлиять на поведение операторов use.

Answer 3

Он предназначен для установки пути поиска модуля. В частности, он устанавливает местоположение по умолчанию (первое локальное местоположение) локального каталога perl/ пользователя. Он не только добавляет этот каталог, но делает его новым корнем для @INC. Он делает это для каждой записи в @INC. В среде с ограниченным доступом, такой как те, которые используют CPanel, это гарантирует, что ваши скрипты (общие cgi) будут использовать ваши модули над любыми другими.

BEGIN означает, что это происходит до того, как какой-либо код не находится в блоке.

Первая строка определяет, существует ли /home/root/perl и является каталогом. Если оба значения истинны, они присваивают значение $base_module_dir, в противном случае переменная присваивает <user home>/perl/. Помните, что в perl вы можете индексировать вызов функции напрямую, если он возвращает список.

Он находит домашний каталог пользователя с getpwuid($>). getpwuid() получает информацию об учетной записи пользователя для данного пользователя (обычно из passwd в системе Unix) и возвращает его как список. $> - эффективный идентификатор пользователя скрипта. Причиной индекса 7 является то, что расположение домашнего каталога в списке (и это 8-е поле в passwd, если память служит).

Затем он добавляет ВСЕ записи в @INC с $base_module_dir и вставляет эти измененные записи в начале @INC. Таким образом, это не просто добавление $base_module_dir в качестве каталога, но добавление этого в качестве нового корня для всех записей в @INC. Вот почему он использует map вместо того, чтобы просто добавить одну запись.