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"; }
}

Please help guys.

Perl to English Translation:

Looks like the script runs vmquery to put the Tape # (first column) into an array. The array values are later checked.

If a Tape # is found in the array, the number in the 15th column of output from the bpmedialist command for the tape # is bitwise checked to determine if the tape is frozen or full.

If the number has the binary 1 bit turned on, it is frozen
If the number has the binary 8 bit turned on, it is full
If the number has both bits turns on, it is full

The script loops through all found in array tape #'s and returns the status of full or frozen.

I could probably do this in shell, but i'm not that great with binary stuff. I'd use the perl script, as it it pretty quick and doesn't generate any temp files, which i think the shell script would have too. I may take a crack at this tomorrow if no solution has been posted.

Heh. This took some sweating and cursing. Finally had to talk to the AWK guru in my office.

This prints a list of media, sorted by Status code, then by Media ID, where 0 is available, 01 is Frozen, 10 is Full, and 11 is Full/Frozen. Took about 10 seconds to run for me, though I only have about 1800 tapes in the library.

I presume you're doing this so you can eject full and/or frozen tapes from your robot and load available tapes into the robot. You could put this in crontab and have it email to you right before you get to work every day, so you have an action plan for being the robot stableboy.

Curtis W. Preston has an excellent script out there called CLAM (Curtis' Library Automation Menu) that is an great place to look. It uses Perl but also includes easy "shove tapes into robot" and "extract tapes from robot" that is much faster than goofing with the GUI. We had to do minor tweaks to make it work with Netbackup 6.5.

Thanks all of you guys for your times and effort. God bless you all

Hi i could display only FULL/FROZEN ? I also want to have column which will show the status of the tape like

00 full
01 frozen
01 full

Now it only displays


# bpmedialist -l | awk '{print "echo `echo \"obase=2;"$15+4096"\" | bc` "$1}' | sh | cut -c10,13,14-99 | sort -n -n
00 000004
00 000005
00 000007
00 000009
00 000015
00 000018
00 000021
00 000023
00 000024
00 000025
00 000027
00 000028
00 000032
00 000039
01 000014
10 000001
10 000002
10 000008
10 000011
10 000013
10 000016
10 000017
10 000020
10 000022
10 000026
10 000030
10 000031
10 000034
10 000035
10 000037
10 000038
10 000040
#
Do i have to write if else statement withe the above shell so that when it is 10 it will display FULL and when it is 01 it will display frozen? Please give me some feedback.

Something like this:

Replace the question marks with the appropriate status.