看板 [ Perl ]
討論串[問題] 同一行上字串的處理
共 3 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者TONICOM (TONICOM)時間16年前 (2009/01/08 18:16), 編輯資訊
0
0
0
內容預覽:
我也來分享一下 , 不過前輩的寫得比我好很多 , 我自己也試著寫看 :. @test = map{$i=0;$_ =~ s/\W/$i++ ;"@".$i/eg;$_} split(/\//,$test);. $test = $test[0]."/".$test[1];. print $test;.

推噓2(2推 0噓 2→)留言4則,0人參與, 最新作者cutecpu (可愛中央處理器)時間16年前 (2008/12/28 12:53), 編輯資訊
0
0
0
內容預覽:
#!/usr/bin/perl. $_='aa#apple;inquire;keep/bb#about;abc;grammar;new;englsih';. s/(#|;)/'@'.($i=($1 eq '#' ? 1:$i+1))/ge;. print;. --. 發信站: 批踢踢實業坊(pt

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者Austin9 (奧斯丁)時間16年前 (2008/12/28 11:03), 編輯資訊
0
0
0
內容預覽:
不好意思,想請問一下同一行字串的處理. 現在有一組字串如下. $test=aa#apple;inquire;keep/bb#about;abc;grammar;new;englsih;. 想將它改成為. aa@1apple@2inquire@3keep/bb@1about@2abc@3grammar
(還有268個字)
首頁
上一頁
1
下一頁
尾頁