Thread Windows Problem mit Tie::File (4 answers)
Opened by BlackSheep at 2012-01-04 16:58

Gast BlackSheep
 2012-01-04 16:58
#155251 #155251
Einen wunderschönen!

Ich hab unter Windows 7 64 mit CPAN:Tie::File folgendes Problem. Die If-Abfrage ob das Element im Array definiert ist liefert "false" obwohl ein Element vorhanden ist. In Ubuntu funktioniert das Script ohne Probleme und führt das "Else" auch erst aus, wenn das angesprochene Element des Arrays nicht definiert ist! Ich benutze Strawberry Perl ( V. 5.12.768 ) mit CPAN:Tie::File in der Version 0.97_02.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

sub Read {
        my $readseq = '';
        my $readname = '';
        tie my @lines, 'Tie::File','C:\Users\Blub\Read\reads.fasta' ;
                if( defined $lines[$rls] ) { # false und das stimmt nicht!!
                        $readname = $lines[$rls-1];
                        $readname = substr( $readname, 0, 10 );
                        $readname =~ s/\D//g;
                        $readseq = $lines[$rls];
                        $rls += 2;
                }
                else {
                        $switch = 'false';
                        $readname = 'false';
                }
        untie @lines;
        return( $readname, $readseq );
}


Ich hab absolut keine Ahnung warum das in Windows nicht klappt aber in Linux ohne Probleme läuft.
Last edited: 2012-01-04 17:01:11 +0100 (CET)

View full thread Windows Problem mit Tie::File