Добавить заголовки в виде текстового файла в Perl

Question

У меня есть текстовый файл, содержащий следующие строки, как, например

This is line 
This is line with test 
This is ine with 2test 
This is line 2 
This is line 3 
This is line with 3test 
This is line 4 
This is line with 4test 

Теперь я хочу код, чтобы изменить текстовый файл следующим образом:

Lines with test 
This is line with test 
This is ine with 2test 
This is line with 3test 
This is line with 4test 

Lines without test 
This is line 
This is line 2 
This is line 3 
This is line 4 

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

#!/usr/bin/perl 
use strict; 
use warnings; 
open(FH, '<filetest.txt'); 
my @queues = <FH>; 
close(FH); 
open(OFH,'>testfile.txt'); 
my $name; 
foreach $name(@queues) 
{ 
if($name =~ 'test') 
{ 
print OFH "Lines with test\n"; 
print OFH $1; 
} 
else{ 
print OFH "Lines without test\n"; 
print OFH $1; 
} 
close(OFH); 
} 

Примечание: я исправил ошибку, чтобы удалить синтаксические ошибки, но до сих пор нет ничего записываются в файл testfile.txt

Answer 1

У попробовать с:

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

my $infile = 'filetest.txt'; 
my $outfile = 'testfile.txt'; 

# use 3-arg open and if open succeeded 
open my $fh_in, '<', $infile or die "Unable to open file '$infile' for reading: $!"; 

my @with_test; 
my @without_test; 
while (<$fh_in>) { 
    if (/test/) { 
     push @with_test, $_; 
    } else { 
     push @without_test, $_; 
    } 
} 
close $fh_in; 

open my $fh_out, '>', $outfile or die "Unable to open file '$outile' for writting: $!"; 
print $fh_out "Lines with test\n"; 
print $fh_out @with_test; 
print $fh_out "Lines without test\n"; 
print $fh_out @without_test; 

close $fh_out; 

Answer 2

Я не проверял это. Идея заключается в том, чтобы написать «с помощью теста» строки в файл сразу «без теста» линия не сохраняется (в массиве с именем «без») до конца программы, а затем написала

#!/usr/bin/perl 
use strict; 
use warnings; 
open(FH, '<filetest.txt'); 
my @queues = <FH>; 
close(FH); 
open(OFH,'>testfile.txt'); 
my $name; 
my @without=(); 
foreach $name(@queues) 
{ 
if($name =~ 'test') 
{ 
    print OFH $name; 
} 
else{ 
    push @without, $name; 
} 
print OFH "\n\nlines without\n"; 
print OFH @without; 

} 

Answer 3

также вы должны добавить local $/ перед чтением дескриптора файла. проверить это: how to read the whole file. Формат матча должен быть таким: if($somestr =~ /#/). , и вы не должны закрывать дескриптор файла в цикле.

#!/usr/bin/perl 

use strict; 
use warnings; 
local $/; 
open(FH, 'file#.txt'); 
my $s; 
$s = <FH>; 
close(FH); 
open(FH, '>file#.txt'); 
my @queues = split(/\n/, $s); 
my @arr; 
my @arr2; 
for($s=0; $s<$#queues+1; $s++) 
{ 

    if($queues[$s] =~ /#/) 
    { 
     push(@arr, $queues[$s]."\n"); 
    } 
    else 
    { 
     push(@arr2, $queues[$s]."\n"); 
    } 
} 
print FH "lines with #\n"; 
print FH @arr; 
print FH "lines without #\n"; 
print FH @arr2;