Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Perl Interpretation Help

Posted on 2015-02-18
6
Medium Priority
?
132 Views
Last Modified: 2015-02-19
Would someone tell me what these perl lines are doing.  There is a query called standby_check.sh being executed.  If i execute it standalone, i get rows returned, but for some reason it seems here it comes back empty.


open(DBQ, "/var/sysadm/oracle/bin/standby_check.sh|")
  or die("Failed to run standby_check.sh\n!$\n");

while (<DBQ>) {
  if (/^(.+?\.arc)\s*$/) {
    $fileName = $1;
0
Comment
Question by:xoxomos
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
6 Comments
 
LVL 27

Accepted Solution

by:
wilcoxon earned 2000 total points
ID: 40617759
# run /var/sysadm/oracle/bin/standby_check.sh and pipe the output to the DBQ filehandle
open(DBQ, "/var/sysadm/oracle/bin/standby_check.sh|")
  or die("Failed to run standby_check.sh\n!$\n");

# loop over lines from the output referenced by DBQ
while (<DBQ>) {
  # if the line ends with .arc
  if (/^(.+?\.arc)\s*$/) {
    # then assign the line (minus any trailing whitespace) to the variable $fileName
    $fileName = $1;

Open in new window

0
 

Author Comment

by:xoxomos
ID: 40617799
Thanx

The standby_check.sh returns:
.....
.....
.
.
.
.
/archlog2/BB60/1_291803_786457154.arc
/archlog2/BB60/1_291804_786457154.arc
/archlog2/BB60/1_291805_786457154.arc
/archlog2/BB60/1_291806_786457154.arc
/archlog2/BB60/1_291807_786457154.arc
/archlog2/BB60/1_291808_786457154.arc
/archlog2/BB60/1_291809_786457154.arc
/archlog2/BB60/1_291810_786457154.arc
/archlog2/BB60/1_291811_786457154.arc
/archlog2/BB60/1_291812_786457154.arc

92 rows selected.
What are some possible reasons perl dies at the open or die stage
0
 
LVL 48

Expert Comment

by:Tintin
ID: 40617875
What are some possible reasons perl dies at the open or die stage

1.  The script doesn't exist
2.  The script doesn't have execute permission
3.  The Perl script doesn't have sufficient privilege to run the script
4.  The script exits with a non-zero status.
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 

Author Comment

by:xoxomos
ID: 40617900
Never mind.  I was root then did a crontab oracle.cron and got things mucked up.
0
 
LVL 84

Expert Comment

by:ozo
ID: 40619791
die("Failed to run standby_check.sh\n$!\n");
instead of
die("Failed to run standby_check.sh\n!$\n");
may give some indication of possible reasons
0
 

Author Comment

by:xoxomos
ID: 40619988
OZO!!!!  Long time :-)
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I have been pestered over the years to produce and distribute regular data extracts, and often the request have explicitly requested the data be emailed as an Excel attachement; specifically Excel, as it appears: CSV files confuse (no Red or Green h…
In the distant past (last year) I hacked together a little toy that would allow a couple of Manager types to query, preview, and extract data from a number of MongoDB instances, to their tool of choice: Excel (http://dilbert.com/strips/comic/2007-08…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

610 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question