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

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

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

No.2 ベストアンサー 回答者： Tacosan 回答日時： 2004/11/05 18:47

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";

この回答へのお礼

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

お礼日時：2004/11/05 19:04

No.1 回答者： noname#25358 回答日時： 2004/11/05 15:54

　Perl にはカーソルの概念はありません。

　どういう答えが欲しいのかがいまいち分からないので、具体的に何がしたいかを書いてみてください。
（文字列の一部を抜き出したい、とか）

この回答への補足

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

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

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

補足日時：2004/11/05 16:09