yodawoya has asked for the wisdom of the Perl Monks concerning the following question:
Sorry for such elementary and newbie question but I am new at this... so please please no bashing :-(
I need to execute dsmadmc from C:\Program Files\Tivoli\TSM\server\tsmdiag. When I try
@out=`C:\\Program Files\\Tivoli\\TSM\\server\\tsmdiag\\dsmadmc -id=$ID -pass=$PASS "checkin libvol i500 search=bulk checklabel=barcode status=$arg"`;
or
@out=`C:/Program Files/Tivoli/TSM/server/tsmdiag/dsmadmc -id=$ID -pass=$PASS "checkin libvol i500 search=bulk checklabel=barcode status=$arg"`;
I get an error that the external command cannot be recognized.
Any suggestion on how to fix this... Many Thanks in advance....he is the full script
#!/bin/perl $ID='drm'; $PASS='drm'; $VERBOSE=0; $RETRIES=10; $SLEEPTIME=120; sub check_in { my ($arg) = @_; @out=`C:\\Program Files\\Tivoli\\TSM\server\\tsmdiag\\dsmadmc -id=$ID +-pass=$PASS "checkin libvol i500 search=bulk checklabel=barcode statu +s=$arg"`; if ($VERBOSE) { print @out; } #look for idle status $match=1; $trycnt=1; #loop for x number of times if robot is busy or there is no req while ($trycnt<$RETRIES) { sleep 10; $out=`dsmadmc -id=$ID -pass=$PASS "q req"`; if ($VERBOSE) { print @out; } $trycnt++; if ($out=~m/ANR8373I /) { $trycnt=$RETRIES; } else { print "Robot busy - sleeping for $SLEEPTIME secs\n"; sleep $SLEEPTIME; } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: How do I tell perl to excute a windows from a specif folder
by BrowserUk (Patriarch) on Mar 10, 2015 at 17:16 UTC | |
|
Re: How do I tell perl to excute a windows from a specific folder
by toolic (Bishop) on Mar 10, 2015 at 17:15 UTC | |
|
Re: How do I tell perl to excute a windows from a specif folder
by MidLifeXis (Monsignor) on Mar 10, 2015 at 17:17 UTC | |
|
Re: How do I tell perl to excute a windows from a specif folder
by dasgar (Priest) on Mar 10, 2015 at 18:14 UTC |