Форум русскоязычного сообщества Ubuntu


Считаете, что Ubuntu недостаточно дружелюбна к новичкам?
Помогите создать новое Руководство для новичков!

Автор Тема: Perl помогите!  (Прочитано 1092 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн kreks88

  • Автор темы
  • Новичок
  • *
  • Сообщений: 9
    • Просмотр профиля
Perl помогите!
« : 04 Февраль 2010, 00:31:38 »
Вообщем столкнулся с проблемкой скрипт для сайта разработан на перл, он обновляет статистику сервера, пытаюсь его запустить коммандой
perl stats.pl а он мне выдаёт


как быть и что делать??
скрипт от психостатса, обновление статистики кс сервера....
ПОмогите пожалуйто!Где то вроде вычитал что нужно переустанвить перл на более ранний но не нашёл как это сделать,пожалуйсто подскажите =))

Оффлайн Unreg

  • Активист
  • *
  • Сообщений: 751
  • Ubuntu 8.04 / Acer Aspire One 110 > Debian 5.04
    • Просмотр профиля
    • LJ
Re: Perl помогите!
« Ответ #1 : 04 Февраль 2010, 00:56:19 »
$ sudo apt-get update && sudo aptitude install perl
?

Оффлайн aSmile

  • Активист
  • *
  • Сообщений: 715
    • Просмотр профиля
Re: Perl помогите!
« Ответ #2 : 04 Февраль 2010, 11:47:58 »
может поправить скрипт, чтобы не только версия 5.8 подходила. но и более поздние?

Оффлайн kreks88

  • Автор темы
  • Новичок
  • *
  • Сообщений: 9
    • Просмотр профиля
Re: Perl помогите!
« Ответ #3 : 04 Февраль 2010, 16:21:29 »
unreg а что мне это даст??
Он установил дополнительные 157 мб,только зачем??


Asmile да если бы можно было бы я бы поправил но я к сожалению не умею работать в perl а изучать уже php начал вот на днях,если ктото поможет кину рублей 200 на мобильный и буду оч признателен

вот скрипт
(Нажмите, чтобы показать/скрыть)

Оффлайн Karl500

  • Заслуженный пользователь
  • Старожил
  • *
  • Сообщений: 2240
    • Просмотр профиля
Re: Perl помогите!
« Ответ #4 : 04 Февраль 2010, 16:33:49 »
Закомментарьте вот эти строки:

# if ($curver < $minver) {
#      print "Perl v$major.$minor.$release is too old to run PsychoStats.\n";
#      print "Minimum version $minver is required. You must upgrade before continuing.\n";
#      if (lc substr($^O,0,-2) eq "mswin") {
#         print "\nPress ^C or <enter> to exit.\n";
#         <>;
#      }
#      exit 1;
#   }

(и уберите F в 15-й строке)
Во всяком случае - заработает, насколько правильно - не знаю.

 

Страница сгенерирована за 0.066 секунд. Запросов: 22.