08/05/24 03:49:34
>>468
Perlのバージョンは?
試したらできたよ。
my @f = split /(?=5)/, $str;
print join(':', @f), "\n";
08/05/24 03:49:34
>>468
Perlのバージョンは?
試したらできたよ。
my @f = split /(?=5)/, $str;
print join(':', @f), "\n";
08/05/24 03:49:34
>>468
Perlのバージョンは?
試したらできたよ。
my @f = split /(?=5)/, $str;
print join(':', @f), "\n";