Форум программистов, компьютерный форум, киберфорум
Perl
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 01.10.2022
Сообщений: 2

Quest Pistols

01.10.2022, 11:34. Показов 1264. Ответов 3
Метки perl (Все метки)

Студворк — интернет-сервис помощи студентам
Хочу создать класс - MyClass, который по сути будет являться классом стека. И назначить ему методы. Пытаюсь реализовать хотя бы push. Код файла скрипта:
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use 5.32.1;
 
use strict; 
use warnings;
 
BEGIN {
    require 'MyClass.pm';
}
 
use MyClass;
 
# создаем новый объект
# в конструктор можно было передать дополнительные аргументы
# которые шли бы в sub new() следом за именем класса
 
my $cl = MyClass->new({stack => (20, 40, 60, 70), item => (80, 100)});
 
 
print $cl->push_onto_stack();
Код файла модуля MyClass.pm (в котором хранится класс стека):
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
use 5.32.1;
 
package MyClass; {
  use strict;
  use warnings;
 
  my $stack_size = 20;
  my @stack;
 
  sub new {
    # получаем имя класса
    my($class, $args) = @_;
    # создаем хэш, содержащий свойства объекта
    my $self = bless  { stack => $args->{stack},
                        item => $args->{item}
 
    }, $class;
  }
 
  # метод push_onto_stack();
  sub push_onto_stack {
    my $self = shift;
    die "Overflow\n" if {stack} > 20;
    return push ({stack}, {item});   
  }
}
 
1; # ok!
Пока что при исполнении файла скрипта возвращает мне - 1. А метод не работает. Битый день не могу врубиться что не так. Помогите, пожалуйста.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
01.10.2022, 11:34
Ответы с готовыми решениями:

Quest по программному коду
Не много запуталась с ответами на вопросы. Кому не трудно, подскажите ответы. Есть код: #include<stdio.h> ...

Royal Quest 60волш
Продам аккаунт , 60 волш, шмот фул, печати и заточка норм, сервер Гранас. Жду предложений

WinPcap (pcap_open_live) 2 quest:
Бывают случаи, когда при смене адаптера захвата пакетов возникает ситуация, при которой пропадают пакеты. Отслеживаю этот момент по...

3
Невнимательный
 Аватар для ft4l
2835 / 1259 / 357
Регистрация: 08.02.2013
Сообщений: 7,312
Записей в блоге: 2
01.10.2022, 17:28
с минимальными изменениями что-то-то такое наверно
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
use 5.32.1;
use strict;
use warnings;
 
package MyClass;
{
  use strict;
  use warnings;
 
  my $stack_size = 20;
  my @stack;
 
  sub new {
    # получаем имя класса
    my($class, $args) = @_;
    # создаем хэш, содержащий свойства объекта
    bless  { stack => $args->{stack},
                        item => $args->{item}
 
    }, $class;
  }
 
  # метод push_onto_stack();
  sub push_onto_stack {
    my $this = shift;
    die "Overflow\n" if $this->{stack}->@* > 20;
    return push @{$this->{stack}}, @{$this->{item}};   
  }
  1
}
 
package main;
use Data::Dump qw/ dump pp /;
 
# создаем новый объект
# в конструктор можно было передать дополнительные аргументы
# которые шли бы в sub new() следом за именем класса
 
my $cl = MyClass->new({stack => [20, 40, 60, 70], item => [80, 100]});
dump $cl;
 
print $cl->push_onto_stack();
dump $cl;
<--- x:\usr --->
perl ./test.pl
bless({ item => [80, 100], stack => [20, 40, 60, 70] }, "MyClass")
bless({ item => [80, 100], stack => [20, 40, 60, 70, 80, 100] }, "MyClass")


Perl
39
my $cl = MyClass->new({stack => [20, 40, 60, 70], item => [80, 100]});
Поменял скобки т.к передавался хэш в котором любые ключи и значения были просто списком скаляров.
Perl
26
   die "Overflow\n" if $this->{stack}->@* > 20;
->@* один из вариантов приведения ссылки на список к списку
... использование списка в скалярном контексте даёт число элементов
Perl
27
   return push @{$this->{stack}}, @{$this->{item}};
второй вариант приведения ссылок к спискам
... своими словами
1
321 / 46 / 11
Регистрация: 08.04.2022
Сообщений: 183
01.10.2022, 23:03
Очень простая реализация стека. Я решил не ограничивать размер стека, но оставил возможность инициализировать его начальным набором данных.

Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#!/usr/bin/env perl
 
use strict;
use warnings;
 
use Data::Dumper;
 
my $stack = Stack->new(42, 137);
 
print Dumper $stack;
 
$stack->push('some string');
$stack->push(0);
$stack->push(1);
 
print Dumper $stack;
 
printf "%d: %s\n", $stack->length, $stack->pop while $stack->length;
 
print Dumper $stack;
 
# =========================================================================
 
package Stack;
 
use strict;
use warnings;
 
sub new {
    my $class = shift;
 
    my $self = bless [], $class;
 
    $self->push(@_);
 
    $self;
}
 
sub push {
    my $self = shift;
    push @{ $self }, @_;
}
 
sub pop {
    my $self = shift;
    pop @{ $self };
}
 
sub length {
    my $self = shift;
    scalar @{ $self };
}
 
1;
1
0 / 0 / 0
Регистрация: 01.10.2022
Сообщений: 2
02.10.2022, 19:27  [ТС]
siberian-man и ft4l
Спасибо, что откликнулись. Загрузил ваши коды, всё работает, буду разбираться. Благодарю за помощь! Попутного ветра вашим парусам
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.10.2022, 19:27
Помогаю со студенческими работами здесь

СУБД QUEST SOFTWARE
СУБД QUEST SOFTWARE ICQ 110535896 Forrest@narod.ru

Погибаю! QDesigner 9.5 от Quest
Очень хорошая штука.. тиальности осталось на 3 дня... может кто-нибудь помочь с Authorization key ? many thanks.

Работа в Quest Software Inc. (СПб)
Компания Quest Software Inc. занимается разработкой, внедрением и сопровождением сетевого программного обеспечения. Продукты компании...

Unity под VR Oculus quest
Шалом, нужна помощь, видел в видео,как чел при нажатии &quot;play&quot; тестировал игру сразу в Oculus т.е не билдя, не устанавливая, просто...

Quest - ищем руководителей проекта.
Что же такое Quest? Каждый видит его по-своему: для кого-то это игра, для кого-то отдых от рабочей недели, для кого-то спорт. Суть Квеста –...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru