perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 25
 Click for quality!



11.02.2012 / 19:38
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitragformatierte Ausgabe
 Seitenanfang
Hallo,
ich habe folgenden Quellcode:


do
{
	$line = <FILE>;
	chomp($line);
	$zeile = $zeile+1;
	$byte = 0;
	for(my $z = 1; $z <= $Number[$zeile]; $z++)
	{
		printf DATEI ("%.4f\n", unpack("I", substr($line,$byte,4)) *$MultFact[$zeile]);
		$byte = $byte + 4;
	}
} until $zeile == $Anzahl || eof;

Ich lese dadurch aus einer Zeile einer Datei ganz viele Werte aus. Jetzt möchte ich aber, dass mir die Daten bei einem Zeilenwechsel in einer neuen Spalte ausgegeben werden.
Wie kann ich das realisieren?

Datum: 06.06.2007-11:02
Beitragre: formatierte Ausgabe
 Seitenanfang
Gibt sicher effizientere Varianten

#!/usr/bin/perl
  use strict;
  use warnings;
  my $max_cols = 0;
  my @rows;
  while(my $line = <DATA>) {
      chomp($line);
      my(@cols) = split('\s+', $line);
      $max_cols = scalar(@cols)
          if scalar(@cols) > $max_cols;
      push(@rows, \@cols);
  }
  for(my $col_idx = 0; $col_idx < $max_cols; $col_idx++) {
      for(my $row_idx = 0; $row_idx <= $#rows; $row_idx++) {
          print $rows[$row_idx]->[$col_idx], ' ';
      }
      print "\n";
  }
__DATA__
A1 A2 A3 A4
B1 B2 B3 B4
C1 C2 C3 C4
D1 D2 D3 D4

Datum: 11.06.2007-13:28
-






-
 -