Re: log parser

[alex_fatu]

can anyone tell me what i do wrong here:

#!/usr/bin/perl

use strict;
use warnings;

     print "searching using regexp...";
     
open(my $in,  "<",  "DirectX.log")  or die "Can't open DirectX.log: $!
+";
     
#while (<$in>) { # assigns each line in turn to $_
#   print "Just read in this line: $_";
#}

if ($in =~ /eroare/) {
    print "found eroare\n";
}

close $in or die "$in: $!";