Recherche et remplacement multiligne avec Perl

Question

Je sais que ce genre de questions a déjà été posé de nombreuses fois auparavant. La raison pour laquelle je reviens ici est que j'ai l'impression d'avoir manqué quelque chose de simple et de fondamental.

Est-il possible d'améliorer ce type de routine de recherche et de remplacement ? Par exemple, sans ouvrir deux fois le même fichier. Les conseils en matière de vitesse sont également les bienvenus.

Veuillez noter que cela fonctionne avec les correspondances multilignes et remplace également les chaînes multilignes.

#!/bin/perl -w -0777

local $/ = undef;

open INFILE, $full_file_path or die "Could not open file. $!";
$string =  <INFILE>;
close INFILE;

$string =~ s/START.*STOP/$replace_string/sm;

open OUTFILE, ">", $full_file_path or die "Could not open file. $!";
print OUTFILE ($string);
close OUTFILE;

Answer 1

Ce type de recherche et de remplacement peut être réalisé avec une ligne unique telle que -.

perl -i -pe 's/START.*STOP/replace_string/g' file_to_change

Pour d'autres façons d'accomplir la même chose, consultez cette page. filetage . Pour gérer les recherches multi-lignes, utilisez la commande suivante -

perl -i -pe 'BEGIN{undef $/;} s/START.*STOP/replace_string/smg' file_to_change

Afin de convertir le code suivant d'un one-liner en un programme perl, jetez un coup d'œil à l'interface suivante documentation de perlrun .

Si vous ressentez vraiment le besoin de convertir ceci en un programme fonctionnel, laissez Perl gérer l'ouverture/la fermeture des fichiers pour vous.

#!/usr/bin/perl -pi
#multi-line in place substitute - subs.pl
use strict;
use warnings;

BEGIN {undef $/;}

s/START.*STOP/replace_string/smg;

Vous pouvez alors appeler le script avec le nom du fichier comme premier argument

$perl subs.pl file_to_change

Si vous voulez un script plus consistant où vous devez gérer les opérations d'ouverture/fermeture de fichiers (n'aimons nous pas toutes ces déclarations 'die') alors jetez un coup d'oeil à l'exemple dans perlrun avec le commutateur -i[extension].

Answer 2

J'ai extrait la réponse courte des commentaires, pour tous ceux qui cherchent une réponse rapide, et la raison pour laquelle Perl ignore les options RegEx de la ligne de commande.

perl -0pe 's/search/replace/gms' file

Sans le -0 Perl traite les données ligne par ligne ce qui fait échouer les recherches multilignes.

Answer 3

En considérant que tu engloutis tout le contenu du dossier avec :

local $/ = undef;

open INFILE, $full_file_path or die "Could not open file. $!";
$string =  <INFILE>;
close INFILE;

Et ensuite faire tout le traitement avec $string il n'y a pas de lien entre la façon dont vous manipulez le fichier et la façon dont vous traitez son contenu. Vous auriez un problème si vous ouvriez le fichier pour l'écrire avant d'avoir fini de le lire, car l'ouverture d'un fichier pour l'écrire crée un nouveau fichier, en supprimant le contenu précédent.

Si tout ce que vous essayez de faire est d'économiser sur les déclarations d'ouverture/fermeture, alors faites comme suit Jonathan Leffer a suggéré . Si votre question porte sur la recherche et le remplacement multilignes, veuillez préciser quel est le problème.

Answer 4

Si vous allez slurp le dossier, je recommande Fichier::Slurp .

#!/usr/bin/perl

use strict;
use warnings;

my $file_contents = read_file $full_file_path;

# As far as I can see, you do not use the m switch
$file_contents =~ s/START.*STOP/$replace_string/s;

write_file $full_file_path, $file_contents;

__END__

read_file y write_file sera croak quand quelque chose va mal.

Answer 5

Vous pourriez vouloir vérifier mon Perl script, qui est testé à la bataille (utilisé fortement en production), et a beaucoup de fonctionnalités, telles que :

• effectuer des opérations multiples de recherche-remplacement ou de requête-recherche-remplacement
• les expressions de recherche et de remplacement peuvent être données sur la ligne de commande ou lues à partir d'un fichier traite plusieurs fichiers d'entrée
• descendre récursivement dans le répertoire et effectuer de multiples opérations de recherche/remplacement sur tous les fichiers
• les expressions perl définies par l'utilisateur sont appliquées à chaque ligne de chaque fichier d'entrée exécution facultative en mode paragraphe (pour la recherche/remplacement de plusieurs lignes)
• mode interactif
• mode batch
• éventuellement, les fichiers de sauvegarde et la numérotation des sauvegardes
• préserver les modes/propriétaire lorsqu'il est exécuté en tant que Root
• ignore les liens symboliques, les fichiers vides, les fichiers protégés en écriture, les sockets, les pipes nommés, et les noms de répertoire
• remplacer optionnellement les lignes ne correspondant que / ne correspondant pas à une expression régulière donnée

https://github.com/tilo/replace_string