in reply to Re^3: Splitting a Blocked file in Round Robin into smaller files
in thread Splitting a Blocked file in Round Robin into smaller files

Hello BrowserUK,

The above code works like a champ The 4 output files are named filename.1 filename.2 filename.3 filename.4

Lets say filename= DummyFile.txt

4 output files:DummyFile.txt.1,DummyFile.txt.2,DummyFile.txt.3,DummyFile.txt.4

I am trying to get the file names as below

4 output files:DummyFile1.txt,DummyFile2.txt,DummyFile3.txt,DummyFile4.txt

The number comes before the delimiter "."

Any help will be much appreciated
  • Comment on Re^4: Splitting a Blocked file in Round Robin into smaller files

Replies are listed 'Best First'.
Re^5: Splitting a Blocked file in Round Robin into smaller files
by BrowserUk (Patriarch) on Mar 09, 2016 at 15:12 UTC

    This assumes that the input filename contains at least one dot. The number will precede the last dot in the input:

    #! perl -sw
use strict;

my $file = $ARGV[0];
my( $prefix, $suffix ) = ( $file =~ m[^(.+)\.([^.]+)] );

open I, '<', $file or die $!;

my @outs;
open $outs[ $_ ], '>', "$prefix.${_}.$suffix" or die $! for 1 .. 4;

my $out = 0;

while( <I> ) {
    print { $outs[ $out+1 ] } $_;
    if( /^5/ ) {
         ++$out;
         $out %= 4;
    }
}

    [download]
    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
      Thank you so much BrowserUk, It worked perfect.
[reply]

In Section Seekers of Perl Wisdom