open (FILE,">$base_autors"); @LINES=; $SIZE=@LINES; for ($i=0;$i<=$SIZE;$i++) { $_=$LINES[$i]; if (/\\-\\|\\-$god\\-\\|\\-$tom\\-\\|\\-$nom\\-\\|\\-$sta\\-\\|\\-(.*)\\-\\|\\-(.*)\\-\\|\\-/) { $del="ok"; } else { print FILE $_; } } close FILE;
Он по идее должен делать: открывает файл, удаляет строку, содержащую: -|-$god-|-$tom-|-$nom-|-$sta-|-(.*)-|-(.*)-|- остальные строки должны остаться без изменений
Заранее сорри за назойливость... Вот это скрипт я у себя на Linux поставил и всё прекрасно работает. А точно ли он будет работать под Win2k, кто-нибудь пробовал?
Помогите плиз. Мне нужен скрипт для закачки файлов на сервер, который бы мог работать на Unix и на Win2k. А то уже пару скриптов заюзал, а оба только под Unix
Каа можно с помощью перл послать запрос к определенному IP аддресу с указанным портом и получить оттуда ответ. То есть например послать запрос на адрес 192.168.1.1:2715 (то есть на порт 2715).