![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
#!/usr/bin/perl open (TEXTDAT, "<test_datei") or die $!; @array = <TEXTDAT>; $anzahl_saetze = $#array; $x = 5; $merker = ""; @array_neu_2 = undef; while ($x<=$anzahl_saetze) { @array_neu = split(/!/, $array[$x]); $anstaendiger_zaehler = $x+1; $elemente = $#{@array_neu}; $y = 0; while ($y<=$elemente) { if ($y==1) { $hits = 0; $z = 1; if ($merker != $array_neu[$z]) { $merker = $array_neu[$z]; # $array_neu_2[$hits] = $merker; # print "$array_neu_2[$hits]\n"; $hits++; @array_neu_2 = $merker; } } $y++; } $x++; } print "@array_neu_2\n"
push(@array_neu2, $merker);
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl -w use strict; open TEXTDAT, '<', "text.txt" or die $!; <TEXTDAT> for 0..4; my $merker = ''; my @array; while( <TEXTDAT> ) { chomp; my @daten = split /!/, $_; if($merker != $daten[1]) { $merker = $daten[1]; $hits++; push @array, $merker; } } close TEXTDAT;
Struppi+2008-01-31 11:50:23--Code (perl): (dl )<TEXTDAT> for 0..4;
Struppi+2008-01-31 11:50:23--Code (perl): (dl )while( <TEXTDAT> ) {
1 2 3 4 5 6 7 8 9 10
while( my $line = <TEXTDAT> ) { chomp $line; my @daten = split( /!/, $line ); if($merker != $daten[1]) { $merker = $daten[1]; $hits++; push @array, $merker; } }
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
#!/usr/bin/perl use strict; use warnings; # besser als -w, weil es nur die aktuelle Datei betrifft my $file = "text.txt"; open( my $TEXTDAT, '<', $file ) or die "Error: couldn't open file '$file': $!"; <$TEXTDAT> for 0..4; # ok, weil for bei $_ einen alias auf den Wert enthält, der nach ende der Schleife "wiederhergestellt" wird. my $merker = ''; my @array; while( my $line = <$TEXTDAT> ) { chomp $line; my @daten = split( /!/, $line ); if($merker != $daten[1]) { $merker = $daten[1]; $hits++; push @array, $merker; } } close $TEXTDAT;
#Kein Kommentar+2008-01-31 12:30:05--Struppi+2008-01-31 11:50:23--Code (perl): (dl )<TEXTDAT> for 0..4;
was macht denn diese zeile?
öffnet die viermal das filehandle, aber wozu?
1 2 3 4 5 6
while ( my $line = <$handle> ){ # ignoriere die ersten 5 "Zeilen" next if ( $. <= 5 ); chomp $line; # ... }
#Kein Kommentar+2008-01-31 12:30:05--Struppi+2008-01-31 11:50:23--Code (perl): (dl )<TEXTDAT> for 0..4;
was macht denn diese zeile?
öffnet die viermal das filehandle, aber wozu?
#Kein Kommentar+2008-01-31 12:30:05--Struppi+2008-01-31 11:50:23--was macht denn diese zeile?Code (perl): (dl )<TEXTDAT> for 0..4;
öffnet die viermal das filehandle, aber wozu?
nepos+2008-01-31 08:34:26--Kann es sein, dass du in Zeile 27 eigentlich sowas willst:
Code (perl): (dl )push(@array_neu2, $merker);
![]() |
|< 1 2 >| | ![]() |
13 Einträge, 2 Seiten |