一个小背景:我有csv文件,其中包含我使用Text::CSV_XS移动到数据库中的数据。我大约有12张桌子。我正在使用一个Model/Data.pm DBI包装器模块,它是"Model/Data/Table1.pm“模块的父模块,每个模块代表一个表。此外,也许有一天会出现新的表。我希望Perl在"Model/ data &
supported by the Organization X ("No. 11AZD121"); adress; "12344;123131; 3859563";;; employees 除了带双引号(")的字段中的分号所以我希望正则表达式能找到除"43643-25262.123; ABC2322"和"12344;123131; 3859563"之外的所有分号。