在Perl中返回多行字符串第一行的最简单方法是什么?

Kev*_*Kev 10 string perl multiline

当我说简单时,我的意思是,在一个表达式中,这样我就可以将它作为哈希中的值而不先准备它.我会发布我的解决方案,但我正在寻找一个更好的提醒我少VB的解决方案.:)

inn*_*naM 28

怎么样

( split /\n/, $s )[0]
Run Code Online (Sandbox Code Playgroud)

你不必担心\n不是跨平台的,因为Perl足够聪明,可以解决这个问题.