VPF::Ошибка при вызове - Форум программистов

meridian

Дата 23.11.2009, 12:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

Привет всем!
Почему возникает ошибка, что делаю неверно ?

Ошибка
Too many arguments for VD::GetDateAsNumber at VD.pl line 42, near "$caldate )"

his.pl

Код


use Win32::OLE;
require CQPerlExt;
use lib qw(.);
use VD;

################
# main
################

$currentDate = getCurrentDateTime( "date" );
$currentTime = getCurrentDateTime( "time" );

...
$caldate=...
$sdate = GetDateAsNumber($caldate);
...

Код


package VD;
require Exporter;
#use strict;
#use warnings;

our @ISA = qw( Exporter );    # -//-    
our @EXPORT = qw( getCurrentDateTime GetDateAsNumber );


sub getCurrentDateTime {
...
}
sub GetDateAsNumber() {
    my($Date,) = @_;
'''
}
1;

Это сообщение отредактировал(а) meridian - 23.11.2009, 12:38

sir_nuf_nuf

Дата 23.11.2009, 12:53 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


sub GetDateAsNumber() {
 ...
}

Вот эти круглые скобочки - они не просто так. Это протип, который указывает, что функция НЕ принимает никаких аргументов. Соответсвенно perl ругается.

Если вы не знаете зачем нужны протипы - не пишите круглые скобки.

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

meridian

Дата 23.11.2009, 13:04 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(sir_nuf_nuf @ 23.11.2009, 12:53)

Код


sub GetDateAsNumber() {
 ...
}

Ступил, спасибо!

Это сообщение отредактировал(а) meridian - 23.11.2009, 13:17

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