.I am ensuring that some Perl written using an old version of Perl will work with version 5.018001.

Currently I have a problem with a message associated with a format statement

The message is “Use of comma-less variable list is deprecated at …format_quey.pl line nn”. I did not get this message with the earlier version of Perl and I would like to prevent this being given. The file seems to be written correctly

A test version of the Perl code is given below and this gives the message three times. These were
twice for line 38 which starts $xml_machine $xm
once for line 45 which starts $xml_pile $xml_tn

I would like to know why this message is given and how I can prevent it being written

use Tk;
use strict "vars";

sub write_report() {

my ($xml_drawing, $xml_machine, $xml_material, $xml_date, $xml_nest_ty
+pe, $xml_mcy_text, $xml_pile, $xml_tn, $date_use);
my ($summary_file, $res_open_summary_file);

$summary_file = ">c:\\temp\\summary_file.txt";

$xml_drawing = "Pilot XX1";
$xml_machine = "Bruning";
$xml_material = "steel";
$xml_date = "12/01/2015";
$xml_nest_type = "Open";
$xml_mcy_text = "Test text";
$xml_pile = "Py 1234";
$xml_tn = "TS12";
$date_use = "16 Jan 2015";

$res_open_summary_file = open(SUMMOP, $summary_file);
print "open file result <$res_open_summary_file>\n";

format_name SUMMOP "HEAD1B";
write SUMMOP;
close(SUMMOP);

format HEAD1B =
DATE: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date_use

             GAME NAME @<<<<<<<<<<<<<<<<
$xml_drawing

                 MACHINE                      MATERIAL                
+        DATE REQ
                ---------                    ----------               
+       -----------
  @|||||||||||||||||||||||||||||||||     @||||||||||||||||||||||||||| 
+        @||||||||| 
$xml_machine           $xml_material        $xml_date


                       @|||||||||||||||
$xml_nest_type

           (FULL PLATE)  (STORED IN PILE @||||||||||||)  (TEST NO. @||
+||||||)
$xml_pile   $xml_tn

                @|||||||||||||||||||||||||||||
$xml_mcy_text 

.

}

write_report();
print "\nafter call to write_report - perl version $]\n";

[download]

In reply to Format definition query by merrymonk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.