〃拥有小太阳的向日葵ヾ

摘要： test.perl:use strict;print "[weights]", "\n";while () { chomp; my @a = split /\|/; s/\s+$//g foreach @a; $a[2] =~ s/\..+$//g; print $a[2], "=", $a[7]... 阅读全文