Как узнать, была ли объявлена переменная и содержит ли она значение?
Смысл таков:
Если всё нормально, то в переменную записывается значение, если нет, то не записывается, в конце идёт проверка этого значения.

• Функция аля isset() для Perl?,bogerm, 13:25 , 19-Сен-03
  • Функция аля isset() для Perl?,1111111, 16:04 , 19-Сен-03

А что такое isset() ? :)))

>Как узнать, была ли объявлена переменная и содержит ли она значение?
>Смысл таков:
>Если всё нормально, то в переменную записывается значение, если нет, то не
>записывается, в конце идёт проверка этого значения.

Думаю что проще всего это сделать через хеш:

print "Exists" if exists $something{"One"}; # Переменная с ключем One существует
print "Defined" if defined $something{"One"}; # Переменная определена

%something=();
while(<>) {
  chomp;
  next if exists $something{$_};
  $something{$_} = -s $_;
}

>%something=();
>while(<>) {
>  chomp;
>  next if exists $something{$_};
>  $something{$_} = -s $_;
>}

%something=();
while(<>) {
  chomp;
  next if ($something{$_});
  $something{$_} = -s $_;
}