As others have said you've not supplied enough information, but this may get you started:
use strict;
use warnings;
use Data::Dumper;
my @strs =
(
'/Workstation_X_X/<someotherpath>/filename.xxx',
'/Workstation_X_X/<someotherpath>/filename.xxx',
'/Workstation_X_X/<someotherpath>/filename.yyy'
);
my %unique;
@unique {@strs} = ();
print Dumper (\%unique);
Prints:
$VAR1 = {
'/Workstation_X_X/<someotherpath>/filename.xxx' => undef,
'/Workstation_X_X/<someotherpath>/filename.yyy' => undef
};
Perl is Huffman encoded by design.
|