[問題] Perl split/join 問題

[gecer (gecer)]

$pll=',2,';
@a=split(',',$pll);
$p=join ',', @a;
print $p;

最後印出來的 $p 只有",2"  原本預計會join回#pll=',2,'

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 118.171.207.24
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1520056065.A.3E7.html