Re: How to split a document at a column

Something similar to this should work:

while (<>) {
  substr($_, 24, 0, ' ');
  print;
}
[download]

Or, from the command line:

$ perl -i~ -pe "substr($_, 24, 0, ' ')" your_file_name_here
[download]

See the Copyright notice on my home node.

Comment on Re: How to split a document at a column Select or Download Code

Replies are listed 'Best First'.
Re^2: How to split a document at a column by ikegami (Patriarch) on Mar 29, 2007 at 13:07 UTC
Two bugs: You'll die with an `substr outside of string` message if there are any blank or short lines. You'll add the space after the newline if line is one character less than the insert point. Fix: `while (<>) { chomp; substr($_, 24, 0, ' ') if length() > 24; print("$_\n"); }` [download] `perl -i~ -ple "substr($_, 24, 0, ' ') if length() > 24" file` [download] Tested.	[reply] [d/l] [select]