-sub open_compressed_file {
- my ($file) = @_;
- my $fh;
- my $mode = '<:encoding(UTF-8)';
- my @opts;
- if ($file =~ /\.gz$/) {
- $mode = '-|:encoding(UTF-8)';
- push @opts,'gzip','-dc';
- }
- if ($file =~ /\.xz$/) {
- $mode = '-|:encoding(UTF-8)';
- push @opts,'xz','-dc';
- }
- if ($file =~ /\.bz2$/) {
- $mode = '-|:encoding(UTF-8)';
- push @opts,'bzip2','-dc';
- }
- open($fh,$mode,@opts,$file);
- return $fh;
-}
-