Привет MoscowPM!
Есть код:
#!/usr/bin/perl -w
use strict;
use warnings;
use 5.010;
my $comment_pred = 'COUNTRY_SU';
for my $coutry (qw/SU USA GB RU/) {
my $comment = $comment_pred =~ s/(COUNTRY_)SU/$1${coutry}/rg;
say $comment;
}
use strict;
use warnings;
use 5.010;
my $comment_pred = 'COUNTRY_SU';
for my $coutry (qw/SU USA GB RU/) {
my $comment = $comment_pred =~ s/(COUNTRY_)SU/$1${coutry}/rg;
say $comment;
}
после
perltidy -b test_perltidy.pl
my $comment = $comment_pred =~ s/(COUNTRY_)SU/$1${coutry}/ rg;
r отлетает
это можно как-нибудь починить?
Спасибо.
--
С уважением
Николай Мишин
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
