使用Perl的Term::Animation编写的程序提前退出。

huangapple
go评论87阅读模式
英文:

Program with Perl's Term::Animation quits prematurely

问题

当尝试通过按下"d"或"a"键来移动对象时，Perl退出。我认为问题与未定义的quit()函数有关。为了解决这个问题，我尝试使用Curses库中的endwin()函数来正确结束程序执行。

  1. if ($in eq 'q') {
  2.     endwin(); # 正确终止程序执行
  3.     last;
  4. }

更多内容继续出现

  1. use strict;
  2. use warnings;
  3. use Curses;
  4. use Term::Animation;
  6. my $anim = Term::Animation->new();
  7. # 设置对象的起始位置
  8. my $x = 0;
  10. $anim->new_entity(
  11.     shape           => ['@'],  # 对象的符号
  12.     position        => [$x, 0, 0],
  13.     auto_trans      => 1,
  14. );
  16. halfdelay(1);
  18. while (1) {
  19.     my $in = lc(getch());
  21.     if ($in eq 'q') {
  22.         quit();  # 退出
  23.     }
  24.     elsif ($in eq 'r') {
  25.         last;  # 重新绘制（将重新创建所有对象）
  26.     }
  27.     elsif ($in eq 'p') {
  28.         $anim->pause(!$anim->paused());  # 暂停或恢复动画
  29.     }
  30.     elsif ($in eq 'd' || $in eq KEY_RIGHT) {
  31.         # 向右移动（增加x位置）
  32.         $x++;
  33.         $anim->set_entity_position(0, $x, 0, 0);
  34.     }
  35.     elsif ($in eq 'a' || $in eq KEY_LEFT) {
  36.         # 向左移动（减少x位置）
  37.         $x--;
  38.         $anim->set_entity_position(0, $x, 0, 0);
  39.     }
  41.     $anim->animate();  # 更新动画
  42. }
  44. $anim->update_term_size();
  45. $anim->remove_all_entities();

请注意，代码中的注释已被翻译。

英文:

When trying to move the object by pressing "d" or "a" perl quits.
I thought the problem was related to using the quit() function which was not defined. To fix this, I tried using the endwin() function from the Curses library to end the program correctly.

  1. if ($in eq 'q') {
  2.     endwin(); # Terminate program execution correctly
  3.     last;
  4. }

More kept coming out

  1. use strict;
  2. use warnings;
  3. use Curses;
  4. use Term::Animation;
  6. my $anim = Term::Animation->new();
  7. # Set the starting position of the object
  8. my $x = 0;
  10. $anim->new_entity(
  11.     shape           => ['@'],  # Symbol of the object
  12.     position        => [$x, 0, 0],
  13.     auto_trans      => 1,
  14. );
  16. halfdelay(1);
  18. while (1) {
  19.     my $in = lc(getch());
  21.     if ($in eq 'q') {
  22.         quit();  # exit
  23.     }
  24.     elsif ($in eq 'r') {
  25.         last;  # Redraw (will recreate all objects)
  26.     }
  27.     elsif ($in eq 'p') {
  28.         $anim->pause(!$anim->paused());  # Pause or resume the animation
  29.     }
  30.     elsif ($in eq 'd' || $in eq KEY_RIGHT) {
  31.        # Move right (increment x position)
  32.         $x++;
  33.         $anim->set_entity_position(0, $x, 0, 0);
  34.     }
  35.     elsif ($in eq 'a' || $in eq KEY_LEFT) {
  36.         # Mover para a esquerda (decrementar a posição x)
  37.         $x--;
  38.         $anim->set_entity_position(0, $x, 0, 0);
  39.     }
  41.     $anim->animate();  # Update the animation
  42. }
  44. $anim->update_term_size();
  45. $anim->remove_all_entities();

答案1

得分: 1

"It's being hidden but the program is dying with the error:

> Can't locate object method "set_entity_position" via package "Term::Animation"

And indeed, I see no such method in the docs.

Term::Animation::Entity have a position method which can be used to change their position. Of course, you will need to obtain the entity you want to move first. ->new_entity returns a reference to the entity it creates.

Regarding quit(), you should be using

  1. $anim->end();

to set the screen back to normal, followed by

  1. last;        # Exit loop (which exits the program)

or

  1. exit;         # Exit the program directly.

This suggests the r key doesn't do what you expect it to do."

英文:

It's being hidden but the program is dying with the error

> Can't locate object method "set_entity_position" via package "Term::Animation"

And indeed, I see no such method in the docs.

Term::Animation::Entity have a position method which can be used to change their position. Of course, you will need to obtain the entity you want to move first. ->new_entity returns a reference to the entity is creates.

Regarding quit(), you should be using

  1. $anim->end();

to set the screen back to normal, followed by

  1. last;        # Exit loop (which exits the program)

or

  1. exit;         # Exit the program directly.

This suggests the r key doesn't do what you expect it to do.

huangapple
  • 本文由 发表于 2023年5月14日 05:06:10
  • 转载请务必保留本文链接：https://go.coder-hub.com/76244872.html
  • curses
  • perl
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定