1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
#!/usr/local/bin/perl
#
$program='../apps/dcmpsprt';
# set '[Database] Directory = /data/dicom-images/rsna99/results' in test.cfg for better performance
$options='-c test.cfg';
$source='/data/dicom-images/rsna99';
# this entry is only used for message output, see comment on test.cfg
$destination='/data/dicom-images/rsna99/results';
$img_ext='.img';
$pst_ext='.pres';
printf("Create hardcopy objects from images in $source\nand store results in $destination\n\n");
# first, collect a list of all files in the archive
printf("reading file list...\n");
@files = `find $source/*$img_ext -type f -print"`;
# then create a list of all files
$files_idx = 0;
for (@files)
{
if ($_ =~ /.*\/files$/)
{
$files[$files_idx++] = $_;
}
}
printf("creating hardcopy grayscale images...\n");
for (@files)
{
chop($_);
if ($_ !~ /.*\/files$/)
{
($basename) = ($_ =~ /$source(.*)$img_ext/);
printf("processing: $_\n");
`$program $options -p $source$basename$pst_ext $_`;
}
}
|