in reply to Re: perl code not working after moved new host with latest perl version
in thread perl code not working after moved new host with latest perl version

sorry I forgot to specify what is error I am facing in RHEL6 with perl version Commands I ran before run from shell promp $ export REQUEST_METHOD=GET $ export QUERY_STRING="sid=xxxxdb&period=2592000&top=10" $ perl -W chktr.pl Here is the error when I run with warning

<error> \1 better written as $1 at chktr.pl line 60. Name "main::rfre2" used only once: possible typo at chktr.pl line 51. Name "main::rsiz1" used only once: possible typo at chktr.pl line 47. Name "main::rfre1" used only once: possible typo at chktr.pl line 46. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Use of uninitialized value $list{"exceptundo"} in string eq at chktr.p +l line 35. Use of uninitialized value $list{"excepttemp"} in string eq at chktr.p +l line 36. Content-type: text/html <html> <body> <center> <p> <H3> last 30 days growth </H3> <table border=1> <tr><th>top 10 amount<th>Mega<th>%<th>top 10 utilization<th>Mega<th>% <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxx&period=2592000&ts=></a><td align=right>0.00<td align=ri +ght>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 <tr> Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value in printf at chktr.pl line 104. Use of uninitialized value within @a1 in division (/) at chktr.pl line + 106. Use of uninitialized value within @r1 in multiplication (*) at chktr.p +l line 106. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value in printf at chktr.pl line 108. Use of uninitialized value within @a2 in division (/) at chktr.pl line + 110. Use of uninitialized value within @r2 in multiplication (*) at chktr.p +l line 110. <td><a href=/xxxx/cgi-bin/chkts.pl?sid=xxxxdb&period=2592000&ts=></a>< +td align=right>0.00<td align=right>0.00<td><a href=/xxxx/cgi-bin/chkt +s.pl?sid=xxxxdb&period=2592000&ts=></a><td align=right>0.00<td align= +right>0.00 </table> </center> </body> </html> <error>

  • Comment on Re^2: perl code not working after moved new host with latest perl version
  • Download Code

Replies are listed 'Best First'.
Re^3: perl code not working after moved new host with latest perl version
by Corion (Patriarch) on Mar 28, 2015 at 08:49 UTC

    You will need to find out why %ratio does not contain the values you expect. Most likely this is because rrdtool outputs things in a different format than what the program expects.

      Output from rrdtool has both expected and not expected.

      output contains following both lines, expected and not expected

      1. " 1427533200: -nan -nan -nan " --> which is not expected and need code to vomit these lines from the output of rrdtool

      2. " 1427532900: 3.2684113920e+09 9.2589260800e+08 4.1943040000e+09 "

      Please help me how to vomit / skip lines which contains "-nan -nan -nan" from the output of rrdtoold and proced only with correct data

      Corion,

      Can you please give me perl code which remove match strings "-nan -nan -nan" contain lines from rrdtool output data

        Please see Tutorials re regular expressions (or any standard Perl text).

        ... and re "...please give me perl code..."

        Please also read (more carefully!) the instructions about formatting your posts at the text-entry (and edit!) box immediately beneath the text of your node when the node is the first one rendered. (click on the linked "Re..." at the top of the poorly formatted node).

        Please search for "homework" (inter alia) and read On asking for help & How do I post a question effectively? before asking PM to "give" you code. We'll be happy to help you learn, but donating code for your business is NOT a high priority here... and doing your homework provides you with very little help in learning Perl.

        Lastly: your questions suggest you may be trying to adapt a script you did not write; that you have very little, if any, Perl background. That's OK. That's what set many of us to the work of learning Perl. So, do so....

        ...but here's a freebie: recognize that generally, when Perl advances from one version to another, or when you try to move a script from one machine (OS) to another, you may to make some modifications to working code. And modifying a working script (which uses an earlier Perl version or runs correctly on a different machine) with suggestions about how to deal with a problem on another machine or with a different Perl version is UNwise and unlikely to be useful.