Сортировка цифр каждой точки -разделенного числа:
$ echo '324.98.120928' | perl -ne 'chomp;for $n (split /\./) { push @s,join("",sort(split //, $n))};print join(".",@s),"\n"'
234.89.012289
Сценарий Perl:
chomp;
for $n ( split /\./ ) {
push @s, join( "", sort( split //, $n ) );
}
print join( ".", @s ), "\n";
Это разделит заданную строку на отдельные числа (в $n
), а затем разделит каждое число на отдельные цифры(split //, $n
). Затем эти цифры сортируются и снова объединяются в числа перед тем, как они будут помещены в массив @s
.
В конце массив @s
печатается с точками между числами.