Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> начало perl, не запускаетсяся программа 
:(
    Опции темы
KZMD
Дата 11.3.2009, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 11.3.2009

Репутация: нет
Всего: нет



Помогите плз новичку не запускается программа , использую perl Builder для Винды ХР ... Ещё есть опепСУсе Но тамзапускать не решался 
#!/Usr/bin/perl -w 
print "You name\n";
$name = <STDIN>;
$- =NAME_FORMAT;
 write;
$- = NAME_FORMAT_BOTTOM;
write;
format NAME_FORMAT=
Privet,@>>>>>>>>>>>>!
$name

.
format NAME_FORMAT_TOP=

message Perl-programi

.

format NAME_FORMAT_BOTTOM=

.


Ошибка !!!!

Undefined format "main::STDOUT" called at script line 5.
You namo


в чём можт быть дело ?? 
PM MAIL   Вверх
woof
Дата 12.3.2009, 01:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 68
Регистрация: 5.4.2007

Репутация: нет
Всего: нет



нифига себе)))))
я такой порнограффии ещё не видел)))))
я так понимаю ты хотел сделать прогу, которая просит ввести имя и потом выводит типа привет вася???

PM MAIL   Вверх
SkoobyDoo
Дата 12.3.2009, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 4.10.2007

Репутация: нет
Всего: нет



Код


#!/usr/bin/perl -w 

print "You name: ";

$name = <STDIN>;

$~ = NAME_FORMAT_TOP;
write;
$~ = NAME_FORMAT;
write;
$~ = NAME_FORMAT_BOTTOM;
write;

format NAME_FORMAT =
Privet,@>>>>>! 
       $name
.

format NAME_FORMAT_TOP =
Perl-Script
.

format NAME_FORMAT_BOTTOM =
end
.



замени $- на $~

write - http://perldoc.perl.org/functions/write.html
format - http://perldoc.perl.org/functions/format.html

Это сообщение отредактировал(а) SkoobyDoo - 12.3.2009, 09:35
PM MAIL   Вверх
amg
Дата 12.3.2009, 09:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 38
Всего: 50



Цитата(KZMD @  11.3.2009,  22:43 Найти цитируемый пост)
Ещё есть опепСУсе Но там запускать не решался
И не запустится, скорее всего. Так как диретории Usr (с заглавной буквы) почти наверняка нет. 

А так ли нужны форматы? Ими реально никто и не пользуется то, лучше printf/sprintf освойте, эти функции в большинстве случаев вполне заменяют format/write. 
Код
#!/usr/bin/perl -w 
print "You name ";
$name = <STDIN>;
chomp $name;
printf "Privet, %12s!\n", $name;

PM MAIL   Вверх
dmitryk1
Дата 12.3.2009, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.6.2008
Где: Новосибирск

Репутация: 2
Всего: 2



А почему не
Код

print "Privet, $name!\n";


?
PM MAIL GTalk Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0661 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.