Re: Perl to Add newline at the end of each row of comma seperated strings in an array ?

my $xlsx_INFILE =("C:\\Temp\\Test.xlsx"),, 1; #Set-up Files

What is this statement intended to do? In particular, please be aware that (update: in Perl,) the ,, 1 tail on the statement can have no effect.

c:\@Work\Perl\monks>perl -wMstrict -le
"my $xlsx_INFILE =(\"C:\\Temp\\Test.xlsx\"),, 1;
 print qq{'$xlsx_INFILE'};
"
'C:\Temp\Test.xlsx'
[download]

Give a man a fish: <%-{-{-{-<

Comment on Re: Perl to Add newline at the end of each row of comma seperated strings in an array ? Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl to Add newline at the end of each row of comma seperated strings in an array ? by john.tm (Scribe) on Sep 11, 2015 at 20:22 UTC
"my $xlsx_INFILE =(\"C:\\Temp\\Test.xlsx\"),, 1;" Allows you to read a file if it is open.	[reply]
Re^3: Perl to Add newline at the end of each row of comma seperated strings in an array ? by poj (Abbot) on Sep 11, 2015 at 20:46 UTC
Isn't that the VBA method to open a workbook read-only ? `Workbooks.Open "c:\\temp\\Test.xlsx", , 1` poj	[reply] [d/l]