新手，求指导。

zhuochong

$_="98Hello76there54dream32";
怎么只把数字捕获出来，求指导，谢谢！

清泉一边

试试~

1. #!/usr/bin/perl
   
2. $_="98Hello76there54dream32";
   
3. while (($out) = $_ =~ /(\d)/){
   
4. $_ =~ s/$out//;
   
5. $line .= $out;
   
6. }
   
7. print $line;

复制代码

回复 1# zhuochong


   

zhuochong

谢谢，点个赞！
回复 2# 清泉一边


   

zhuochong

今天学到一种更简单的方法分享下。

1. 
   
2. #!/usr/bin/perl
   
3. my $line="98Hello76there54dream32";
   
4. my @arr=($line=~/(\d+)/g);
   
5. print "@arr\n";
   

复制代码

tslearner

use strict;
my $_="98Hello76there54dream32";
$_ =~ tr/1-9//cd;
print $_;

zhuochong

回复 5# tslearner


1.第一个问题：请教下tr里面的cd连用怎么理解？


2.第二个问题：
my $line="98Hello76there54dream32";
我用$line=~ tr/0-9/*/c;可以把字符都替换为*；
为什么用$line=~ tr/0-9//c;就没有办法替换？

求指导？