Windows Problem mit Tie::File (gelöst) (Fragen zu Perl-Modulen)

[thread]17038[/thread]

Windows Problem mit Tie::File [gelöst]

Tags: windows Tie::File Ähnliche Threads

Leser: 10

Articles: hide open all | hide show old branches

+5 replies

Gast BlackSheep

2012-01-04 16:58

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 )

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)

+3 replies
pq

2012-01-04 17:04

User since
2003-08-04
12208 Artikel
Admin1

Guest BlackSheep
Einen wunderschönen!

Ich hab unter Windows 7 64 mit Tie::File folgendes Problem. Die If-Abfrage ob das Element im Array definiert ist liefert "false" obwohl ein Element vorhanden ist.

und woher weisst du das?

bzw. wenn du mit element vorhanden einfach meinst, dass es ein element mit diesem index gibt, dann heisst das ja nicht automatisch, dass es definiert ist.

sind die zeilenenden beim kopieren von ubuntu auf windows korrigiert worden?
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- Gast BlackSheep
  
  2012-01-04 17:14
  
  Oh man...
  
  Danke für den dezenten Hinweis mit den Zeilenenden, daran lag es!!!
  
  Ich bedanke mich für deine Hilfe...vor allem erklärt dies so einige komische Dinge die mein Script veranstaltet hat.
  Last edited: 2012-01-04 17:17:03 +0100 (CET)
  - GwenDragon
    
    2012-01-04 17:18
    
    User since
    2005-01-17
    14746 Artikel
    Admin1
    
    Dazu die Doku:
    
    https://metacpan.org/module/Tie%3A%3AFile#recsep
    recsep
    
    What is a 'record'? By default, the meaning is the same as for the <...> operator: It's a string terminated by $/, which is probably "\n". (Minor exception: on DOS and Win32 systems, a 'record' is a string terminated by "\r\n".) You may change the definition of "record" by supplying the recsep option in the tie call:
    
    Jeder Datensatz wird also mi 0x0A unter Linux und 0x0D 0x0A unter Windows abgeschlossen.
    Last edited: 2012-01-04 17:20:10 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

topeg

2012-01-04 17:49

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Trotzdem kannst du mehr Fehlermeldungen machen.
Und eine Parameterübergabe wäre vorteilhaft. Mit globalen Variablen zu spielen ist nicht schön.

Code (perl): (dl )

sub Read {
        # parameter übernehmen
        my $rls=shift();
        
        my $readseq = '';
        my $readname = '';
        my $file='C:\Users\Blub\Read\reads.fasta';
        if( tie(my @lines, 'Tie::File',$file) ){
                if( defined $lines[$rls] ) {
                        $readname = $lines[$rls-1];
                        $readname = substr( $readname, 0, 10 );
                        $readname =~ s/\D//g;
                        $readseq = $lines[$rls];
                        $rls += 2;
                }
                else{
                        if( $#lines < $rls ){
                                warn("Line $rls don't exists! There are only ".@lines." Lines!\n");
                        }
                        else{
                                warn("Line $rls is not defined!\n");
                        }
                        $switch = 'false';
                        $readname = 'false';
                }
                untie @lines;
        }
        else{
                warn("Can't tie File $file ($!)\n");
        }
        return( $readname, $readseq );
}

Wenn es dir wichtig ist, die Linux-Datei ohne Konvertierung weiter nutzen zu können mache in der Funktion vor dem tie:

Code (perl): (dl )

local $/="\x0A";

Damit wird der Recordseparator passend gesetzt.

View all threads created 2012-01-04 16:58.