Как сделать такое в перле?

Хочу функцию, которая будет принимать аргументы, идущие в коде до имени самой функции, аналогично if, foreach и т.п., например:

print 'test' if 1;

if принял аргумент, идущий до самой функции.

Re:Как сделать такое в перле?

не очень понял что надо?

если надо вызвать функцию, если аргумент существует(например файл) то как-то так:

Re:Как сделать такое в перле?

перла не знаю, боюсь ошибиться, но подозреваю что в твоём примере if - не функция. Видимо "print ... if ..." - встроенный оператор с жёстко заданным синтаксисом.

Re:Как сделать такое в перле?

Например, хочу написать функцию in, которая понимает такой синтаксис:

if ($elem in @array) {...}

Re:Как сделать такое в перле?

> if ($elem in @array) {...}

иными словами ты хочешь без прохода по массиву сказать да, если элемент существует и выполнить какойто кусок кода?

Если это так, то выполнить поиск элемента без прохода по нему можно через хеш.

if (exists $hash{$elem}) { ... } где массивом будут ключи хеша, хеш там так устроен, что перебор делает гдето вовнутренностях перла.

Re:Как сделать такое в перле?

Или просто заюзать оператор ~~ Я хочу не просто сделать поиск, а сделать его именоо в указанном мной синтаксисе.

Re:Как сделать такое в перле?

тогда тебе либо модуль писать, и потом его юзать use MyCoolModule и из него вызывать функцию, либо править исходники перла. Вообще довольно странно твое желание, в перле можно сделать практически все, используя стандартные функции.