Quest Pistols

@Quest Pistols · Регистрация: 01.10.2022

Студворк — интернет-сервис помощи студентам

Хочу создать класс - 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. А метод не работает. Битый день не могу врубиться что не так. Помогите, пожалуйста.

@ft4l · 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}};

второй вариант приведения ссылок к спискам
... своими словами

@siberian-man · 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;

@Quest Pistols · 02.10.2022, 19:27 **[ТС]**

siberian-man и ft4l
Спасибо, что откликнулись. Загрузил ваши коды, всё работает

, буду разбираться. Благодарю за помощь! Попутного ветра вашим парусам

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук 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 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Quest Pistols 0 / 0 / 0 Регистрация: 01.10.2022 Сообщений: 2
	02.10.2022, 19:27 [ТС]
	siberian-man и ft4l Спасибо, что откликнулись. Загрузил ваши коды, всё работает, буду разбираться. Благодарю за помощь! Попутного ветра вашим парусам 0