Просмотр сообщений
316
Держи - http://downloads.activestate.com/ActivePerl/Windows/5.6/ActivePerl-5.6.0.623-MSWin32-x86-multi-thread.msi
Сам по ней устанавливался
Сам по ней устанавливался
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
317
Perl / Как удалить строку из файла
« : 02 Апреля 2001, 21:02:18 »
Этот вариант почему-то не работает
318
Perl / Как удалить строку из файла
« : 02 Апреля 2001, 11:20:14 »
Как уже сделал (я же только учусь)
319
Perl / Как удалить строку из файла
« : 02 Апреля 2001, 10:32:07 »
Это должен быть форум (приблизительно как этот) и в нем можно будет изменять вопрос и т.к. я знаю как можно добавить запись я не спрашиваю как заменить строку на строку, а спрашиваю как удалить.
320
Perl / Как удалить строку из файла
« : 02 Апреля 2001, 10:01:27 »
А что нибудь полегче (ведь в этом случае мне надо знать сколько у меня строк, а их кол-во переменчиво)
321
Perl / Как удалить строку из файла
« : 02 Апреля 2001, 09:33:01 »
Теорию я знаю, примерчик мне бы..........
322
Perl / как запустить sub с дрогого скрипта
« : 07 Апреля 2001, 22:26:17 »
как запустить sub (1.cgi) с дрогого скрипта (2.cgi)
323
Perl / Как удалить строку из файла
« : 01 Апреля 2001, 23:59:48 »
Как удалить строку ( например №3) из файла
если можно примерчик плз..
если можно примерчик плз..
324
Perl / Работа с директориями
« : 27 Марта 2001, 15:56:37 »
Есть программа, но она работает только в текущей директории, что нужно, где и как нужно указать нужную дир?
print "Content-type: text/html
";
print "";
while ( defined($filename = glob("*.rek")) ) {
open (WORDSLIST, $filename) || die "Not file: $!";
@file=;
close (WORDSLIST) || die "File: $! ne zakrit";
print "Предприятие: $file[0]
";
print "WEB: $file[2]
";
print "E-mail: $file[1]
";
print "Tel: $file[5]
";
print "Fax: $file[6]
";
print "Описание: $file[9]";
print $file[10];
print $file[11];
print $file[12];
print "$file[13]
";
}
print "Content-type: text/html
";
print "";
while ( defined($filename = glob("*.rek")) ) {
open (WORDSLIST, $filename) || die "Not file: $!";
@file=
close (WORDSLIST) || die "File: $! ne zakrit";
print "Предприятие: $file[0]
";
print "WEB: $file[2]
";
print "E-mail: $file[1]
";
print "Tel: $file[5]
";
print "Fax: $file[6]
";
print "Описание: $file[9]";
print $file[10];
print $file[11];
print $file[12];
print "$file[13]
";
}