http://www.perlmonks.org?node_id=982456


in reply to Group every 50 rows

Very similar to a problem posted a few days ago.

perl -ne 'print if $. <= 50' test.txt > first_50.txt 
perl -ne 'print if $. > 50 && $. <= 100' test.txt > 51_to_100.txt
perl -ne 'print if $. > 100 && $. <= 150' test.txt > 101_to_150.txt 
perl -ne 'print if $. > 150 && $. <= 200' test.txt > mylittlepony.txt

[download]

In Section Seekers of Perl Wisdom