SQL文解析でPerlワンライナーを使う。シングルクォートの扱い方

perlワンライナーでSQL文を整形したいとか、値を抜き出したいって時が しばしばありまして、SQL文はシングルクォートのオンパレードで

私もやり方がわからず困っていましたが

こちらに回答がありました。

すっきりしました。

BEGINブロックに書くのがスマートでしょう。

perl -ne 'BEGIN {$sq="\x27";} print "$1\n" if /$sq(........)$sq;$/ '  ./hoge.sql