我觉得用点点也不错
就split那行不同而已
chomp (my $name = <>);
my @record;
open F, 'text';
while (<F>) {
chomp, push @record, $_ if /^$name score$/../^end $name$/;
}
close F;
不过题外话 如果push那边省略$_就会烂掉 真是猜不透perl啊
※ 引述《scwg ( )》之铭言：
: 我的作法是这样
: chomp (my $name = <>);
: my @record;
: open F, 'text';
: {
: local $/ = '';
: while (<F>) {
: @record = split /\n/ if /^$name score/;
: }
: }
: close F;
: $" = '|';
: print "@record\n";
: 重点是
: local $/ = '';
: $/ 是 perl 特殊变量, 表示用 <...> 读档/输入时, 读到什么为止;
: 默认为 "\n" 表示一次读一行.
: $/ 有两个特例值: undef 和 ''. $/ = undef 表示把读到档尾 (slurp mode).
: $/ = '' 表示一次读一‘段’ (paragraph mode). 段与段之间以空行分开.
: 因为你的资料符合 paragraph mode 的格式, 所以适合把 $/ 设成 '',
: 一次读一笔进来检查最开始 ( /^.../ ) 是不是 /$name score/.
: 如果找到了再用 split 把各行切开.
: ※ 引述《pat12345 (咖啡杯)》之铭言：
: : 各位perl版的朋友大家晚安，
: : 有一个regular expression的问题想要请教大家，
: : 看似很简单，想要写出来却摸不著头绪，
: : 想要问问大家有没有什么想法，
: : 下列是个纯文字档，
: : 我想要给个输入的参数Nelson，
: : 然后萃取一个阵列，
: : 阵列0~4 分别为最后面的五行。
: : 这有办法做到吗@@?
: : *****************txt*****************************
: : Jack score
: : 100
: : 80
: : 90
: : end Jack
: : Peter score
: : 90
: : 88
: : 75
: : end Peter
: : Nelson score
: : 33
: : 55
: : 78
: : end Nelson
: : *************************************************