小菜鸟关于perl的问题

[swordlulj]

刚看perl不久，国庆回来全忘光了，有个问题请教各位大虾。
作二个文件的逐行比对，每一行都是二进制数，但是每一行只比对有效位，例如第一行共32位，但只是后15位有效，那么只比对第一行的后15位
最好有相关代码可看，分不多，凑合着给了，谢谢各位

[fibbery]

use strict;
use warnings;
use IO::File;

my $f1=new IO::File("< f:\\f1");
my $f2=new IO::File("< f:\\f2");

my ($line1,$line2);
my $counter=1;
while(($line1=<$f1>) && ($line2=<$f2>))
{
	chomp($line1);
	chomp($line2);
	if(substr($line1,length($line1)-15) eq substr($line2,length($line2)-15))
	{
		print("line $counter is equal.\n");
	}
	++$counter;
}

[sxy519]

你是解释一下如何判定一个位是有效位吗？

[poweric]

受教了～～～

[tony_413]

接分