
alferic
Novice
Sep 10, 2013, 8:24 AM
Post #3 of 11
(2632 views)
|
Re: [BillKSmith] concatenating strings and joining strings
[In reply to]
|
Can't Post
|
|
i tried this: ($dummy1, $dummy2) = split /\|/, $line; ($dummy3) = join ("\n", $dummy1, $dummy2); print "$dummy3\n"; the above prints: T1 CONT 21 100.00 0 0.00 T2 IEB 21 100.00 0 0.00 T3 IEB 21 100.00 0 0.00 T4 ICBO 21 100.00 0 0.00 T5 ICBO 21 100.00 0 0.00 T6 BVEB 21 100.00 1 4.76 T7 VFBE 21 100.00 0 0.00 T8 VFBE 21 100.00 0 0.00 I noticed that there is a space before T2,T4,T6,T8 then I split "$dummy3" by spaces and stored into and array (@dummy) = split /[\s]+/, $dummy3; print "@dummy\n"; but it prints like this: T1 CONT 21 100.00 0 0.00 T2 IEB 21 100.00 0 0.00 T3 IEB 21 100.00 0 0.00 T4 ICBO 21 100.00 0 0.00 T5 ICBO 21 100.00 0 0.00 T6 BVEB 21 100.00 1 4.76 T7 VFBE 21 100.00 0 0.00 T8 VFBE 21 100.00 0 0.00 the script: if ($line =~ /^T\d{1,}/) { ($dummy1, $dummy2) = split /\|/, $line; ($dummy3) = join ("\n", $dummy1, $dummy2); (@dummy) = split /[\s]+/, $dummy3; print "@dummy\n"; }
|