Opened by Gast at 2007-06-29 13:53
User since
2007-06-29
1 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-06-29
1 Artikel
BenutzerIn
alles klar,
so dieses ausdruck tut was ich will,
meine txt Datei besteht aus vielen zeilen die so aussehen:
immer die erste Zeile die den muster erfüllt >gi...
und die zweite(können auch mehrere sein) mit gross Buchstaben
diese txt-datei(vorallem die erste zeile) möchte ich jetzt verändern(mittels den reg Ausdruck oben) in allesn zeilen wo s vorkommt.
ich glaub ich muss es in ein Array einlesen oder?
dann????
weiss dass ich ein andere Handle aufmachne muss mit >FILE um darin zuschrieiben aber ich kriegs nicht hin.
danke nochmal für die hilfe im voraus
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1183148240-->
so dieses ausdruck tut was ich will,
Code: (dl
)
$_ =~ s/^(gi\d+?)(\|.+?\|.+?\|)\s+?(.+?)/$1 ($2) $3/g;
meine txt Datei besteht aus vielen zeilen die so aussehen:
Code: (dl
)
1
2
3
4
5
6
7
>gi113|Histone K17di [Homo sapiens]
APAEKTPVKKGC
>gi11998|Histone K17di [Homo sapiens]
APAEKTPVKKGC
>gi1666|Histone K17di [Homo sapiens]
APAEKTPVKKGC
..etc
immer die erste Zeile die den muster erfüllt >gi...
und die zweite(können auch mehrere sein) mit gross Buchstaben
diese txt-datei(vorallem die erste zeile) möchte ich jetzt verändern(mittels den reg Ausdruck oben) in allesn zeilen wo s vorkommt.
ich glaub ich muss es in ein Array einlesen oder?
Code: (dl
)
1
2
3
4
5
6
7
8
9
my $myfile= 'C:/Documents and Settings/XXX/Desktop/YYY/test.txt';
open (FILE, "$myfile") || die "Can't open '$myfile': $!\n";
my @parse = <FILE>;
close(FILE);
foreach (@parse) {
chomp;
$_ =~ s/^(gi\d+?)(\|.+?\|.+?\|)\s+?(.+?)/$1 ($2) $3/g;
dann????
weiss dass ich ein andere Handle aufmachne muss mit >FILE um darin zuschrieiben aber ich kriegs nicht hin.
danke nochmal für die hilfe im voraus
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1183148240-->