Perl에서 문자열 내의 하나 이상의 문자열을 바꾸는 방법

Question

$ args [0]은 한 번 이상 포함 된 문자열에 대한 참조입니다. 각 시간을 초 단위로 변경하고 있지만 변경된 시간을 원래 문자열에 저장 (바꾸기)하는 방법을 찾아야합니다. 어떤 도움을 주셔서 감사합니다. 대략 다음과 같이 작업하고 있습니다.

my $TIMEREGEX = qr/(\d{2}:\d{2}:\d{2}\.\d{3}|\d{2}:\d{2}:\d{2})/x; 
    if (my @sTime = ${$args[0]} =~ /$TIMEREGEX/g) 
    { 
     warn "\ttime(s) found @sTime\n" if $main::opt{d}; 
     for my $i (0..$#sTime) 
     { 
      $sTime[$i] =~ /(\d{2}):(\d{2}):(\d{2})(\.(\d{3}))?/; 
      my $epoch_time = ($1 * 3600) + ($2 * 60) + $3; 
      $epoch_time += $epoch_shift; 
      my @f; 
      $f[0] = $epoch_time % 86400/3600; # hours 
      $f[1] = $epoch_time % 3600/60; # minutes 
      $f[2] = $epoch_time % 60;   # seconds 
      my $save = $sTime[$i]; 
      $sTime[$i] = sprintf ("%02d:%02d:%02d", $f[0], $f[1], $f[2]); 
      $sTime[$i] .= $4 if defined ($4); 
      warn "\tTimeShift $save => $sTime[$i]\n" if $main::opt{d}; 
      ### some other stuff 
     } 

     # ${$args[0]} = "$1$t[0]$4$t[1]$7$t[2]$10"; 
     ### save the changes to ${$args[0]} ! 

    } 

Answer 1

substitution operator을 사용하십시오.

use 5.010; # or better for 'say' and '//' 
use strictures; 
use Time::Piece qw(); 

my @args; my $epoch_shift = 500; 
${$args[0]} = 'foo18:00:00.123bar18:00:00baz18:00:00quux'; 

${$args[0]} =~ 
    s{ 
     (\d{2}:\d{2}:\d{2}) # capture hh:mm:ss 
     (\.\d{3})?   # optionally capture 
          # decimal dot and milliseconds 
    } 
    { 
     (
      $epoch_shift 
      + Time::Piece->strptime($1, '%T') 
     )->strftime('%T').($2 // '') 
    }egx; 
say ${$args[0]}; 
# foo18:08:20.123bar18:08:20baz18:08:20quux