如何使用Perl获取数字的最后两位数字?

use*_*638 3 regex perl numbers substr

如何从特定数字中获取值?

让我们说数字是20040819.我想得到最后两位数,即19使用Perl.

Ben*_*oit 11

my $x = 20040819;
print $x % 100, "\n";
print substr($x, -2);
Run Code Online (Sandbox Code Playgroud)

  • 在我看来,`%`选项是最自然的. (4认同)
  • 我会选择substr. (2认同)