摘要: 这里就用perl自带的DATA句柄做示例。 1 #!/usr/bin/perl 2 use strict; 3 use warnings; 4 5 my %hash; 6 my @arr; 7 while(<DATA>){ 8 chomp; 9 my @line = split /\s+/,$_; 阅读全文
posted @ 2022-03-03 22:32 un-define 阅读(376) 评论(0) 推荐(0)