配列・文字列操作

----------------------------------------------------
@list = split(/,/,$src); # カンマ区切りのデーターをリストにいれる
----------------------------------------------------
$wkstr = join(" ", @w[2], @w[3]); # カンマで文字列結合
----------------------------------------------------
sprintf(qq/%06d¥n/,61); # 頭0うめ「000061」
----------------------------------------------------
substr($rec,10,4) = "□□";# $recの11バイト目から4バイトを□□に置換する
----------------------------------------------------
$sjis = pack( "H*", $str ); # Pack関数 8c6f -> 経
----------------------------------------------------
($s1,$s2,$s3) = unpack( "A5A10A3", $_ ); # 固定長レコードを分解して変数に代入
----------------------------------------------------
# MAP関数　配列の値を2倍にする
@double = map { 2 * $_ } @vals;
# MAP関数 ＠array の要素を値としてハッシュに代入する
%hash = map { ("map" . $i++) => $_ } @array;

require Data::Dumper;
print Data::Dumper->Dump( [ \%hash ] , [ '*hash' ] );