UNIX for Dummies Questions & Answers

#!/bin/bash

# sample line
line="module::name=test::type=generic_data::exec=snmpget::desc=A Little Test::junk=Today the DOW dropped nearly 500 points::interval=300"

eval `echo $line | awk '
BEGIN {
      strName=""
      strType=""
      strExec=""
      strDesc=""
      intInterval=0
      FS="::"
}

 { strName=$2; sub(/^.*=/,"",strName) }
 { strType=$3; sub(/^.*=/,"",strType) }
 { strExec=$4; sub(/^.*=/,"",strExec) }
 { strDesc=$5; sub(/^.*=/,"",strDesc) }
 { intInterval=$NF; sub(/^.*=/,"",intInterval) }

END {
      printf "strName=\"%s\"\n", strName
      printf "strType=\"%s\"\n", strType
      printf "strExec=\"%s\"\n", strExec
      printf "strDesc=\"%s\"\n", strDesc
      printf "intInterval=%d", intInterval
}'`

# now check that the required variables were set

echo '===================='
echo "strName=$strName"
echo "strType=$strType"
echo "strExec=$strExec"
echo "strDesc=$strDesc"
echo "intInterval=$intInterval"
echo '===================='

exit 0

#!/bin/perl

my $line="module::name=test::type=generic_data::exec=snmpget.......::desc=A Little Test::interval=300";

my %data;

foreach $item(split(/::/, $line)) {
  next if($item !~ /=/);
  ($key,$value)=split(/=/, $item);
  $data{$key}=$value;
}