在perl中处理多行模式
|
我正在为移动平台添加新的语言支持。我必须在几种文件中为每种语言添加条目，因此我想使用perl做到这一点。要使此过程自动化，我感觉如何匹配多行perl中的模式。
这是我的情况：
const mmi_imeres_mode_details_struct g_ime_mode_array_int[] =
{
{
INPUT_MODE_NONE,
0,
0,
0,
0,
0,
0
},
{
INPUT_MODE_MULTITAP_LOWERCASE_ABC,
STR_INPUT_METHOD_MENU_MULTITAP_abc,
WGUI_IME_MULTITAP_LOWERCASE_ABC_IMG,
INPUT_MODE_DEFAULT_ALTERNATE_METHOD,
MMI_IME_ALL_EDITORS | MMI_IME_ENGLISH_ONLY_MODE | MMI_IME_ALPHABETIC | MMI_IME_LOWERCASE,
MMI_IMM_WRITING_LANGUAGE_ENGLISH,
\"en-US\"
},
my $newstr = \'\';
open (FH, \"$filename\") || die \"Could not open file.\\n\";
while(<FH>)
{
$newstr = $newstr.$_;
}
没有找到相关结果
已邀请:
1 个回复
号拳藐孔妇
my $newstr; { open my $fh, \'<\', $filename or die \"Could not open file $filename.\\n$!\\n\"; local $/ = undef; $newstr = <$fh>; }while( $newstr =~ m/ { # Match the opening bracket. ([^}]*) # Capture any number of characters that exclude \'}\' } # Match the closing bracket. /gx # Use /g for multiple matches, and /x for readability. ) { print \"$1\\n\"; }