Perl: как разбить файл?

Question

Мне нужно разбить файл на разные.

Exmaple (исходный файл):

*****3123123*****RAW 
text1 
text2 
*****2312354***RAW 
text3 

Желаемый результат:

[FILE1.TXT]

*****3123123*****RAW  
text1 
text2 

[file2.txt]

*****312312354***RAW 
text3 

Я попытался использовать split, но я всегда получаю так мне лишние белые символы в массив

open FILE, "<file"; 
@file= <FILE>; 
close FILE; 
@lines = split (/(RAW\n)/, "@file"); 
foreach $value (@lines) { 
    if ($value =~ /[a-z]|[A-Z]|[1-9]/) { 
    print ("$value\n"); 
    } 
} 

Выход:

*****3123123*****RAW 

text1 
text2 

*****312312354***RAW 

text3 

Edit: если я использую печать ("$ значение") вместо печати ("значение $ \ п") это выход (обратите внимание на 1 дополнительное пространство перед значением:

*****3123123*****RAW 
text1 
text2 

*****12354***RAW 
text3 

Answer 1

Эта программа тянет десятичное число от RAW линии и использует ее, чтобы назвать выходные файлы. Он ожидает имя входного файла в качестве параметра в командной строке.

use strict; 
use warnings; 

@ARGV or die "Input file required as command-line parameter\n"; 

my $out; 

while (<>) { 
    if (/(\d+)\*+RAW$/) { 
    open $out, '>', "$1.out" or die $!; 
    select $out; 
    } 
    print $_ if $out; 
} 

Answer 2

Вы могли бы сделать лучше с линии мудр IO:

my $id = 0; 
my $FILE = undef; 

while (<>) { 
    if (/RAW/) { 
     close $FILE if defined $FILE; 
     $id++; 
     my $path = "File$id.txt"; 
     open $FILE, '>', $path or die "Could not open $path: $!"; 
    } 
    print $FILE $_ if defined $FILE; 
} 
close $FILE if defined $FILE; 

Скопирован и адаптирован к одному из моих сценариев, который разбивает файл почтового ящика на один файл на почту. Вам придется адаптировать сценарий, если первая строка не соответствует /RAW/

Answer 3

Вот что я придумал. Я не могу не чувствовать, что это изобретает колесо.

#!usr/bin/perl 
my $fi, $fi2; 
my $line; 
my $i; 
my @lines; 
my @filenameparts; 
my $filename = "file_1.txt"; 

open($fi, "< original.txt"); 
@lines = <$fi>; 
open ($fi2, " > $filename"); 

foreach (@lines) 
{ 
if (($i > 0) and $_ =~ /RAW/) 
{ 
    @filenameparts = split("_", $filename); 
    foreach (@filenameparts) 
    { 
     print "Woooo".$_; 
    } 
    @filenameparts[1] = substr(@filenameparts[1], 0, @filenameparts[1].length() - 5); 
    @filenameparts[1] = ($filenameparts[1] + 1); 
    $filename = @filenameparts[0]."_".@filenameparts[1].".txt"; 
    print $filename; 
    close($fi2); 
    open ($fi2, " > $filename"); 
    $i = 0; 
    print $fi2 $_; 

} 
else 
{ 
    print $fi2 $_; 
} 
$i++; 

} 

Answer 4

use strictures; 
use File::Slurp qw(read_file write_file); 
my $raw = read_file('raw.txt', binmode => ':raw'); 
my $header = qr/^ (?= [*]+ [0-9]+ [*]+ RAW\n)/msx; 
my @chunks = split $header, $raw; 
# (
#  "*****3123123*****RAW\ntext1\ntext2\n", 
#  "*****2312354***RAW\ntext3" 
#) 
for my $i (1..@chunks) { 
    write_file("File$i.txt", {binmode => ':raw'}, $chunks[$i-1]); 
} 

Answer 5

Если вы хотите остаться с кодом вы сделали, то просто просто заменить строку print ("$value\n"); с print ("$value"); и вы его получили ...

Или перед тем print удалить \n с chomp($value); и пребывание с выходом print ("$value\n");.