witeX
Зарегистрирован: 27.06.2005
Сообщения: 33
|
 Добавлено: Вс Июл 10 2005 05:50 Заголовок сообщения: Помогите с отладкой скрипты в перле |
 |
|
| Код: |
if ($sub eq "Äàëåå"){
# open (RAZ,"<razdelq.txt");
# flock (RAZ,4);
# @razdelq=<RAZ>;
# flock (RAZ,8);
# close(RAZ);
print qq(<form name="main" action="" method="post">
<select name="dirhrml" onChange="javascript:document.forms.main.submit();">$razdelmenu<select>
<input type="hidden" name='admin' value='$admin'>
<input type="hidden" name='pass' value='$pass'>
<input type="hidden" name="action" value="$action"><br>
);
print qq(<select name="title">);
foreach (@razdelq){
($papka,$nazvaniehtm)=split(/\|\|/,$_);
if ($dirhtml eq $nazvaniehtm){
$newsf=$papka.'news.txt';
$statjaf=$papka.'statja.txt';
open (NEW,"<$newsf");
flock (NEW,4);
@news = <NEW>;
flock (NEW,8);
close(NEW);
@news=reverse(@news);
foreach $new (@news){
($name,$href)=split(/\|\|absd/,$new);
$options= $options."<option>$name</option>";
}
open (STA,"<$statjaf");
flock (STA,4);
@statja = <STA>;
flock (STA,8);
close(STA);
@statja=reverse(@statja);
foreach $stat(@statja){
($name,$href)=split(/\|\|absd/,$stat);
print "<option>$href</option>";
}
}
}
print qq(</select><input type="submit" name="saction" value="Ðåäàêòèðîâàòü"></form>);
|
Народ помогите, должен сравнивать с отосланными данными имя из файла а потом вывести в селект все названия которые есть в двух файлах... но проблема в том что не хочет выводить=( помогите, файлы существую все естьно цикл не выводит инфу, я обработку из другого скрита уже копировал, где уон у меня просто выводит названия.там пашет здесь нет,начинаю вписывать в селект и вс=((([/code] |
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
