splitでほしいものが消えてしまう・・・

質問

文章列を１行取ってきて、そのなかから（１）《←全部全角です》をとってきたいとおもい、プログラムを書いたのですが、（１）だけ消えてしまいます。逆にこれだけを残すことはできないのでしょうか？
今までＣでポインタでやってたんですけど、今回Perlを使うことになり、悪戦苦闘しています。
よろしくお願いします。

↓のように書きました。コードはＳＪＩＳです。
@list = split(/\（(?:\x82[\x4F-\x58])\）/ ,$hows[$j]);

回答No.3

BLUEPIXY · ベストアンサー

したいことがもうひとつわからないので、勘違いしているかもしれませんが

@list = ($hows[$j]=~ /\（(?:\x82[\x4F-\x58])\）/g);

でいいような気がします。

お礼

説明不足ですみません。
やりたいことは、つまりは文章の中で、何回「（全角数字）」という表記が出てきるのか、括弧の中の数字はどんなものが使われているのかと調べたいのです。
で、$hows[$j]にその文章を入れ込んであるので、そのなかから「（全角数字）」を切り出して、@listに格納したかったのです。
上記の方法でうまくいきました！とりだしたいときはこうかけばよいのですね…ありがとうございました！！

回答No.4

noname#11136

全角のカッコを\でエスケープする必要はないと思います。また、全角の０から９の指定は[０-９]でもできます (漢数字の〇から九は[〇-九]ではだめですけど)。

@list = split /（[０-９]）/, $hows[$j];
これだとセパレータの「（1ケタの全角数字）」はもちろんlistの要素になりませんが、
No.2の方が書かれたようにセパレータの一部をカッコで囲むと、その部分も要素になります。
@list = split /(（[０-９]）)/, $hows[$j];
もし、セパレータ?というかパターンを要素にしたい場合は、No.3の方が書かれたように
@list = $hows[$j] =~ /（[０-９]）/g;

「（1ケタの全角数字）」を削除するのであれば、s///gでもいいのではないかと思います。
$hows[$j] =~ s/（[０-９]）//g;

splitは3つ目の引数として、-1 (負数)を指定しないと、後ろにある空の要素を捨ててしまうので、それでlistの要素数が減って、プログラムの別のところで問題が起こっているのかもしれません。
@list = split /（[０-９]）/, $hows[$j], -1;

参考URL：

http://www.unix.org.ua/orelly/perl/prog/ch03_155.htm

お礼

Windowsでやってるせいかわかりませんが、普通に全角で[０-９]と指定してもできなかったので、SJISコード表示を上記のようにしていたのです。原因はよくわからないんですけど（＾＾；
いろいろな手法を教えていただいてありがとうございます！

回答No.2

BLUEPIXY

splitは、パターンで指定したモノがデリミタ（分割する記号）だとするので、デリミタ自体はリストに含まれません。
デリミタも結果としてのリストに含める場合には
パターンを()で囲むことでリストに含めることができます。
つまり
@list = split(/(\（(?:\x82[\x4F-\x58])\）)/ ,$hows[$j]);
とします。
単に、パターンにマッチするものを取り出すのだったら、splitを使うのがおかしい様な気がします。

回答No.1

sunasearch

（@listの要素数－１）個の（１）があると考えて、
リストを作ってはどうでしょうか？

スマートではないのかも。