Переменная область в perl

Question

Я использую CGI в строгом режиме и немного путаюсь с переменными. Я читаю файл с двумя строками. Сохранение как двух переменных. Но когда я пытаюсь outputing их с помощью HTML, это говорит глобальные переменные ошибки

Это то, что я делаю

open TEXT, "filename"; 
$title = <TEXT>; 
$about = <TEXT>; 
close TEXT; 

, но это дает глобальную переменную ошибку. Каков наилучший способ исправить это?

Answer 1

Вам необходимо объявить переменную my, чтобы сделать ее область локальной. Это лучшая практика и обязательный при использовании strict

use strict; 
use warnings; 

open my $fh, '<', 'filename' or die $!; 
my ($title, $about) = <$fh>; 
close $fh; 

Дальнейших улучшений:

1. избегал ручки bareword файлов (например, FILE). Вместо того, чтобы использовать локальный файл обрабатывает такие как my $fh
2. Б обработки ошибок с die при работе с обработкой файлов
3. Комбинированное назначение $title и $about как предложено @Suic
4. use warnings, чтобы показать то, что происходит не так, как указывал @TLP