File Coverage

blib/lib/DicomPack/Util/DicomAnonymizer.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	18	38	47.3

##############################################################################
# DicomAnonymizer.pm -- a module to anonymize Dicom files
#
# Copyright (c) 2010 Baoshe Zhang. All rights reserved.
# This file is part of "DicomPack". DicomReader is free software. You can
# redistribute it and/or modify it under the same terms as Perl itself.
##############################################################################

package DicomPack::Util::DicomAnonymizer;

use strict;
use warnings;

use DicomPack::IO::DicomReader;
use DicomPack::IO::DicomWriter;

our $VERSION = '0.95';

sub new
{
	my $classname = shift;
	my $self = {};
	bless $self, $classname;
	return $self;
}

# get dicom fields from DICOM data file
sub anonymize
{
	my $self = shift;

	my $infile = shift;
	my $outfile = shift;

	my $anonymizedFieldList = shift;

	my $reader = DicomPack::IO::DicomReader->new($infile);
	my $dicomFields = $reader->getDicomField();

	my $writer = DicomPack::IO::DicomWriter->new($dicomFields);
	while(my ($tagPath, $tagValue) = each(%$anonymizedFieldList))
	{
		if(my ($value,$vr) = $reader->getValue($tagPath))
		{
			$writer->setValue($tagPath, $tagValue, $vr);
		}
		else
		{
			print $tagPath." : does not exists in $infile!!!\n";
		}
	}
	$writer->flush($outfile);
}

1;

__END__