perl script

ronak has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: perl script by Corion (Patriarch) on Jan 12, 2017 at 13:26 UTC
What value is in `$output`? You can inspect the value in `$output` by doing: `print $output;` [download] See index.	[reply] [d/l] [select]
Re^2: perl script by Anonymous Monk on Jan 12, 2017 at 18:27 UTC
print $output; my $ex = QA::STK::Execute->new(ip=>'some ip',user=>'root'); $ex->command("ls-l"); my $rc = $ex->execute(); my $output = $ex->output(); Gives perl doubt.	[reply]
Re^3: perl script by AnomalousMonk (Archbishop) on Jan 12, 2017 at 21:30 UTC
It may be useful to print the value of `$output` after it has been given some (possibly) meaningful value: `... my $output = $ex->output(); print ">>$output<<"; ...` [download] This may remove doubt. Note that the variable is being printed with clear indications of its start and end. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]
Re: perl script by kennethk (Abbot) on Jan 12, 2017 at 19:35 UTC
First, please read How do I post a question effectively?. In particular, please wrap code in `<code>` tags so that we can be sure your content doesn't get mangled. I'll be working with `my $ex = QA::STK::Execute->new(ip=>'some ip',user=>'root'); $ex->command("ls-l"); my $rc = $ex->execute(); my $output = $ex->output();` [download] I cannot find any reference to a module called QA::STK::Execute, but I will make assumptions based on syntax. If you review the Basic debugging checklist, the first thing you should check is does `$output` contain what you think it does. printing is the easiest basic check. Given that you are running `ls-l` in your posted code and not `ls -l` (note the space), I'd bet you've got empty output. Once you've verified that it seems reasonable, you can either use index as Corion suggested, or craft a regular expression. A regular expression has the advantage of anchoring to the end of a line, since you are looking for a file name. Maybe something like: `if (/\s\Q$xyz\E$/) { # Code to run }` [download] The easiest way to deal with this is for you to post some example output from `ls -l` and then what you tried in order to find the file's name, all wrapped in `<code>` tags. You will note that your lack of adherence to site expectations has garnered you down votes. Read the links, and see if they make sense. You can even edit your posts to fix them up. #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]
Re^2: perl script by Anonymous Monk on Jan 12, 2017 at 22:05 UTC
print index($output); my $ex = QA::STK::Execute->new(ip=>'some ip',user=>'root'); $ex->command("ls-l"); my $rc = $ex->execute(); my $output = $ex->output();	[reply]
Re^3: perl script by kennethk (Abbot) on Jan 12, 2017 at 23:54 UTC
What do you expect this code to do? index takes two arguments, and you have not indicated what to look for. What you've posted is a compile time syntax error. `$output` cannot have any value until after you assign it, so the print statement would need to be at the end. You did not follow my previous direction to wrap code in code tags. You still don't have a space in `ls -l` Your code will not pass strict with your placement of your print statement. See Use strict warnings and diagnostics or die. What do you get when you run: `my $ex = QA::STK::Execute->new(ip=>'some ip',user=>'root'); $ex->command("ls-l"); my $rc = $ex->execute(); my $output = $ex->output(); print $output;` [download] Does your module have a capability to read STDERR? #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l] [select]