извлечения данных из файла с помощью Perl

Question

Использование Perl в Shell скрипт, я пытаюсь извлечь слово «яблоко» из текстового файла под названием «Fruit.txt» (Файл имеет имя различных фруктов)

Для этого Я создал создал скрипт следующим образом:

#!/usr/bin/perl 
$t = 'cat Fruit.txt'; 

Как я могу теперь извлечь подстроку (в данном случае яблоко) из этого файла, используя Grep - о. Спасибо

Answer 1

надлежащим образом:

#!/usr/bin/perl 

use strict; use warnings; 

my $fic = './Fruit.txt'; 

open my $fh, "<", $fic 
    or die("An error hapenned opening file\n"); 

while (<$fh>) { 
    print if /Apple/i; 
} 

close $fic; 

Или:

#!/usr/bin/perl 

use strict; use warnings; 

while (<>) { 
    print if /Apple/i; 
} 

Использование:

./script.pl Fruits.txt 

Или краткий путь:

perl -ne 'print if /whatever/' file 

Плохой путь (не портативный), что кажется вам попробовать:

my $file = qx(cat Fruits.txt); 

или

my $file = `cat Fruits.txt`; 
      ~    ~ 

Примечание кавычку

Answer 2

# Rather than rely on the external program cat 
# you can "slurp" the contents of Fruits.txt into $t. 

open my $fh, "<", "Fruits.txt"; 
my $t = do { local $/; <$fh> }; 
close $fh;  


# The following is true if 'apple' appears anywhere in $t 
# (it will also match 'apples', 'grappled', etc...) 

if($t =~ /apple/){ 
    print "There is an apple!\n"; 
} 

# If Fruits.txt is more structured, you can also do things like:  

print "There is a $1!\n" if $t =~ /^fruit=(.+)/; 

Я рекомендую читать из perlrequick для получения дополнительной информации о регулярных выражениях.

Answer 3

Perl командной строки "ультра ленивым" трюк:

perl -e 'while(<>){print "\n$_\n" if $_ =~ /whatever/}' <FILE_PATH> 

: V