替换字符串

Eva326

求助，文本如下：
33to44A
55to77A
想保留第一个数字，得到：
more33
more55

jason680

http://bbs.chinaunix.net/thread-4254958-1-1.html

StarWingsss

1. #! /usr/bin/perl -w
   
2. 
   
3. open(FILE,"FILE_PATH") ||die "Cannot Open File:$!";
   
4. 
   
5. @data=<FILE>;
   
6. close(FILE);
   
7. 
   
8. foreach $line (@data)
   
9. {
   
10.   $line=~s/([0-9]{1,})(.*)/more$1/;
    
11.   print $line;
    
12. }

复制代码

sunzhiguolu

1. perl -nle 'print $1 if(/\A(\d+)/)' f

复制代码

sunzhiguolu

想保留开头的数字, 直接提取就行了.

1. perl -nle 'print "more$1" if(/\A(\d+)/)' f

复制代码

moperyblue

1. sed -r 's/[^0-9]*([0-9]+).*/more\1/'

复制代码

kidaaaa

1. perl -nle 'print “more”, $_+0'

复制代码

Simon-文帅

1. str = “33to44A”

复制代码

1. print $str =~ s/^ (\d+) (?: .*) $/more$1/xr;

复制代码