форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"вопрос по PERL"
Сообщение от globus on 29-Май-03, 14:12  (MSK)
есть вот такая конструкция if (($read=~ m/content-type: application\/\msword/ig) || ($read=~ m/content-type: application\/\vnd.ms-excel/ig)){                                         &parse($read);                                }else{                                         &remove($fille);                                }                 } } #______________________SUB__PLACE_______ sub parse {         print "YES____ $read"; } sub remove { #       print "File delete\n";         unlink "$fille"; } if отрабатывает правильно (ну соответственно пр совпадении условия), переходит на подпрограмму. НО потом почемуто отрабатывает else и все файлы удаляются, даже те которые подходят по if условию
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "вопрос по PERL"
Сообщение от globus on 30-Май-03, 05:14  (MSK)
товарищи, ну неужели я один програмлю на перле ???? Помогите начинающему...
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "вопрос по PERL"
Сообщение от forfreeuse on 30-Май-03, 07:52  (MSK)
А ты поставь print $read\n";  перед if и посмотри, что там. >есть вот такая конструкция > if (($read=~ m/content-type: application\/\msword/ig) || ($read=~ m/content-type: application\/\vnd.ms-excel/ig)){ >             >           >           >      &parse($read); >             >           >        }else{ >             >           >           >      &remove($fille); >             >           >        } >        } >} > >#______________________SUB__PLACE_______ > >sub parse { >        print "YES____ $read"; >} > >sub remove { >#       print "File delete\n"; >        unlink "$fille"; >} > >if отрабатывает правильно (ну соответственно пр совпадении условия), переходит на подпрограмму. НО >потом почемуто отрабатывает else и все файлы удаляются, даже те которые >подходят по if условию
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "вопрос по PERL"
	Сообщение от globus on 30-Май-03, 07:59  (MSK)
	вот ведь люди как мыслят.... я ведь точно так и сделал.... и нашел в чем косяк.... а косяк в том, что если первая строчка не подподает под правило, то он сразу на else сваливается.... и удаляет читаемый файл.... пришлось немного перестроить ....
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.