Re^2: PERL $/variable

Replies are listed 'Best First'.
Re^3: PERL $/variable by kennethk (Abbot) on Mar 11, 2010 at 18:45 UTC
It works for file 1 because records are separated by multiple new lines. The regular expression returned `""` and, as per the provided link ($/): Setting to "" will treat two or more consecutive empty lines as a single empty line.	[reply] [d/l]
Re^4: PERL $/variable by Anonymous Monk on Mar 11, 2010 at 19:00 UTC
If I do now:`$/=="";` it doesn't work for file1. I have to write `$/="";` to make it work. So to conclude the best solution for me is to set different $/ for file1 (`$/="";`) and file2 (default $/). Am I not right ?	[reply] [d/l] [select]
Re^5: PERL $/variable by ikegami (Patriarch) on Mar 11, 2010 at 19:24 UTC
You could, or you could skip blank lines `while (<$fh>) { chomp; next if !length; ... }` [download]	[reply] [d/l]
Re^5: PERL $/variable by kennethk (Abbot) on Mar 11, 2010 at 19:18 UTC
As I said below, `$/=="";` is a meaningless statement - a logical test where you do not use the return value. What is wrong with the solution I provided? As far as I can tell, it works on both your file formats. Using `$/` in this context would require you to know the format of the file ahead of time - you would have to read the file twice.	[reply] [d/l] [select]