Comment puis-je supprimer une certaine ligne d'un fichier avec Perl?

Comment pourrais-je supprimer la ligne

[[ -f /var/tmp/Li.ksh ]] && /var/tmp/Li.ksh

à partir d'un fichier par une commande perl dans un script ksh?

J'ai essayé:

perl -i -pe "s/[[ -f /var/tmp/Li.ksh ]] && /var/tmp/Li.ksh//" /etc/tl.conf 

Mais j'ai eu:

Unmatched [ in regex; marked by <-- HERE in m/[ <-- HERE [ -f / at -e line 1.

[, ., Et /ont une signification particulière dans une expression régulière. Vous devez leur échapper:

perl -i -pe "s/\[\[\ -f\ \/var\/tmp\/Li\.ksh\ \]\]\ &&\ \/var\/tmp\/Li\.ksh//" 

EDIT: attention, cela ne supprimera pas la ligne mais simplement le texte que vous avez dans la regex. Si c'est le cas, il restera une ligne blanche.

Version plus lisible (utilisez des crochets pour définir l'expression rationnelle de manière à ne pas avoir à vous échapper /):

perl -i -pe "s{\[\[ -f /var/tmp/Li.ksh \]\] && /var/tmp/Li\.ksh}{}"

Mais, puisque vous vous interrogez sur un script shell, pourquoi utiliser Perl et non grep -v( --invert-match)?

grep -v '[[ -f /var/tmp/Li.ksh ]] && /var/tmp/Li.ksh' /etc/tl.conf

Fichier avant

$ cat t.txt
aaa
[[ -f /var/tmp/Li.ksh ]] && /var/tmp/Li.ksh
bbb

Commande (en utilisant \ Q pour ignorer le caractère spécial des caractères spéciaux dans l'expression régulière)

$ perl -i -lne 'print unless m{\Q[[ -f /var/tmp/Li.ksh ]] && /var/tmp/Li.ksh}' t.txt

Fichier après

$ cat t.txt
aaa
bbb

Remarque: le
changement -ià -i.baksi vous voulez perl faire une sauvegarde du fichier avant les modifications.

Vous pouvez également le faire de cette manière (en utilisant un simple test d’égalité de texte, sans regex).

$ perl -i -lne 'print unless $_ eq q([[ -f /var/tmp/Li.ksh ]] && /var/tmp/Li.ksh)' t.txt

Je pense avoir obtenu quelque chose qui fonctionnera pour vous. En gros, je lis dans le fichier actuel et édite une version "modifiée" du fichier moins la ligne correspondante (celle mentionnée dans la question). Cela semble fonctionner pour moi quand je le teste. S'il vous plaît s'il vous plaît ne pas essayer ceci jusqu'à ce que vous faites une sauvegarde au cas où il va mal.

voici le code, modifiez le nom du fichier en fonction de vos besoins, puis exécutez le script "devrait" fonctionner.

Ce n'est pas très joli mais ça marche.

#!/usr/bin/perl
use strict;
use warnings;

my $in_file = "sample.txt";
my $out_file = "control.txt";

open INFILE , "<", $in_file;
open OUTFILE,  ">", $out_file;

my @array;

while (<INFILE>) {

    push @array, $_;

}

foreach my $line (@array) {

    if ( $line =~ /(\"\[\[\s*\-f\s*\/var\/tmp\/Li\.ksh\s*\]\]\s*\&\&\s*\/var\/tmp\/Li.ksh\")/xm ) {

        print "I have ommited the following line $1\n";

    } else {

        print OUTFILE "$line";

    }

}

close INFILE;
close OUTFILE;