Nettoyage Code Perl: my $ export = $ doc; $ export = ~ s: \. odt: \. pdf :;

Question

Perl fragment de code:

my $export = $doc; 
$export =~ s:\.odt:\.pdf:; 

Comment cela serait-il écrit plus propre? Non seulement ce sont 900 autres façons de l'écrire, TMTOWTDI.

Answer 1

 

my ($export = $doc) =~ s{\.odt}{\.pdf}; 

MISE À JOUR: Cette solution ne compile pas (note pour plus tard: test avant l'affichage sur le SO). Au lieu de cela, vous pouvez dire

(my $export = $doc) =~ s{\.odt}{\.pdf}; 

Answer 2

Je vais pour [.] pour correspondre à une période littérale:

$export ~= s{[.]odt$}{.pdf}; 

Notez que seule la première moitié de l'appel s/// est une expression régulière. Le remplacement est une chaîne normale et ne nécessite pas de période d'échappement.

Vous pouvez représenter les fichiers en tant qu'objets et non en tant que chaînes avec Path::Class.

Answer 3

mon% ext = ('odt' => 'pdf', etc ...); (mon $ export = $ doc) = ~ s {. ([^.] +) $} {'.'. ($ Ext {$ 1} || $ 1})} par exemple;