Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #/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";
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement