VPF::Undefined subroutine &main:: - Форум программистов

X_ForumLogin

Дата 11.2.2008, 15:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Привеет : - )
Простенький скрипт, который у людей работает:

Код


#!/usr/bin/perl

use strict;

my $mqueue_directory = "/var/spool/mqueue";
my %occurrences;

use File::Find;
# Recursively find all files and directories in $mqueue_directory
find(&wanted, $mqueue_directory);

sub wanted {
# Is this a qf* file?
if ( /^qfw{14}/ ) {
open (QF_FILE, $_);
while(<QF_FILE>) {
# Lines beginning with R contain an envelope recipient
if ( /^R.*:<.*@(.*)>$/ ) {
my $domain = lc($1);
# Add 1 to the %occurrences hash
$occurrences{$domain}++;
}
}
}
}

# Subroutine to sort hash by ascending value
sub hashValueAscendingNum {
$occurrences{$a} <=> $occurrences{$b};
}

# Print sorted results
foreach my $key (sort hashValueAscendingNum (keys(%occurrences))) {
print "$occurrences{$key} $keyn";
}

Сообщение об ошибке: Undefined subroutine &main:: called at /usr/libdata/perl/5.00503/File/Find.pm line 103.

Чую, с модулями перла что-то не так, но что?

Unrealm

Дата 11.2.2008, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Попробуй обновить модуль или переустановить его. У меня была подобная проблема, правда с другим модулем.

amg

Дата 11.2.2008, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Может версия перл старовата? Сейчас в ходу 5.8, уже появился 5.10, а тут 5.0.
Тем не менее, может, заработает, если исправите в строке 10 &wanted на \&wanted и в строке 34 $keyn" на $key\n" .

X_ForumLogin

Дата 11.2.2008, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

А какой модуль-то обновлять надо? СПАН запустил, там их столько, непонятно, какой именно?

amq, заменил, ошибка исчезла, но ничего не происходит. Это не могло привести к прерыванию скрипта?

ginnie

Дата 11.2.2008, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

X_ForumLogin, скорее всего надо

Код


if ( /^qfw{14}/ ) {

заменить на

Код


if ( /^qf\w{14}/ ) {

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

amg

Дата 11.2.2008, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

ginnie, скорее всего, да. Похоже, в скрипте куда то пропали все бэкслеши. Поэтому строку if ( /^R.*:<.*@(.*)>$/ ) тоже надо внимательно посмотреть на сей счет. Хотя, вроде, там все в порядке (стандартной переменной @(, вроде, нет?)

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