The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
DicomPack-0.95
River stage one • 2 direct dependents • 2 total dependents
1 ++
/ DicomPack::Util::DicomAnonymizer

NAME

DicomAnonymizer - A module to anonymize Dicom files

SYNOPSIS

    use DicomPack::Util::DicomAnonymizer;

    # get a DicomAnonymizer object
    my $anonymizer  = DicomPack::Util::DicomAnonymizer->new();

    # input and output Dicom files
    my $inDicomFile = "your dicom file";
    my $outDicomFile = "anonymized dicom file";

    # anonymize PatientName and PatientID
    $anonymizer->anonymize($inDicomFile, $outDicomFile, 
                        {PatientName=>"NewPatientName", PatientID=>"NewPatientID"});

DESCRIPTION

This module anonymize (or change) the values of specified Dicom fields.

Methods

new

Returns a new DicomAnonymizer object.

anonymize

Anonymize the specified dicom fields with new values.

Input parameter(s):

  1. A path to a to-be-anonymized dicom file

  2. A path to the output anonymized dicom file

  3. A hash reference (format: DicomFieldName=>"NewValue", DicomFieldName is the Dicom tag path pointing to the dicom field whose value will be set to NewValue).

AUTHOR

Baoshe Zhang, Medical School, Virginia Commonwealth University.

2 POD Errors

The following errors were encountered while parsing the POD:

Around line 93:

'=item' outside of any '=over'

Around line 120:

You forgot a '=back' before '=head1'