in reply to File lines being treated as one.

It's not clear what your problem is actually. However an important thing you need to know is that Unix and Windows use different line end conventions. Normally Perl takes care of the convention for the current platform and you needn't worry about it. However if you are dealing with a file from a different platform then the differences can be important.

Unix uses a line feed character (\n) as a line end indicator, Windows uses a carriage return line feed pair (\r\n) and the Mac uses a carriage return character (\r).

It's not clear from your description just what your problem is, but you could try stripping \r characters from your file and see if that fixes the problem.

DWIM is Perl's answer to Gödel

Replies are listed 'Best First'.
Re^2: File lines being treated as one.
by minixman (Beadle) on Mar 03, 2006 at 09:48 UTC
    Okay so when i read each line of a file created on windows it should end with \r\n. So to split out each line i could say split(/\r\n/,$file);

    The problem i have is that i am trying to search and file for certain values like.
     open(FF, "$fixmessageloc");
 while(<FF>){
   chomp($_);
   if($_ =~ /35=D/){
    printf("Found $_\n");
   }
 }
<code>
Now this will return .

<code>
Found 1 06/02/23 11:16:05:390 Inbound:, Outbound:, Bidirectional:***
2 06/02/23 11:16:05:390 Received FIX message
Message dump:
3 06/02/23 11:16:05:390 Resetting FIX session intraday.
4 06/02/23 11:16:05:406 Sent FIX Message
Message dump:
5 06/02/23 11:16:35:109 Sent FIX Message
Message dump:
6 06/02/23 11:16:37:234 Received FIX message
Message dump:
7 06/02/23 11:16:37:234 Sent FIX Message
Message dump:
8 06/02/23 11:16:37:265 Inbound:, Outbound:, Bidirectional:***
9 06/02/23 11:16:44:671 Received FIX message
Message dump:

    [download]
    Which is the whole file, and not the line i want.
[reply]
[d/l]

      Check that the input record seperator $/ hasn't been altered. You could:

      local $/ = "\n";
while (<FF>) {

      [download]

      to make sure. Otherwise reduce the code to a minimum that demonstrates the problem and post the complete code. You shouldn't need more than about another two or three lines of code more than your current sample. Also, make sure you are using strictures: use strict; use warnings;

      DWIM is Perl's answer to Gödel
[reply]
[d/l]
[select]
      So this is strange, when i run this code on the file on its own away from what i am trying to do.
      #!/usr/bin/perl

my $file = shift;
open (LOG, "<$file");
my $tag1 = "11=Order53:1:1140693468";
@logarray=<LOG>;
foreach(@logarray){
   if(($_=~ m/35=8/)&&($_ =~ m/$tag1/)){
     printf ("$_\n");
   }
}

      [download]
      I get the result i am looking for all be it away from what i am trying to do.
      $ perl t.pl fix.log
8=FIX.4.29=034435=849=EXLINK_COMPLEX56=COMPLEX_EXLINK50=COMPLEXGATE57=
+DBL9991134=552=20060223-11:18:3
31=L6096=0.000011=Order53:1:114069346814=0.000017=1118339840020=031=0.
+0000000032=0.000037=132710014138=1.000039=054=155=Tester60=20060223-1
+1:18:33150=0151=1.0000109=Test23=0167=FUT200=200603207=Test
40=144=0.0000000010=026
$

      [download]

      But in my main code , all i do is call this routine and ask it to search for the file for the same entries as above, and return the results.

      sub readfile() {
 my($tag1,$tag2) = @_;
 open(FF, "<$fixmessageloc") || die ("Unable to open file: $!: readfil
+e_rt \n");
 my @logarray = <FF>;
 if($debug){&writelog(1,"DEBUG: Entered into readfile_rt: passed ($tag
+1)($tag2)");}
 foreach(@logarray){
   if(($_ =~ m/35=8/)&&($_ =~ m/$tag1/)){
     if(($debug)&&($datadumperdebug)){&writelog(1,"DEBUG: readfile_rt:
+ found string $_");}
     printf "Found = $_\n";
   }
 }

      [download]
      But that returns loads of rows and not one row, and some of them don't even match
[reply]
[d/l]
[select]
        I can't see any different between you first code and second with sub, perhaps the problem is how you call your sub?
        And I have to repeat GrandFather: make sure you are using strictures: use strict; use warnings;
[reply]

In Section Seekers of Perl Wisdom