抜き出す

""ではさまれた文字をぬきだす。

$inputfile="サンプルテキスト.txt";
$outputfile="サンプルテキストout.txt";
open(IN, $inputfile);
@ARY = <IN>;
close(IN);

#まずは""を含む配列を取り出す。
@ARY2 = grep(/".+"/, @ARY);
#@ARY2 =~ m/(".+")/;#こんな風に一発で取り出せると思うのだが。。。

#つぎに取り出した配列の中から""のテキストだけとりだす。
foreach $buf (@ARY2) {
	$buf  =~ m/"(.+)"/g;
	print $1;
	$wStr.="$1\n";
}

open (OUT,"> $outputfile");#書き込み新規文章で書き込む
print (OUT $wStr);
close(OUT);

exit;