¿Cuál es la forma más sencilla de devolver la primera línea de una cadena multilínea en Perl?

Question

Cuando digo simple, quiero decir, dentro de una expresión, para que pueda incluirlo como un valor en un hash sin prepararlo primero. Publicaré mi solución pero estoy buscando una mejor que me recuerde menos a VB. :)

Answer 1

¿Qué tal

(split /\n/, $s)[0] 

?

No tiene que preocuparse por \ n no ser multiplataforma porque Perl is clever enough to take care of that.

Answer 2

substr($s, 0, index($s, $/) > -1 ? index($s, $/) ||()) 

Answer 3

Esto no es tan simple como te gusta, pero ser simple solo para ser bajo no siempre debe ser el objetivo.

Puede abrir un gestor de archivo en una cadena (como referencia escalar) y tratarlo como un archivo para leer la primera línea:

 
my $string = "Fred\nWilma\Betty\n"; 
open my($fh), "<", \$string or die ...; # reading from the data in $string 
my $first_line = <$fh>; # gives "Fred" 
close $fh; 

Si realmente quería, supongo que se podría reducir esto a una expresión:

$hash{$key} = do { open my($fh), "<", \$string; scalar <$fh> }; 

No importa el método que elija, siempre se puede hacer una subrutina para devolver la primera línea y luego utilizar la llamada de subrutina en su asignación de hash.

 
sub gimme_first_line { ... } 

$hash{$key } = gimme_first_line(\$string); 

Answer 4

($str =~ /\A(.*?)$/ms)[0]; 

Para las grandes cadenas, esto va a ser más rápido que

(split /\n/, $str)[0] 

según lo sugerido por Manni. [Editar: mención errónea eliminado de split /\n/, $str, 1.]

Si desea incluir el terminal de \n si está presente, agregue \n? justo antes de los paréntesis de cierre en la expresión regular.