use strict;
my $str = 'TropicalFruitTOutput::TropicalFruitTOutput{)
: dad::CRunnable{)
, m_watermelon_out{)
#if MAX_FRUITS == (10)
, m_cherry_out{)
#endif
{
}
NationalFruitInput::NationalFruitInput{)
, m_banana_in{)
, m_dragronFruit{PAD_GetdragronFruitPAD_B(xcxcxc))
{
}
SpecialFruits::SpecialFruits{)
: AmazingClassType{)
, m_kiwi{)
, m_avocado{ // PRQA S 2961 # FALSEPOSITIVE QAC warning about uninitialized
// Hello world
// This is just a comment for
// testing purpose
m_apricotController.getApricotList())
{
}
using NewFruitsBase::NewFruitsBase;';
my $regex = qr/(?<!#[^\n]*)\)(?!\))/mp;
my $subst = '}';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html