右に１つだけ移動とかって・・

質問

Perlでは、カーソル(?)を右に１つ移動するなどのプログラムの書き方はないのでしょか・・？（一文字抜かして、次の文字になど）

まだ、Perl初心者なので出来るだけ、簡単に説明お願いしますm(. .)m

回答No.2

Tacosan · ベストアンサー

Perl 5.8.5 なんで use encoding してます (全体の文字コードが Shift-JIS なら euc-jp じゃなくて shift_jis にしてください) が, たとえばこんなの?

use encoding 'euc-jp';

$a = "★□□□□□□★";

$a =~ s^(★)(.*)(★)^$1 . join('▲', split(//, $2)) . $3^e;
print "$a\n";

お礼

ありがとうございます！！
早速やってみます

回答No.1

noname#25358

Perl にはカーソルの概念はありません。
　どういう答えが欲しいのかがいまいち分からないので、具体的に何がしたいかを書いてみてください。
（文字列の一部を抜き出したい、とか）

補足

すみません！
動きとしては、★から★までの中の一文字ごとに、区切りとして記号を挿入させたいんです。

（例）★□□□□□□★
　　　　　　　↓
　　　★□▲□▲□▲□▲□▲□★

にしたいんです。どうしたらいいでしょうか・・。