# -_-* perl *-_- use strict; use utf8; use Data::Dumper; $| = 1; my @lines = (); my @datas = (); while(<>) { chomp; s/^ +//; s/ +$//; next if( /^$/ ); push @lines, $_; } my %bak; while(@lines) { $_ = shift @lines; if( /HDBENCH Ver 3/ ) { m…

perl sort_uniq_myvideo.pl myvideo.txt # -_-* perl *-_- use strict; use utf8; use Data::Dumper; $| = 1; my @lines = <>; my @datas = (); @lines = map { chomp; s/^ +//; s/ +$//; $_; } @lines; while(@lines) { my %topic; $topic{VideoCard} = shi…

perl sort_uniq_mycpu.pl mycpu.txt # -_-* perl *-_- use strict; use utf8; use Data::Dumper; $| = 1; my @lines = <>; my @datas = (); my %bak; @lines = map { chomp; s/^ +//; s/ +$//; $_; } @lines; while(@lines) { my %topic; $topic{Processor} …