Как передать $ (разделитель списков) в качестве параметра?

Question

Существует этот маленький кусочек кода:

use strict; 
use warnings; 

sub checkDefinition { 
    my ($var, $desc) = @_; 

    if (defined $var) { 
    print "$desc: $var \n"; 
    } else { 
    print "$desc: undef \n"; 
    } 
} 

checkDefinition($ , "list separator"); 

Однако, когда я пытаюсь запустить его, я получаю следующее сообщение об ошибке:

>perl listSeparator.pl String found where operator expected at listSeparator.pl line 14, near "$ , "list separator"" 
     (Missing operator before "list separator"?) syntax error at listSeparator.pl line 14, near "$ , "list separator"" Execution of 
listSeparator.pl aborted due to compilation errors. 

так, возникает вопрос, как же один проход переменная разделителя списка в подпрограмму? Я попытался сделать ссылку на него:

my $lineSepRef = \$ ; 

однако, я получаю другую ошибку:

Semicolon seems to be missing at listSeparator.pl line 14. 

Можно ли передать $ в подпрограмму? Если да, то как?

FYI, работающие на окнах, клубничный Perl версии 5.016003

Спасибо заранее.

Answer 1

Я полагаю, что «разделителем строк» ​​вы имеете в виду специальную переменную Perl $/, которая является разделителем входных данных .

Вы можете передать значение, что в подпрограмму, как это, даже когда я не понимаю, почему вы хотите сделать это:

checkDefinition($/ , "list separator"); 

В случае, если вы имеете в виду другую специальную переменную, вы можете передать его так же. Вы можете найти значения всех специальных переменных Perl here.

EDIT:

Поскольку вы были на самом деле искали "разделителя списка", вы можете сделать следующее:

checkDefinition($" , "list separator");