将一个文件分成几个小文件

Question

我有一个代码，允许我处理一个文件，在该代码中，他查找以"false“开头的所有行，并将它们返回给我。

我希望每一行都用"false“存储在文件中，即。

#!/usr/bin/perl

use warnings;
use strict;
open(DATA, '<', 'DATA.csv');
my @a = <DATA>;
my @b = grep(/false/, @a);
chomp(@b);
for (my $i=0; $i <= $#b; $i++) {
    print $i + 1;
    print ". ";
    print split('false',"$b[$i]\n");
}

__________________DATA____________________________________

    2015.07.23  16:47:23
                  false,    false,       true,      false,    true,    false,
          defau,  ame_a,    ame_m,       ame_uc,     ame_f,    ams_l,  en_affi,
    true  DPA01,  fault,    fault,       fault,      fault,    fault,      1,
    false DPA02,  dfgeh,         ,            ,           ,    fault,      1,
    true  DPA03,  fault,    fault,         olt,      fault,    fault,      1,
    false DPA01,  fault,       at,       fault,          2,    fault,      1,
    false DPA02,  dfgeh,         ,            ,           ,    fault,      1,
    true  DPA03,  fault,    fault,         olt,      fault,    fault,      1,

___DPA02___________________

dfgeh



fault
1

___DPA01________________

fault
at
fault
2
fault
1

___DPA02_____________

dfgeh



fault
1

Answer 1

我觉得你想做的是：

1. 从CSV文件中读取一行。
2. 如果它以‘false’开头：
   1. 提取所有的列。
   2. 使用列2的内容作为名称打开文件。
   3. 将行中的其余项目写入该文件，每行一项。

​

你在那里的程序根本不会那么做。

我首先建议，如果您想安全地处理CSV文件，请使用CPAN中的文本：：CSV模块。如果这样做，这个过程就会变得简单得多：

use strict;
use warnings;

use Text::CSV;

my $csv = Text::CSV->new;
open my $csv_file, "<", "DATA.csv" or die "Can't open CSV file: $!\n";
while (my $row = $csv->getline($csv_file)) {
    # First item is significator plus filename.
    my($significator_and_file) = clean($row->[0]);
    my ($significator, $file) = split /\s+/, $significator_and_file;
    next unless $significator and $significator eq 'false';

    open my $per_line_fh, ">>", $file or die "Can't open per-line file $file: $!\n";

    # One item per line, plus final newline.
    shift @$row;
    print $per_line_fh join "\n", map { clean($_) } @$row;
    print $per_line_fh "\n";
    close $per_line_fh;
}

sub clean {
    my $string = shift;
    $string =~ s/^\s+//;
    $string =~ s/\s+$//;
    return $string;
}