Hallo zusammen. Habe gerade damit begonnen mir Perl bei zu bringen und stecke jetzt in einem Skript fest. Ich möchte Daten aus einer Textdatei splitten und aus dem mit den substrings befüllten Array ein ganz bestimmtes Wort rausholen. Das Splitten funktioniert (hab ich seperat getestet). Dass Wort, das ich suche ist im 8. substring, heißt "GeneID" und liegt immer zwischen anderen Werten. Also wie gesagt, bis zum splitten funktionierte es noch, aber jetzt muss irgendwo ein Fehler drin sein:
#!/usr/bin/perl
use strict;
use warnings;
my $in;
my $data;
my @array;
my $key;
my $slice;
my $array;
open $in, '<', "Genomteil.gff" or die $!;
while ($data = <$in>) {
chomp $data;
@array = split(/\t/, $data);
$slice = ($array [8] => ~/\bGeneID\b/i);
}
print $slice;
close $in;
Würd mich freuen, wenn jemand einen Tipp hätte.
LG
#!/usr/bin/perl
use strict;
use warnings;
my $in;
my $data;
my @array;
my $key;
my $slice;
my $array;
open $in, '<', "Genomteil.gff" or die $!;
while ($data = <$in>) {
chomp $data;
@array = split(/\t/, $data);
$slice = ($array [8] => ~/\bGeneID\b/i);
}
print $slice;
close $in;
Würd mich freuen, wenn jemand einen Tipp hätte.
LG