perl - 从任何给定参数中过滤掉非数字，Perl 开头

Question

这里的新手程序员渴望克服最初的困难，“我该怎么做？!？!”...

我正在尝试创建一个可以接受任何参数的 Perl 脚本。然后我希望脚本通过删除所有非数字返回在提供的参数中找到的数字。输出看起来像这样:

./numberreturner.pl plal1 pdse2d 30eeee and 5

将返回 12305

有什么指导吗？我有这台自动取款机，但我完全不知道从哪里开始使用它。

此脚本接受任意数量的$ARGV，返回通过删除所有数字找到的数字

!/usr/bin/perl -w
$digits =~ s/$ARGV
for ($ARGV) return "$digits";

如你所见...不知道...

Answer 1

使用s///去除非数字(\D):

s/\D+//g, print for @ARGV;