Hi all experts,

I am new to Unix. Could you please help me to convert the following PERL script to SHELL? I will appreciate.

#!/bin/sh
use strict;
use warnings;
my $robot_num = 0;

my %rob_tapes;
foreach (`/usr/openv/volmgr/bin/vmquery -l -rn $robot_num`)
{ $rob_tapes{(split)[0]} = 1; }

foreach (`/usr/openv/netbackup/bin/admincmd/bpmedialist -l`)
{
my @line = split;
next unless exists $rob_tapes{$line[0]}; #remove for all
my $status = "";
if ($line[14] & 0x1 ) { $status .= " FROZEN"; }
if ($line[14] & 0x8 ) { $status .= " FULL"; }
if ($status) { print "$line[0] $status\n"; }
}