1 files changed, 0 insertions, 37 deletions
diff --git a/functions/cpu-info b/functions/cpu-info
deleted file mode 100755
index 1839a5d..0000000
--- a/functions/cpu-info
+++ /dev/null
@@ -1,37 +0,0 @@
-#! /usr/bin/perl
-# implement "show cpu-info"
-
-open my $cpuinfo, '<', '/proc/cpuinfo'
-  or die "Can't open /proc/cpuinfo : $!";
-
-my %models;
-my %packages;
-my %cores;
-
-my %map = (
-    'model name'  => \%models,
-    'physical id' => \%packages,
-    'core id'     => \%cores
-);
-
-my $cpu = 0;
-while (<$cpuinfo>) {
-    chomp;
-    my ( $tag, $val ) = split /:/;
-    if ( !$tag ) {
-        ++$cpu;
-        next;
-    }
-
-    $tag =~ s/\s+$//;
-    $val =~ s/^\s+//;
-
-    my $ref = $map{$tag};
-    $ref->{$val} = $cpu  if ($ref);
-}
-close $cpuinfo;
-
-print "CPU       ", join( "       \n", keys %models ), "\n";
-print "Packages  ", scalar keys %packages, "\n";
-print "Cores     ", scalar keys %cores,    "\n";
-print "Threads   ", $cpu, "\n";