Re^2: Split file using perl and regexp

[brad_nov]

in reply to Re: Split file using perl and regexp
in thread Split file using perl and regexp

I mean I was able to split the file based on the solution given by Kenosis. It's an extension to yesterday's problem. Sorry if I was not clear. Thanks.

[davido]

If it's an extension of yesterday's problem, post the code that you're currently using so that we can help in extending it.

Otherwise it just looks like you're making zero progress on your own, and hoping someone will do free work for you.

[brad_nov]

I am currently using the script like this

$split_file=$ARGV[0];

$split_file=~ s{.*/}{}; 

$split_file=~ s{\.[^.]+$}{};

print "split_file=$split_file\n";

while (<>) {
    if ( my ($m_id) = /^\d+\|(\d+?)\|/ ) {
        open my $fh, '>>', "${split_file}_" . $m_id . '.txt';
        print $fh $_;
    }
}

I am trying to create a script for each scenario and pass it as variable.

[Kenosis]

By using data placeholders, viz., ~somedata~some data~~~~~~~~~~~~some data~~~~~, you may be omitting information that would assist in crafting a solution to accomplish your end--assuming you're not redacting information.

Consider showing samples of the actual data, provided it's suitible for public consumption, as this will likely be more beneficial.

[brad_nov]

Currently I am using the below script to split into multiple files:

$split_file=$ARGV[0];

$split_file=~ s{.*/}{}; 

$split_file=~ s{\.[^.]+$}{};

print "split_file=$split_file\n";

while (<>) {
    if ( my ($m_id) = /^\d+\|(\d+?)\|/ ) {
        open my $fh, '>>', "${split_file}_" . $m_id . '.txt';
        print $fh $_;
    }
}