Прошу помочь(кто чем может) с реализацией:

1.       Реализовать набор функций для работы с временными файлами. Первая функция должна создавать
временный файл и сохранять его имя в указанной переменной, вторая удалять его. Временные файлы
должны удаляться даже если выполнение скрипта завершено принудительно или в результате ошибки.
Если файл был создан, но не удален, то в конце работы скрипта должно выводится предупреждение

 
2.       Реализовать функцию, которая проверяет, что все переменные из списка переданных ей установлены.
Количество параметров не фиксированное.

пример вызова:
SOME_VARIABLE=Test
CheckVariables SOME_VARIABLE SOME_OTHER_VARIABLE

Вывод:
SOME_OTHER_VARIABLE not assigned

scion, рекомендую следующий алгоритм:

1. Подумать и описать словами действия, которые будет выполнять программа
2. Заменить словестные описания блоками кода на Perl
3. Проверить работоспособность кода (на тестовых примерах)
4. Если что-то сделать не получается, задать в форуме конкретный вопрос.

1) Все уже сделано, до нас:
File::Temp
2) А вы знаете что такое perl ?
есть встроенная функция - defined

sir_nuf_nuf, по второй задаче, мне кажется, что надо определить "установлены ли указанные переменные окружения".

Это сообщение отредактировал(а) ginnie - 10.6.2009, 16:57

ооо.. это в корне меняет дело. По этой теме уже можно писать научную работу =)

  
The Feynman Problem-Solving Algorithm:

• write down the problem;
• think very hard;
• write down the answer.

KSURi, ты пропустил важные детали:

Автор: записывает проблему
Посетители форума: старательно обдумывают варианты решения
KSURi: пишет решение (раньше всех и получает разные бонусы)   

Это сообщение отредактировал(а) ginnie - 10.6.2009, 18:35

за темп спс.
то что нужно. 

#!/usr/bin/perl
#Create temp file;
use File::Temp qw/ :POSIX /;
  $file = tmpnam();
  $fh = tmpfile();
($fh, $file) = tmpnam();

 while (1) {};
END { unlink($file) or die  "Couldn't unlink $file : $!"}

почему временный файл не хочет удалятся? Нет я понимаю что я не дохожу до последней инструкции, а как мне сделать что бы она в любом случаи исполнялась)
когда я прерываю выполнения программы (то есть завершаю её аварийно).... (на цыкле)

Установите обработчик для SIGINT (^C)

но это не правильно. а если программа умрёт по каким-то другим причинам?

Да, действительно, а если по компьютеру ударят кувалдой   
Впрочем, если хорошенько прицелиться, то файл можно и удалить.

что-то я окончательно потерялся... ;(

если так:

$SIG{INT} = \&sig_handler; 
print "Работаю в поте лица...\n" while (1);

sub sig_handler { 
   $SIG{INT} = \&sig_handler; 
   print "Получен сигнал INT по нажатию Ctrl+C\n"; 
   print "Заканчиваю работу!\n"; 
   exit; # завершение выполнения программы
}

сигнал от ^С обрабатывается, а от kill ID нет... =(
пробовал ловить SIG{HUP}

так kill вроде по умолчанию посылает SIGKILL, не? и кстати, обработчик достаточно поставить один раз

Добавлено через 3 минуты и 53 секунды

Я подумал, что вы сами ее насильно завершаете. Обычно это как раз делают черезе ^C или ^BREAK.
Если вам нужно более универсальное решение, то пишите отдельный скрипт, который по каким-то параметрам будет мониторить сабж и делать всякие штуки после его смерти

ок. т.е. в perle такого не реализовано? просто я думал что в перле есть уже нечто такое что бы мониторить...

"кстати, обработчик достаточно поставить один раз" можно подробнее... что вы имели в виду?

хочу ловить $SIG{INT}  и $SIG{KILL} 
нужно писать 

$SIG{INT} = \&sig_handler; 
$SIG{KILL} = \&sig_handler2; 

и соотв. что делают это функции. я правильно понял?

можно ли как-нибудь сделать одну универсальную функцию для сигналов INT и KILL?

да

$SIG{INT} = \&my_Super_Function; 
$SIG{KILL} = \&my_Super_Function;

Будет Вам универсальная функция 

Это сообщение отредактировал(а) shamber - 13.6.2009, 02:17