作者AntaresStar ()
看板Perl
标题Re: [问题] 取值
时间Mon Apr 14 00:18:56 2014
这样就没办法那麽少行啦...
my @a = split /\*/;
my $id = shift @a;
$a[0] =~ s/(\d+)/A$1/g;
$a[1] =~ s/(\d+)/B$1/g;
@a = grep {/\S/} map {split /,/} @a;
@a ? map {print "$id $_\n"} sort {substr($a,1)<=>substr($b,1)} @a
: print "$id\n";
看有没有人有兴趣弄出更少行的 XD
※ 引述《yalent ( 心只有你 )》之铭言：
: 非常感谢您的回答~
: 目前又遇到一个问题，在原始档的*之中，
: 都会有一组数字如下的1,2,3等
: ID2*1,2,4*2,3,4*
: ID3**2*
: ID4***
: 但是我想将第一组数字1转成 A1，2转成 A2，4转成 A4
: 至於第二组数字的2 转成B2，3转成 B3，4转成 B4
: 之後再对内容作排序
: 想将内容转为
: ID2 A1
: ID2 A2
: ID2 B2
: ID2 B3
: ID2 A4
: ID2 B4
: ID3 B2
: ID4
: 那这部份取代的写法，我要怎麽写呢?
: ※ 引述《AntaresStar ()》之铭言：
: : 虽然好像是以*为分隔 但切开後又要排序
: : 那不如连逗点也一起拿来切了
: : 这样如何
: : #!/usr/bin/perl
: : while (<DATA>) {
: : my @a = grep {/\S/} split /[,*]/;
: : my $b = shift @a;
: : @a ? map {print "$b $_\n"} sort @a : print "$b\n";
: : }
: : __DATA__
: : ID2*1,2,4*2,3,4*
: : ID3**2*
: : ID4***
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.43.171.55
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Perl/M.1397405938.A.F00.html
1F：推 yalent:感谢，我再试试看~ 04/14 09:20
2F：推 cutekid:一开始先 chomp 的话，好像可以省略 grep {/\S/} 04/14 10:51
3F：→ cutekid:可再省 5 个字元 XD 04/14 10:52