Treball de Bioinformàtica

# !/usr/bin/perl -w
use strict;
my %matrius;
my $file;
$file = $ARGV[0];
open PEPE,"$ARGV[0]"or die"file $ARGV[0] NO EXISTE\n";
while (<PEPE>) {
if(m/MatScan\s+(.*?)\s/){
if (defined $matrius{$1}){
$matrius{$1}=$matrius{$1}+1;
}
else {$matrius{$1}=1}
}
}
my @k = keys(%matrius);
map{print "$_ : $matrius{$_}\n";}@k;