Perl: Obtenir des lignes de fichier basé sur l'entrée d'utilisateur

Question

Possible en double:
How can I implement Unix grep in Perl?

Est-il que je peux quand même écrire un script Perl pour imprimer toutes les lignes dans un fichier qui contient la chaîne entrée par l'utilisateur?

Answer 1

Oh, compris comment le faire. Il s'est avéré être assez simple Mais comment le faire si je ne veux pas que la recherche soit sensible à la casse?

print "Name: "; 
my $string = <>; 

open FILE, "test.txt" or die $!; 

while(<FILE>) { 
    chomp; 
    print "$_\n" if(/$string*/); 
} 
close FILE; 

Answer 2

Vous ajoutez l'expression régulière modificateur "i"

print "Name: "; 
my $string = <>; 

open FILE, "test.txt" or die $!; 

while(<FILE>) { 
    chomp; 
    print "$_\n" if(/$string*/i); 
} 
close FILE; 

Answer 3

Une doublure:

perl -nE 'BEGIN{$pattern=shift};say if /$pattern/i' pattern filename(s) 

ou

perl -nE 'BEGIN{$pattern=shift};say "$ARGV $.: $_" if /$pattern/i' pattern filename(s) 

pour obtenir le fichier et le numéro de ligne aussi.

Answer 4

Votre tout corps de la boucle est un peu complexe. Cela fonctionne également.

while (<FILE>) { print if /$string/i } 

Il n'y a pas besoin de tronquer la nouvelle ligne, puis ajoutez-le dans

Answer 5

Il y a deux concepts distincts dans cette réponse:

1. fichier IO et itérer toutes les lignes dans un tout
2. expression régulière, et en passant en particulier une variable à une expression régulière.

Notez l'utilisation de quotemeta. Il est important que l'entrée de l'utilisateur contienne des caractères spécifiques à RE (qui peuvent même créer un RE illigel si vous ne le manipulez pas).

Voici le code:

print "Looking for: "; 
my $input = <>; 
chomp $input; 
my $re = quotemeta $input; 

open my $fh, "<", "myfile.txt" or die $!; 
while(<$fh>) { 
    print if /$re/; 
} 
close $fh;