Opened by PatrickS at 2004-12-27 15:24
User since
2003-12-04
285 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-12-04
285 Artikel
BenutzerIn
Meine obige Version, etwas kürzer:
Ansatz ist, dass es beliebig wieviele durch Komma getrennte unwichtig=wichtig Paare in einer Zeile sein dürfen...
@Taulmarill:
Habe mal gelesen, dass man einen DH auch zum lesen und schreiben öffnen kann. Á la open (DATA, '+<test\old_data.txt') || die $!; Aber irgendwie geht das nicht. Er liest die Daten aber schreibt nicht zurück sondern löscht sie nur in der *.txt (?)
Edit: vertippt...\n\n
<!--EDIT|Alex|1104202229-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
my (@old_data, @new_data);
open (DATA, '<test\old_data.txt') || die $!;
while (<DATA>) { push (@old_data, $_) };
close DATA;
foreach (@old_data) {
my @line = /=(\w+)/g;
my $family = join(' ', @line);
push @new_data, $family;
};
foreach (@new_data) { print "$_\n"} # Wie bei renee, nur zum kucken...
Ansatz ist, dass es beliebig wieviele durch Komma getrennte unwichtig=wichtig Paare in einer Zeile sein dürfen...
@Taulmarill:
Habe mal gelesen, dass man einen DH auch zum lesen und schreiben öffnen kann. Á la open (DATA, '+<test\old_data.txt') || die $!; Aber irgendwie geht das nicht. Er liest die Daten aber schreibt nicht zurück sondern löscht sie nur in der *.txt (?)
Edit: vertippt...\n\n
<!--EDIT|Alex|1104202229-->
<center>Schönen Gruß, Alex
Mit dem Computer geht alles viel schneller - es dauert nur ein bißchen länger!</center>
Mit dem Computer geht alles viel schneller - es dauert nur ein bißchen länger!</center>