Thread Zeile in Textdatei austauschen?? (26 answers)
Opened by Gast at 2006-04-25 11:09

renee
 2006-04-25 12:27
#65309 #65309
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Na klar. Es wird immer der Inhalt von $/ genommen. Unter Windows wird schon der richtige Zeilentrenner genommen. Du kannst aber auch immer händisch $/ nehmen. Das ist z.B. für FASTA-Dateien mehr als praktisch:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
{
   local $/ = "\n>";
   open(my $fh,'<',$fasta_file) or die $!;
   while(my $entry = <$fh>){
     chomp $entry;
     $entry = '>'.$entry unless(index($entry,'>') == 0);
     print "FASTA-Eintrag: $entry\n";
   }
   close $fh;
}


Genausogut kannst Du auf einem Unix-System auch "\r\n" für $/ angeben um Windows-Dateien einzulesen!

Edit: Nur falls Du es testen willst. So sieht eine FASTA-Datei aus:
Code: (dl )
1
2
3
4
5
6
7
>Accession_Nr
SEQUENCENOCHUNDNOCHJEDEMENGEAMINO
SAEUREN
>Accession_2
NOCHNESEQUENZDIEESEIGENTLICHNICHTGIBT
MITJEDERMENGEAMINOS
AEUREN
\n\n

<!--EDIT|renee|1145953838-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Zeile in Textdatei austauschen??