in reply to Re^2: PERL $/variable
in thread PERL $/variable

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.

Replies are listed 'Best First'.
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]
      You could, or you could skip blank lines 
      while (<$fh>) {
    chomp;
    next if !length;
    ...
}

      [download]
[reply]
[d/l]
      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]

In Section Seekers of Perl Wisdom