Quel est le moyen le plus simple de renvoyer la première ligne d'une chaîne multiligne en Perl?

Question

Quand je dis simple, je veux dire, à l'intérieur d'une expression, de sorte que je puisse le coller comme valeur dans un hachage sans le préparer d'abord. Je posterai ma solution mais je cherche un meilleur qui me rappelle moins de VB. :)

Answer 1

Que diriez-vous

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

?

Vous n'avez pas à vous soucier de ne pas être multiplate-forme car Perl is clever enough to take care of that.

Answer 2

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

Answer 3

Ce n'est pas aussi simple que vous le souhaitez, mais être simple, juste pour être court ne devrait pas toujours être l'objectif.

Vous pouvez ouvrir un descripteur de fichier sur une chaîne (comme une référence scalaire) et le traiter comme un fichier pour lire la première ligne:

 
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 tu voulais vraiment, je suppose que vous pourriez réduire à une expression:

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

Quelle que soit la méthode que vous choisissez, vous pouvez toujours faire un sous-programme pour retourner la première ligne, puis utilisez l'appel de sous-programme dans votre tâche de hachage.

 
sub gimme_first_line { ... } 

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

Answer 4

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

Pour les grandes chaînes, ce sera plus rapide que

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

comme suggéré par Manni. [Edit: supprimé la mention erronée de split /\n/, $str, 1.]

Si vous souhaitez inclure le terminal \n si elle est présente, ajouter \n? juste avant les paren de clôture du regex.