#!/usr/bin/perl

use strict;
use warnings;

my $devstats;

readfile("/sys/class/net/p2p1/statistics/rx_bytes");

exit(0);

sub readfile {
  my $file = shift;

  my @data = split("/", $file);
  my $nic = $data[4];
  my $key = $data[-1];
  my $dirCnt = $#data;

  open(FIFO, "< $file");
  my $value = <FIFO>;
  if (defined($value)) {
    chomp($value);
    if ($dirCnt eq 6) {
      $devstats->{$nic}->{$data[5]}->{$key} = $value;
    } elseif ($dircnt eq 7) {
      $devstats->{$nic}->{$data[5]}->{$data[6]}->{$key} = $value;
    } elseif ($dircnt eq 8) {
      $devstats->{$nic}->{$data[5]}->{$data[6]}->{$data[7]}->{$key} = $value;
    } elseif ($dircnt eq 9) {
      $devstats->{$nic}->{$data[5]}->{$data[6]}->{$data[7]}->{$data[8]}->{$key} = $value;
    } else {
      $devstats->{$nic}->{$key} = $value;
    }
  }
  close(FIFO);
}