看板
[ Perl ]
討論串[問題] 取值
共 6 篇文章
內容預覽:
雖然好像是以*為分隔 但切開後又要排序. 那不如連逗點也一起拿來切了. 這樣如何. #!/usr/bin/perl. while (<DATA>) {. my @a = grep {/\S/} split /[,*]/;. my $b = shift @a;. @a ? map {print "$b
(還有146個字)
內容預覽:
非常感謝您的回答~. 目前又遇到一個問題，在原始檔的*之中，. 都會有一組數字如下的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. 之後再
(還有52個字)
內容預覽:
這樣就沒辦法那麼少行啦.... 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 ?
(還有54個字)