perl中如何截取数字

noword

有这样一段字符，以数字开头，后面跟着随机的英文字母，如：1234abcxyz

我想截取前面的数字，放入某个变量中,我写了这样的代码，但是无效：
[PHP]
#!/usr/bin/perl
$Str='123abc';
$n=substr($Str, 0, index($Str, "[^0-9]"));
[/PHP]

应该怎么写呢？

KornLee

[php]
$str="12123asdfsdf";
$str=~s/[a-z]+$//;
$n=$str;
print $n;
[/php]

noword

先谢谢楼上的。

不过如果$str中包含有回车和其他数字该怎么办呢？

能不能把从第一个非数字开始的字符全剔除。

如$str="123abcd\nabcd456"; 要求得到123

jlake

my $str = "123abcd\nabcd456";
my @arr = split(/[a-z]/,$str,2);
$str = $arr[0];
print $str;
print "\n";

x11

my $str = "123abcd\nabcd456";
$str =~ /(^\d+).*/;
print $1;