Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: splitting up a long text at regular intervals

by GrandFather (Saint)
on Oct 30, 2005 at 23:58 UTC ( #504085=note: print w/replies, xml ) Need Help??


in reply to splitting up a long text at regular intervals

Something like this?

use warnings; use strict; my $linesSinceBreak = 0; while (<DATA>) { chomp; $linesSinceBreak = 0, print "\n<<BreakHere\n" if ++$linesSinceBreak +>= 15 && ! length $_; print "$_\n"; }
__DATA__ I have the text of a play which I was to put into a presentation. So I need to split it up every 15 lines or so. I had already stated to do this in vim by recording a macro where I would insert some special text say xx (which I can then parse upon) after I'd moved down around 15 lines. Can this be done in perl (more automatically I guess)? Also does it complicate things to not want to introduce the parsing marker when the 15 line account occurs in the middle of a paragraph? Sorry for not having a good grasp of the parsing lingo here, but hopefully you get what I want to do. I have the text of a play which I was to put into a presentation. So I need to split it up every 15 lines or so. I had already stated to do this in vim by recording a macro where I would insert some special text say xx (which I can then parse upon) after I'd moved down around 15 lines. Can this be done in perl (more automatically I guess)? Also does it complicate things to not want to introduce the parsing marker when the 15 line account occurs in the middle of a paragraph? Sorry for not having a good grasp of the parsing lingo here, but hopefully you get what I want to do.

Prints:

I have the text of a play which I was to put into a presentation. So I need to split it up every 15 lines or so. I had already stated to do this in vim by recording a macro where I would insert some special text say xx (which I can then parse upon) after I'd moved down around 15 lines. Can this be done in perl (more automatically I guess)? Also does it complicate things to not want to introduce the parsing marker when the 15 line account occurs in the middle of a paragraph? <<BreakHere Sorry for not having a good grasp of the parsing lingo here, but hopefully you get what I want to do. I have the text of a play which I was to put into a presentation. So I need to split it up every 15 lines or so. I had already stated to do this in vim by recording a macro where I would insert some special text say xx (which I can then parse upon) after I'd moved down around 15 lines. Can this be done in perl (more automatically I guess)? Also does it complicate things to not want to introduce the parsing marker when the 15 line account occurs in the middle of a paragraph? <<BreakHere Sorry for not having a good grasp of the parsing lingo here, but hopefully you get what I want to do.

Perl is Huffman encoded by design.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://504085]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2023-02-07 02:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (38 votes). Check out past polls.

    Notices?