作者sqrt1089 (李崩子)
看板Perl
標題[問題] push&換行
時間Wed Oct 6 22:57:34 2010
我有個push在while裡面，
EX：
$c=",";
while(<>){
...
..
.
push @array,$a[0],$c,$a[1];
}
print @array;
假設我的$a[0]是英文大寫好了，$a[1]是小寫；
最後會印出A,a B,b C,c....
中間的逗號是$c來的。
但是我想要的結果是:
A,a
B,b
C,c
是要加什麼指令？ 我令$d="\n" or 用正規的$d=/\n/;
擺在push @array,$a[0],$c,$a[1],
$d;也不能~"~
或是我在print "@array
\n";也不能。
到底要怎改?@~@
--
--
▂▂ ▂▂▂
▂▄▅▅▄▆█ ＿█◣
◢ (●) ◣／＼＼
丫 │◥ ￣◤
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.215.116
1F：→ sqrt1089:忘了備註 我搜索過/push 跟/換行 10/06 22:58
2F：推 imce:push(@array,"$a[0],$a[1]\n"); #這樣嗎？ 10/06 23:12
3F：推 drm343:原 po 在 while 中的 push 寫法會導致 $a[0]、$c、$[1] 成 10/06 23:24
4F：→ drm343:為三個陣列元素，而不是原 po 想要的一個元素 10/06 23:25
5F：→ sqrt1089:不能，剛去try了。不過你這樣可以讓$b(,)用不到! 10/06 23:26
6F：→ drm343:用 for (0..$#array){print $array[$_],"\n";} 去看就知道 10/06 23:27
7F：→ drm343:問題出在這了 10/06 23:27
8F：推 abliou:push @array,$a[0].$c.$a[1]; $,=$/; print @array ; 10/07 01:14
9F：→ sqrt1089:....自我解答，因為我是網頁板的所以要加<br>... 10/07 15:05
10F：→ sqrt1089:push(@array,"$a[0],$a[1] <br>"); 10/07 15:05