外部ファイルの検索結果を変数に代入

質問

１日中悩んでいるのですが、うまくいきません。
お力を貸してください。

name.htmlというファイルに

<start1>正くん<end1>
<start2>花子さん<end2>
<start3>太郎くん<end3>

という記述があるとします。
（名前部分は更新されるので、日によって愛子さんだったり高志くんだったりします）
この中から<start1>と<end1>に挟まれた部分を$name1に、
<start2>と<end2>に挟まれた部分を$name2に、
<start3>と<end3>に挟まれた部分を$name3に、
それぞれ代入したいのです。

name.htmlを読み込んでから、名前の置換なら出来たのですが、
変数に代入する方法が分かりません。

どうかよろしくお願いします。

回答No.2

sakusaker7 · ベストアンサー

んじゃあこんな感じで。

use strict;
use warnings;

my @names = qw(dummy);

while (my $line = <DATA>) {
chomp $line;

my ($n, $name, $m) = $line =~ m{<start(\d)>(.+?)<end(\d)>};
next if ($n != $m || !defined $name);

$names[$n] = $name;
}

print join ':', @names;

__END__
<start1>正くん<end1>
<start2>花子さん<end2>
<start3>太郎くん<end3>

実行結果:
dummy:正くん:花子さん:太郎くん

実データはゴミ(不要な部分)があっても大丈夫なはずです。
ただし<start?>と<end?>が複数行にわたると
ダメです(対処できますが)。

一応 <start1>名前<end2>みたいな変なデータは
蹴っ飛ばすようにしてます。
配列の添え字は0から始まるので0番目にダミーデータを
入れてますが、その辺は好きにいじってください。

お礼

これを当てはめると、希望通りの動きになりました！
なるほど、これは自分では書けそうもなかったので大変助かりました。
本当にありがとうございます。

いつか教えられる側になれるよう、もっと勉強します！

回答No.1

sakusaker7

代入先が
$name[1], $name[2], $name[3] のように
配列になっちゃいけませんか?

お望みの動作もやってやれなくはありませんが
正直お勧めできません。

補足

配列で問題ありません。
３つより増えることはないのでスカラー変数でいいかと思いましたが、
配列の方が断然扱いやすいですね。考え足らずでした。
よろしくお願いします。