□実践 -- from here --
foreach ( @body ) { chomp; from_to( $_, 'jis', 'utf8' ); if ( /(.*)=(.*)/ ) { $data{ $1 } = $2; $name = $1; } else { $data{ $name } .= $_; } }----------------
□コメント 元々僕は、BSDスタイルでも、GNUスタイルでも無かったので、素直に受け入れられた。
Perlベストプラクティスを実践した記録
□実践 -- from here --
foreach ( @body ) { chomp; from_to( $_, 'jis', 'utf8' ); if ( /(.*)=(.*)/ ) { $data{ $1 } = $2; $name = $1; } else { $data{ $name } .= $_; } }----------------
□コメント 元々僕は、BSDスタイルでも、GNUスタイルでも無かったので、素直に受け入れられた。