¿Cómo puedo encapsular una cadena en Perl?

Question

Estoy tratando de crear un sistema de envoltura de palabras sueltas a través de una expresión regular en Perl. Lo que me gustaría es aproximadamente cada 70 caracteres para verificar el próximo espacio en blanco y reemplazar ese espacio con una línea nueva, y luego hacer esto para toda la cadena. La cadena en la que estoy trabajando ya puede tener líneas nuevas, pero la cantidad de texto entre líneas nuevas suele ser muy larga.

Me gustaría evitar el bucle de un carácter a la vez o usar substr si puedo, y preferiría editar esta cadena en lugar de crear nuevos objetos de cadena. Estas son sólo preferencias, sin embargo, y si no puedo lograr lo que estoy buscando sin romper estas preferencias, está bien.

¿Pensamientos?

Answer 1

s/(.{70}[^\s]*)\s+/$1\n/ 

Consumir los primeros 70 caracteres, luego detenerse en el siguiente espacio en blanco, capturando todo en el proceso. Luego, emita la cadena capturada, omitiendo el espacio en blanco al final, agregando una nueva línea.

Esto no garantiza que sus líneas se corten estrictamente a 80 caracteres o algo así. No hay garantía de que la última palabra que consume no tendrá mil millones de caracteres.

Answer 2

Mire módulos como Text::Wrap o Text::Autoformat.

Dependiendo de sus necesidades, incluso el pliegue de la utilidad del núcleo GNU (1) puede ser una opción.

Answer 3

La respuesta de Welbog se ajusta al primer espacio después de 70 caracteres. Esto tiene el defecto de que las palabras largas que comienzan cerca del final de la línea forman una línea demasiado larga. Yo sugeriría que en vez de envolver en el último espacio dentro de los primeros, por ejemplo, 81 caracteres, o envolviendo en el primer espacio si tiene un carácter "palabra"> 80, de manera que sólo las líneas realmente irrompibles son demasiado largo:

s/(.{1,79}\S|\S+)\s+/$1\n/g; 

en perl moderna:

s/(?:.{1,79}\S|\S+)\K\s+/\n/g; 

Answer 4

Usted puede conseguir mucho, mucho más control y fiabilidad mediante el uso de Text::Format

use Text::Format; 
print Text::Format->new({columns => 70})->format($text); 

Answer 5

Esta es la que he utilizado siempre.

A diferencia de la solución aceptada, se ajustará ANTES de la longitud del wrap-length (en este caso, 75 caracteres), a menos que haya una cadena realmente larga (como una URL), en cuyo caso simplemente colocará esa cadena en su propia línea, en lugar de romperla.

s/(?=.{70,})(.{0,70}\n?)()/\1\2\n /g 

Esta segunda forma se encarga de todos los finales de línea: Mac \ r, Unix \ n, Windows \ r \ n, y teletipo \ n \ r, pero que uno se utiliza como un sustituto todavía depende de lo que se pone en la cláusula de reemplazo: he usado \ n.

s/(?=.{70,})(.{0,70}(?:\r\n?|\n\r?)?)()/\1\2\n /g 

Ambas versiones también sangría a todas las líneas ajustadas después de la primera por un espacio: eliminar el espacio antes de la última/g si no quiere eso, pero por lo general les resulta más agradable.