Why is this not a match?

[Danield]

Hello All,

I am unable to find out why is this not matching:

I do have a file where the second line contains:

Summary Log (generated: Tue Apr 1 22:02:29 MST 2003)

I am processing this file by this script:

#!usr/bin/perl -w

use strict;
use Fcntl qw[:flock];

my $impressions = 0;
my $iofile = '/other/scripts/daniel/input/c07_impressions_io.info';

open (IO, $iofile) || die("Could not open file 1!");

while (<IO> ) {
chop;
(my$FH, my$output, my$file2check, my$month, my$year) = split
(/\s+/, $_);

open OUT, ">> $output";

chdir $FH or die "$!";

while (glob $file2check) {
print "Processing $file2check";
open FH, $_ or die $!;
flock FH, LOCK_SH or die $!;
while (<FH> ) {
chomp;
if ( / Summary Log (generated:/ ) {
my($summary, $log, $generated, $day_word, $m,
$day_number,$time,$timezone, $year ) = split(/\s+/, $_);
# $impressions += $value if ($value =~ /\d+/);
print "File $file2check is $month, $year\n";

}
}
close FH or die $!;
}
}
# print OUT 'Total impressions: ', $impressions or die $!;
print $output, $file2check, $month, $year

Where I am checking if there is a line Summary log by "if ( / Summary
Log (generated:/ ) {"

And I am receiving this error:

Unmatched ( in regex; marked by <-- HERE in m/ Summary Log ( <-- HERE
genereated:/ at c07_imp.pl line 25.

Does anybody know why?

Thank you for your time.

danield

[Charles K. Clarkson]

danield <sun_x86@telus.net> wrote:
:
: I am unable to find out why is this not matching:
:
:[snip]
:
: if ( / Summary Log (generated:/ ) {


The open parenthesis '(' has to be escaped.

if ( / Summary Log \(generated:/ ) {


HTH,

Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328