新手，求指導(dǎo)。

zhuochong

$_="98Hello76there54dream32";
怎么只把數(shù)字捕獲出來，求指導(dǎo)，謝謝！

清泉一邊

試試~

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

復(fù)制代碼

回復(fù) 1# zhuochong


   

zhuochong

謝謝，點個贊！
回復(fù) 2# 清泉一邊


   

zhuochong

今天學(xué)到一種更簡單的方法分享下。

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

復(fù)制代碼

tslearner

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

zhuochong

回復(fù) 5# tslearner


1.第一個問題：請教下tr里面的cd連用怎么理解？


2.第二個問題：
my $line="98Hello76there54dream32";
我用$line=~ tr/0-9/*/c;可以把字符都替換為*；
為什么用$line=~ tr/0-9//c;就沒有辦法替換？

求指導(dǎo)？