glebushka 1. Можете по подробнее рассказать, как решить эту проблему?
Я пробовал устанавливать кодировку, но это не помогло:
$locale = "Russian_Russia.1251";
setlocale(LC_CTYPE, $locale);
2. foreach $file (@files) {
if (-T $file) {
#что-то делаем
}
}
При такой конструкции perl воспринимает почему-то из десятка текстовых (*.html) файлов только несколько как текстовые, а остальные не понятно как?
Может я что-то не допонимаю?
3. Для меня регулярные выражения в perl - сущий ад: то они работают, то нет. то переменная $_ содержит что надо, то нет. В php у меня таких проблем нету, но хочится perl победить!!!!
Мне нужно просмотреть в файле все теги
, и на предмет наличия в них искомой строки. то что в и рядом с искомой строкой сохранить в отдельные переменные
while () {
if (/(.*)<\\/title>/i) {
$title = $_; #$_ почему-то оказывается пустой!!!
}
if ((m/(.*)$query(.*)<\\/p>/i)or
(m/(.*)$query(.*<\\/h>/i)or
(m/(.*)$query(.*)<\\/title>/i))
{$text = $_; Вроде работает!
}
}
+ еще скрипт оказывается чувствительным к регистру!
Наверно я все-таки что-то делаю не провильно!
Помогите разобраться, а то я навсегда возненавижу per, а я хочу с ним дружить.