用于通过将字符匹配为多个文件来拆分单个文件的perl代码

Question

我想把一个大的数据文件分成多个文件，只要它与“^”字符匹配。

#!/usr/bin/perl -w  
use strict;  
print "enter the data file name";  
chomp( my $a=<STDIN> );  
open (<READ>,"$a")| "error";  
while ($line=<READ>)  
 {  
  my @array=split("        ",$line) unless ^ ;  

在拆分数据文件之后。共创建23个文件

Answer 1

以下是与saiprathapreddy.obula的答案略有不同的答案：

use warnings;
use strict;

my ($file) = @ARGV;

open(my $input, "<$file");

local $/ = "^";

my $i = 0;

while(<>){
    chomp;

    $i++;

    open(my $output, ">file$i.txt");
    print $output "$_"; 
}

Answer 2

use strict;

open(FILE,'AUTOSAR.txt');
local $/;
my $var = <FILE>;
my @arr = split('\^',$var);
my $i=0;

foreach (@arr) {
    $i++;
    open(FILE1,">$i.txt");
    print FILE1 $_;
    close FILE1;
}

close FILE;

Answer 3

$,="";
$"="";
my $i=1;
open OUT ,">DATA_${i}.txt";
while(<>){
    chomp;
    my @F=split(/\^/);
    if(@F==1){
            print OUT $_,"\n";
    }
    elsif(@F>1){
            $i++;
            close OUT;
            open OUT ,">DATA_${i}.txt";
            print OUT "@F[1..$#F] \n";
    }
}
close OUT;