Hi,

I have a file name which have these lines in the file. I want to compare if the schematic port and layout port are different then I report this file has port name different. Below is my code but it has problem with $1 and $2. How can I get $1 and $2?

thanks,
Tony


while (<INF>) {
$port_session = 1 if ( /port\s*Port class\s*Schematic port\s*Layout port/ ) ;
if ( /\*\s+\d+\s+(\S+) \ (\S+)$/ && $port_session ) {
$mismatch = 1 if ( $1 !~ $2 );
}
}

close(INF);








port Port class Schematic port Layout port
---------- ---------- -------------------- --------------------
L 1 D D
L 4 Q Q
L 6 RST x_6
L 5 SET SET
L 2 XCLK x_3
L 3 XQ XQ

I'm sure it could be done more efficiently but this will work...

#!/usr/local/bin/perl
use strict;
use warnings;

my $data;
my @data;
open FILE, "data.txt";

while (<FILE>) {
if ($_ =~ /port Port class Schematic port Layout port/) {
next;
}
elsif ($_ =~ /---/) {
next;
}
elsif ($_ =~ /\S+?/) {
@data = split(/ /,$_);
chomp @data;
if ($data[2] ne $data[3]) {
print "$data[2] and $data[3] are not equal\n";
}
if ($data[2] eq $data[3]) {
print "$data[2] and $data[3] are equal\n";
}
}
}

Hi,

thanks for your help.

Tony