File Coverage

blib/lib/My/FileDIff.pm

Criterion	Covered	Total	%
statement	6	62	9.6
branch	0	22	0.0
condition	0	27	0.0
subroutine	2	6	33.3
pod	0	4	0.0
total	8	121	6.6

package My::FileDIff;

use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(union diff Intrsection);

our $VERSION = '1.09';

sub union
{
#------------------------------------------------------------
# Function: to Find the union of lines among two files
#------------------------------------------------------------
    my $Uni=shift   || help();
    my $file1=shift || help();
    my $file2=shift || help();
    open (IN1,"$file1") || die "cannot open $file1:$!\n";
    open (IN2,"$file2") || die "cannot open $file2:$!\n";
    if ($Uni eq 'or') {
    	my %out;
    	while() {chomp;$out{$_}=1;}
    	while() {chomp;$out{$_}=1;}
    	foreach (keys %out) {print "$_\n";}
    }
    else
    {
	help();
    }
close IN1;
close IN2;
}

sub diff
{
#------------------------------------------------------------
# Function: to Find the difference of lines among two files
#------------------------------------------------------------
    my $Diff=shift  || help();
    my $file1=shift || help();
    my $file2=shift || help();
    open (IN1,"$file1") || die "cannot open $file1:$!\n";
    open (IN2,"$file2") || die "cannot open $file2:$!\n";
    if ($Diff eq 'diff') {
    	my %in2;my %out;
    	while() {chomp;$in2{$_}=1;}
    	while() {chomp;$out{$_}=1 if(not exists $in2{$_});}
    	foreach (keys %out) {print "$_\n";}
    }
    else
    {
	help();
    }
close IN1;
close IN2;
}

sub Intrsection
{
#------------------------------------------------------------
# Function: to Find the intersection of lines among two files
#------------------------------------------------------------
    my $Intr=shift  || help();
    my $file1=shift || help();
    my $file2=shift || help();
    open (IN1,"$file1") || die "cannot open $file1:$!\n";
    open (IN2,"$file2") || die "cannot open $file2:$!\n";
    if ($Intr eq 'and') {
    	my %in1;my %out;
    	while() {chomp;$in1{$_}=1;}
    	while() {chomp;$out{$_}=1 if(exists $in1{$_});}
      	foreach (keys %out) {print "$_\n";}
    }
    else
    {
	help();
    }
close IN1;
close IN2;
}

sub help
{
	print "mydiff : compare two Files with \'[or/diff/and]\' options... \nUsage:\tmydiff [-h] :for help,info\n\tunion('or','file1.txt','file2.txt') : union of two sets\n\tdiff('diff','file1.txt','file2.txt');: elements in A but not in B\n\tIntrsection('and','file1.txt','file2.txt'); : intersection of two sets\n";
	exit 1;
}

1;

__END__