#!/usr/bin/perl
$fnx = "/home/perl/t1x.g";
$fny = "/home/perl/t25y.g";
$fnz = "/home/perl/t22z.g";
$fntmp = "/home/perl/t22tmp.g";
open FPX, "$fnx" or die "Error in write:$!";
open FPY, "$fny" or die "Error in write:$!";
open FPZ, ">$fnz" or die "Error in write:$!";
open FPTMP, ">$fntmp" or die "Error in write:$!";
while (<FPX>) {
@x_line = $_;
while (<FPY>) {
if($_ == @x_line){
print "Saving matched at $.\n";
print FPTMP "$_ \n";

}
else{
print "Saving unmatched at $.\n";
print FPZ "$_ \n";
}
}
}
close FPX;
close FPY;
close FPZ;


#!/usr/bin/perl
$fnx = "/home/perl/t1x.g";
$fny = "/home/perl/t25y.g";
$fnz = "/home/perl/t22z.g";
$fntmp = "/home/perl/t22tmp.g";
open FPX, "$fnx" or die "Error in write:$!";
open FPZ, ">$fnz" or die "Error in write:$!";
open FPTMP, ">$fntmp" or die "Error in write:$!";
XFILE: $flag = 0;
while ($x_line = <FPX>) {
	open FPY, "$fny" or die "Error in write:$!";
	while ($y_line = <FPY>) {
	if($y_line eq $x_line) {
	print "Match found at $y_line\n";
	print FPTMP "$y_line\n";
	$flag = 1; 
	next XFILE;
	}
	else	{
	print "Match not found at $.\n";
	next;
	}
	}
if ($flag == 0) {
print "Some Match not found at $x_line\n";
print FPZ "$x_line\n";
}
close FPY;
}
close FPX;
close FPZ;
close FPTMP;


#!/usr/bin/perl
$fnx = "/home/perl/t1x.g";
$fny = "/home/perl/t25y.g";
$fnz = "/home/perl/t22z.g";
$fntmp = "/home/perl/t22tmp.g";
open FPX, "$fnx" or die "Error in write:$!";
open FPY, "$fny" or die "Error in write:$!";
open FPZ, ">$fnz" or die "Error in write:$!";
open FPTMP, ">$fntmp" or die "Error in write:$!";
while (<FPX>) {
@x_line = $_;
while (<FPY>) {
if($_ =~ m/@x_line/){
@bb = m/@x_line/;
print FPTMP "@bb\n";
next;
}
else {
print FPZ "@x_line";
next;
}
}
}
close FPX;
close FPY;
close FPZ;


#!/usr/bin/perl
$fnx = "/home/t1x.g";
$fny = "/home/t25y.g";
$fnz = "/home/t22z.g";
$fntmp = "/home/t22tmp.g";
open FPX, "$fnx" or die "couldn't open $fnx: $!";
open FPZ, ">$fnz" or die "couldn't open $fnz: $!";
open FPTMP, ">$fntmp" or die "couldn't open $fntmp: $!";
XFILE:while (@x_line = <FPX>) {
	open FPY, "$fny" or die "Error in write:$!";
	while (@y_line = <FPY>) {
    	if (@x_line eq @y_line){
	print FPTMP "@x_line\n";
	goto XFILE;
	}
	else{
	print FPZ "@y_line\n";
	}
	}
close FPY;
}
close FPX;
close FPZ;
close FPTMP;