作者dryman (dryman)
看板Perl
标题Re: [问题] 阵列
时间Wed Mar 6 04:08:18 2013
#!/usr/bin/env perl
use 5.010;
while ($_=<DATA>) {
if (/^name \w+/){
say $&; # 比对到的字串
$_ = <DATA>;
@specs = split;
shift @specs;
$_ = <DATA>;
@value = split;
say "spec $_\nvalue ", $value[1] for @specs;
say "";
}
}
__DATA__
name a1b1c1
spec aaa1 bbb1 ccc1
value 500
name a2bc
spec aaa2
value 600
name ab2c
spec bbb2
value 550
name d3e3
spec ddd3 eee3
value 230
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 68.181.4.39
1F：→ hws110:您好，请问use 5.010是perl的版本吗？我的是5.8版 03/06 10:18
2F：→ dryman:用5.8把say换成printf还有加上"\n"就行了 03/06 22:49
3F：推 hws110:您好，我也是这样改的，感谢您的回答 03/06 23:21