Perlコーディング初心者質問スレ Part 56

Perlコーディング初心者質問スレ Part 56 at PHP

412:nobodyさん
07/10/20 14:55:48 o1wAy6B9
>>411 その通り！ありがとう。
短い$hogeだと関数が成功した1しか返さないことがあるようでアレ違うわと思っていました。

>>409
ちょっと離れるので投げっぱなしになってしまいそうだけど
解答してくれる人が現れる間に考えていました

use utf8;
use Encode;

$str = '
eval ($hoge);　の実行した値を変数に入れるにはどうしたらいいでしょうか？
$@　だと、evalでのエラーの値が入る
でも、実行値は...?

お願いします。
';

@stream = split(/\n/,$str); #最初に渡された文字列を　改行　を区切りとして @stream に配列として読み込んだ
map{ s{(.......)}{$1\n}g } @stream; #”８文字”単位で改行を入れてる
map{print encode(sjis,$_)}@stream; #各行を出力するときにsjisに変換してる

とか、なかんじでどうよ？
ただし1バイト文字の扱いがなんか変。

*たぶんutf8でけつまずいてるかんじ。

次ページ

続きを表示

1を表示