SHARE
TWEET

Beiträge nach Drogen sortiert

a guest Mar 7th, 2015 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #/usr/bin/perl -w
  2.  
  3. #Dieses Modul sortiert die Tripberichte nach der Anzahl der Drogenart nur im Mischkonsum
  4.  
  5. $input = "../land_der_traeume_gesamtkorpus_CWB_fertig.vrt";
  6. $output = '../statistiken_nur_Mischkonsum.txt';
  7.  
  8. open(INPUT, "< $input");
  9. open(OUTPUT, "> $output");
  10.  
  11. my %hash;
  12.  
  13. while (<INPUT>) {
  14.         if ($_ =~ m/<text id=".+?" title=".*?" date=".+?" author=".*?" drug="Mischkonsum von (.*?)" set=".*?" setting=".*?" rating=".*?"/) {
  15.         $mische = $1;
  16.         @array = split(/\sund\s|,\s/,$mische);
  17.         foreach (@array) {
  18.                 $hash{$_}++;
  19.                 }
  20.         }
  21.         elsif ($_ =~ m/<text id=".+?" title=".*?" date=".+?" author=".*?" drug="(.*?)" set=".*?" setting=".*?" rating=".*?"/) {
  22.                 $drug = $1;
  23.                 $hash{$drug}++;
  24.         }
  25. }
  26.  
  27. print OUTPUT "Droge\tAnzahl\n";
  28.  
  29. foreach my $key (sort {$hash{$b} <=> $hash{$a}} keys %hash) {
  30.         print OUTPUT "$key\t$hash{$key}\n";
  31. }
  32.  
  33. print "Done!\n";
RAW Paste Data
Top