История изменений

Исправление vel, 18.06.23 18:53 (текущая версия) :

Вариант на вымирающем языке

#!/usr/bin/env perl
my $i='211(1,2,5,8),212(9,14,36)';

sub r {
  my $a = shift;
  return join(' ',map{$a.$_.',';} split /,/,$_[0]).' ';
}
$i =~ s/,?(\d+)\((.*?)\)/r($1.'_',$2)/ge;
print $i;

Исправление vel, 18.06.23 18:52:

Вариант на вымирающем языке

#!/usr/bin/env perl
my $i='211(1,2,5,8),212(9,14,36)';

sub r {
  my $a = shift;
  return join(' ',map{$a.$_.',';} split /,/,$_[0]).' ';
}
$i =~ s/,?(\d+)\((.*?)\)/r($1.'_',$2)/ge;
print $i;

Исходная версия vel, 18.06.23 18:52:

Вариант на вымирающем языке

my $i='211(1,2,5,8),212(9,14,36)';

sub r {
  my $a = shift;
  return join(' ',map{$a.$_.',';} split /,/,$_[0]).' ';
}
$i =~ s/,?(\d+)\((.*?)\)/r($1.'_',$2)/ge;
print $i;