Re: [問題] 取值
那可能要先定義一下甚麼叫做一行了
假設陣列格式很簡單 到是有辦法寫出"偽一行"
@data = ('ID2*1,2,3*2,3,4*','ID3**2*','ID4***' ) ;
sub{
(length($_[1])+length($_[2])==0)?
print "$_[0]\n" :
sub{
print "$_[0] $_\n" for
@_[1..$#_]
}->(($_[0]),
(map{'A'.$_}(split',',$_[1])),
(map{'B'.$_}(split',',$_[2])))
}->(/(.+)\*(.*)\*(.*)\*/)
for @data ;
我是覺得 有點難讀 如果三個月後哪個倒楣鬼要改會有點麻煩
(套句Larry的話 三個月後的倒楣鬼通常是自己)
※ 引述《AntaresStar ()》之銘言：
: 這樣就沒辦法那麼少行啦...
: 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
: : 那這部份取代的寫法，我要怎麼寫呢?
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.195.44.131
※ 文章網址: http://www.ptt.cc/bbs/Perl/M.1397448411.A.EC9.html
※ 編輯: abliou (123.195.44.131), 04/14/2014 12:19:13
→
04/14 12:18, , 1F
04/14 12:18, 1F
→
04/14 12:20, , 2F
04/14 12:20, 2F
→
04/14 12:21, , 3F
04/14 12:21, 3F
→
04/14 12:21, , 4F
04/14 12:21, 4F
→
04/14 12:21, , 5F
04/14 12:21, 5F
→
04/14 12:21, , 6F
04/14 12:21, 6F
→
04/14 12:21, , 7F
04/14 12:21, 7F
→
04/14 12:21, , 8F
04/14 12:21, 8F
→
04/14 12:23, , 9F
04/14 12:23, 9F
原來是忘了排序 XDDDD
sort一下吧
sub{
(length($_[1])+length($_[2])==0)?
print "$_[0]\n" :
sub{
print "$_[0] $_\n" for
@_[1..$#_]
}->(($_[0]),
sort{@{[split'',$a]}[1]<=>@{[split'',$b]}[1]}((map{'A'.$_}(split',',$_[1])),
(map{'B'.$_}(split',',$_[2]))))
}->(/(.+)\*(.*)\*(.*)\*/)
for @data ;
※ 編輯: abliou (123.195.44.131), 04/14/2014 12:29:30
推
04/14 20:24, , 10F
04/14 20:24, 10F
推
04/15 09:40, , 11F
04/15 09:40, 11F
→
04/16 15:40, , 12F
04/16 15:40, 12F
→
04/16 15:41, , 13F
04/16 15:41, 13F
推
04/16 15:44, , 14F
04/16 15:44, 14F
推
04/17 23:44, , 15F
04/17 23:44, 15F
推
04/18 23:42, , 16F
04/18 23:42, 16F
→
04/18 23:42, , 17F
04/18 23:42, 17F
→
04/18 23:42, , 18F
04/18 23:42, 18F
討論串 (同標題文章)