Beiträge nach Drogen sortiert

#/usr/bin/perl -w

#Dieses Modul sortiert die Tripberichte nach der Anzahl der Drogenart nur im Mischkonsum

$input = "../land_der_traeume_gesamtkorpus_CWB_fertig.vrt";
$output = '../statistiken_nur_Mischkonsum.txt';

open(INPUT, "< $input");
open(OUTPUT, "> $output");

my %hash;

while (<INPUT>) {
    if ($_ =~ m/<text id=".+?" title=".*?" date=".+?" author=".*?" drug="Mischkonsum von (.*?)" set=".*?" setting=".*?" rating=".*?"/) {
    $mische = $1;
    @array = split(/\sund\s|,\s/,$mische);
    foreach (@array) {
        $hash{$_}++;
        }
    }
    elsif ($_ =~ m/<text id=".+?" title=".*?" date=".+?" author=".*?" drug="(.*?)" set=".*?" setting=".*?" rating=".*?"/) {
        $drug = $1;
        $hash{$drug}++;
    }
}

print OUTPUT "Droge\tAnzahl\n";

foreach my $key (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
    print OUTPUT "$key\t$hash{$key}\n";
}

print "Done!\n";