ここで何が起こっているのかわかりません... Perl に任せるのではなく、手動でやろうとしています。
my $replace_string
= "s/typedef struct WebFontDescription WebFontDescription/struct WebFontDescription/g";
print $fh "perl -p -i -e \""
. $replace_string
. "\" \""
. $idl_filename
. "\"\r\n";
$replace_string
= "s/\(WebFontDescription\\* webFontDescription/\(struct WebFontDescription\\* webFontDescription/g";
print $fh "perl -p -i -e \""
. $replace_string
. "\" \""
. $idl_filename
. "\"\r\n";
文字列を探していることがわかります
typedef struct WebFontDescription WebFontDescription
そしてそれを
s/\(WebFontDescription\\* webFontDescription/\(struct WebFontDescription\\* webFontDescription/g
しかし、どのように正規表現を正規表現に置き換えますか? それは意味がありません...