Re^6: Reading tab/whitespace delimited text file

Thank you soooo much for helping .. i'm a newbie to perl and figuring out everything as i go on ...
The code works perfectly ..!!!!! However , while this works for a sample data , when i use it parse the actual text file , it behaves weirdly .. This is what i get for the sample data :

{
  AWOFFSET    => 5,
  BQOFFSET    => 3,
  BQOFFSETAFR => 3,
  CAND        => "BOTH",
  CELL        => "LUC325C",
  CELLR       => "LUC232A",
  CS          => "NO",
  DIR         => "MUTUAL",
  HIHYST      => 5,
  KHYST       => 3,
  KOFFSETN    => "",
  KOFFSETP    => 0,
  LHYST       => 3,
  LOFFSETN    => "",
  LOFFSETP    => 0,
  LOHYST      => 3,
  OFFSETN     => "",
  OFFSETP     => 0,
  TRHYST      => 2,
  TROFFSETN   => "",
  TROFFSETP   => 0,
}

Press any key to continue . . .
[download]

And this is what i get when i execute it on a text file :

{ CELL => "LUC325C" }
{ BOTH => "", LUC325B => "", MUTUAL => "", NO => "" }
{}
{
  BQOFFSETAFR => "",
  HIHYST      => 5,
  LOHYST      => "3       0",
  OFFSETN     => "",
  OFFSETP     => 3,
}
{ BOTH => "", LUC116A => "", MUTUAL => "", NO => "" }
{}
{
  BQOFFSETAFR => "",
  HIHYST      => 5,
  LOHYST      => "3       0",
  OFFSETN     => "",
  OFFSETP     => 3,
}
{ BOTH => "", LUC204A => "", MUTUAL => "", NO => "" }
{}
Press any key to continue . . .
[download]

Any idea as to why this behaves differently for the same set of data ?????

Comment on Re^6: Reading tab/whitespace delimited text file Select or Download Code

Replies are listed 'Best First'.
Re^7: Reading tab/whitespace delimited text file by BrowserUk (Patriarch) on Nov 02, 2012 at 11:04 UTC
Any idea as to why this behaves differently for the same set of data ????? I'll need to see both the exact code you are using and the exact datafile. (I'll /msg you my email id.) With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. RIP Neil Armstrong	[reply]
Re^8: Reading tab/whitespace delimited text file by reaper9187 (Scribe) on Nov 04, 2012 at 19:18 UTC
Why does the original code behave differently when i use the while(<FILEHANDLE>) loop as a file handle to read a particular section of code(say between line 2-10) instead of using EOF ..???	[reply]
Re^9: Reading tab/whitespace delimited text file by BrowserUk (Patriarch) on Nov 05, 2012 at 11:56 UTC
Why does the original code behave differently when i use the while(<FILEHANDLE>) loop as a file handle to read a particular section of code(say between line 2-10) instead of using EOF ..??? Because `while( <DATA> ) {` reads and discards a line each time it is executed. And that line contains a header (or data) that is required. If you need to skip 29 lines, do so before entering the while loop: `<DATA> for 1 .. 29; until( eof( DATA ) ) { ...` [download] And to exit the loop after the 40th line has be read: `until( eof( DATA ) ) { last if $. == 40; ...` [download] With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. RIP Neil Armstrong	[reply] [d/l] [select]
Re^9: Reading tab/whitespace delimited text file by Anonymous Monk on Nov 05, 2012 at 01:25 UTC
See Re^7: Reading tab/whitespace delimited text file	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks