字符前进一位？咋处理

nicaijin

比方说 $able = "19B90EBAE6";
我要是实现每个字母和数字都向前进一位 （有点貌似+1的意思）

结果为$able = "20C11FCBF7";

kk861123

回复 1# nicaijin


   没怎么看明白，9进位应该为0还是10？那z进位后是a还是aa？

ziyunfei

join("",map({/\D/?chr(ord($_)+1):substr($_+1,-1)} split("",$able)))

kk861123

join('',map {substr(++$_,-1)} (split '',$able));

Perlvim

1. #!perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use 5.010;
   
6. use List::MoreUtils qw<apply>;
   
7. 
   
8. my $able = "19B90EBAE6";
   
9. 
   
10. my @add = map { /(.)$/ }
    
11.           apply { $_++ }
    
12.           split //, $able;
    
13. 
    
14. say "@add";
    

复制代码

Kitaisky

perl -le '$_=$ARGV[0]; tr/A-Za-z0-9/B-ZAb-za1-90/; print' "19B90EBAE6"

ustbleetom

各种看不懂的用法..

sosflyer

回复 7# ustbleetom


    看你ID,ustb？？？

ustbleetom

回复 8# sosflyer


    嗯，USTB

sosflyer

回复 9# ustbleetom


    哪届的啊？会不会认识呢=。=