Как я могу grep и сортировать текстовые файлы с помощью Perl?

Question

У меня есть простой файл журнала, который очень грязный, и мне нужно, чтобы он был аккуратным. Файл содержит заголовки журналов, но все они смешаны вместе. Поэтому мне нужно отсортировать файлы журнала в соответствии с заголовками журналов. Нет статического числа строк - это означает, что нет фиксированного количества строк для каждого заголовка текстового файла. И я использую perl grep для сортировки заголовков.

Файлы журнала выходит что-то вроде этого:

Car LogFile Header 
<text> 
<text> 
<text> 
Car LogFile Header 
<text> 
Car LogFile Header 
<and so forth> 

Я застегнуты/искал простой алгоритм, но не кажется, что это будет работать. Может ли кто-нибудь направить меня? Благодаря!

#!/usr/bin/perl 

#use 5.010; # must be present to import the new 5.10 functions, notice 
#that it is 5.010 not 5.10 


my $srce = "./root/Desktop/logs/Default.log"; 
my $string1 = "Car LogFile Header"; 
open(FH, $srce); 
my @buf = <FH>; 
close(FH); 
my @lines = grep (/$string1/, @buffer); 

После выполнения кода на терминале нет результата. Есть идеи?

Answer 1

Я думаю, что вы хотите что-то вроде:

my $srce = "./root/Desktop/logs/Default.log"; 
my $string1 = "Car LogFile Header"; 

open my $fh, '<', $srce or die "Could not open $srce: $!"; 

my @lines = sort grep /\Q$string1/, <$fh>; 
print @lines; 

Убедитесь, что у вас есть правильный путь к файлу, и файл имеет линии, соответствующие вашей тестовой схеме.

Кажется, что вам не хватает очень простых понятий и, возможно, вырезать и вставлять код, который вы видите в другом месте. Если вы только начинаете, возьмите учебник Perl, такой как Learning Perl. Существуют другие книги и ссылки, перечисленные в perlfaq2.

Answer 2

Perl grep не такой же, как Unix grep, поскольку он ничего не печатает на экране.

Общий синтаксис: grep Expr, LIST

Оценивает Expr для каждого элемента LIST и возвращает список, состоящий из тех элементов, для которых выражение оценивали с true.

В вашем случае будут возвращены все элементы @buffer, у которых есть долина $string1.

Затем вы можете распечатать массив @buffer, чтобы увидеть их на самом деле.

Answer 3

Вы только что сохранили все в массиве, а не распечатываете его. Также не обязательно хранить весь файл в памяти. Вы можете прочитать и распечатать строку результатов матчей по линии, как это:

my $srce = "./root/Desktop/logs/Default.log"; 
my $string1 = "Car LogFile Header"; 
open(FH, $srce); 
while(my $line = <FH>) { 
    if($line =~ m/$string1/) { 
    print $line; 
    } 
} 
close FH; 

Answer 4

Всегда используйте:

use strict; 
use warnings; 

Это сказал бы вам, что @buffer не определен.

#!/usr/bin/perl 

use strict; 
use warnings; 

my $srce = "./root/Desktop/logs/Default.log"; 
my $string1 = "Car LogFile Header"; 
open(my $FH, $srce) or die "Failed to open file $srce ($!)"; 
my @buf = <$FH>; 
close($FH); 
my @lines = grep (/$string1/, @buf); 
print @lines; 

Perl является сложным для специалистов, поэтому специалисты используют предупреждения он обеспечивает, чтобы защитить их от ошибок. Начинающие должны использовать предупреждения, чтобы они не совершали ошибок, которые они даже не знают, что они могут сделать.

(Потому что вы не получили шанс chomp входные линии, у вас еще есть новые строки в конце так в print гравюр заголовки одному в каждой строке.)

Answer 5

Я не думаю, что grep - это то, что вы действительно хотите. Как вы указали в ответе Брайана, grep даст вам только заголовки, а не последующие строки.

Мне кажется, вам нужен массив, где каждый элемент является заголовком и последующими строками до следующего заголовка.

Что-то вроде: -

#!/usr/bin/perl 

use strict; 
use warnings; 

my $srce = "./default.log"; 
my $string1 = "Car LogFile Header"; 
my @logs; 
my $log_entry; 
open(my $FH, $srce) or die "Failed to open file $srce ($!)"; 

my $found = 0; 
while(my $buf = <$FH>) 
{ 
    if($buf =~ /$string1/) 
    { 
     if($found) 
     { 
      push @logs, $log_entry; 
     } 

     $found = 1; 
     $log_entry = $buf; 
    } 
    else 
    { 
     $log_entry = $log_entry . $buf; 
    } 
} 

if($found) 
{ 
    push @logs, $log_entry; 
} 

close($FH); 

print sort @logs; 

я думаю, что это то, что в настоящее время просят.

Answer 6

Здравствуйте, я нашел способ извлечь ссылки из HTML-файла

!/USR/бен/Perl -w

2 
    3 # Links graber 1.0 
    2 
    3 # Links graber 1.0 
    4 #Author : peacengell 
    5 #28.02.13 
    6 
    7 #### 
    8 
    9 my $file_links = "links.txt"; 
10 my @line; 
11 my $line; 
12 
13 
14 open(FILE, $file_links) or die "Can't find File"; 
15 
16 while (<FILE>) { 
17 chomp; 
18 $line = $_ ; 
19 
20 @word = split (/\s+/, $line); 
21 @word = grep(/href/, @word); 
22 foreach $x (@word) { 
23 
24 if ($x =~ m /ul.to/){ 
25 $x=~ s/href="//g; 
26 $x=~s/"//g; 
27 print "$x \n"; 
28 
29       
30       } 
31     
32     } 
33   
34   } 

вы можете использовать его и изменить его, пожалуйста, дайте мне знать, если вы измените его ,