Comment remplacer une expression évaluée dans Perl?

Question

Il y a un fichier dummy.txt

Le contenu sont:

9/0/2010 
9/2/2010 
10/11/2010 

Je dois changer la partie mois (0,2,11) à +1, à savoir (1,3,12) J'ai écrit le regex de substitution comme suit

$line =~ s/\/(\d+)\//\/\1+1\//; 

Il est imprime

9/0+1/2010 
9/2+1/2010 
10/11+1/2010 

Comment le faire ajouter - 3 numériquement que d'effectuer une concat? ??

Answer 1

Trois changements:

• Vous devrez utiliser le modificateur e pour permettre une expression dans la pièce de rechange . Pour faire le remplacement global vous devez utiliser le modificateur g. C'est pas nécessaire si vous avez une date par ligne.
• Vous utilisez $1 du côté de remplacement, pas un backreference

Cela devrait fonctionner:

$line =~ s{/(\d+)/}{'/'.($1+1).'/'}eg; 

Aussi, si votre regex contient le délimiteur que vous utilisez (/ dans votre cas), il est mieux de choisir un délimiteur différent ({} ci-dessus), de cette façon vous n'avez pas besoin d'échapper le délimiteur dans l'expression régulière ce qui rend votre regex propre.

Answer 2

Que pensez-vous de cela?

$ cat date.txt 
9/0/2010 
9/2/2010 
10/11/2010 
$ perl chdate.pl 
9/1/2010 
9/3/2010 
10/12/2010 
$ cat chdate.pl 
use strict; 
use warnings; 

open my $fp, '<', "date.txt" or die $!; 

while (<$fp>) { 
    chomp; 
    my @arr = split (/\//, $_); 
    my $temp = $arr[1]+1; 
    print "$arr[0]/$temp/$arr[2]\n"; 
} 

close $fp; 
$ 

Answer 3

cela fonctionne: (e est d'évaluer la chaîne de remplacement: consultez la documentation perlrequick).

$line = '8/10/2010'; 
$line =~ s!/(\d+)/!('/'.($1+1).'/')!e; 

print $line; 

Il aide à utiliser ! ou un autre caractère comme séparateur si l'expression régulière a / lui-même.

---

Vous pouvez également utiliser, à partir de cette question dans Can Perl string interpolation perform any expression evaluation?

$line = '8/10/2010'; 
$line =~ s!/(\d+)/!("/@{[$1+1]}/")!e; 

print $line; 

mais si cela est une question de devoirs, être prêt à expliquer quand l'enseignant vous demande comment vous arrivez à cette solution.