Länge der Daten in kB (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]19855[/thread]

Länge der Daten in kB [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+13 replies
ITobiI

2015-10-22 18:51
User since
2015-09-10
70 Artikel
BenutzerIn
Hi,

ich hab da folgendes Problem:
ich möchte eine 4 MB große Datei vom Client zum Server senden und benutze unter anderem
Code: (dl )

$length = length($data);
Aber wenn ich mir den Wert welchen $length enthält anzeigen lasse, dann wird mir angezeigt das $length den Wert 4 kB enthält. Offenbar gibt mir length() die Daten nicht in Byte, sondern in kB an. Und $length mit 1000 zu multiplizieren bringt auch nichts...könnte mir bitte jemand helfen?
Danke im voraus :)
- GUIfreund
  
  2015-10-22 19:10
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  Kommt das Richtige heraus, wenn du mit 1024 multiplizierst? Falls nicht - was meinst du genau mit "bringt auch nichts"?
  Gruß
  GUIfreund
- +3 replies
- GwenDragon
  
  2015-10-22 19:27
  User since
  2005-01-17
  14532 Artikel
  Admin1
  length zeigt die Anzahl der Zeichen in einem Skalar an! Also nicht KBbytes sondern Bytes!
  
  Zum Beweis, dass du Unrecht hast:
  
  Code: (dl )
  
  1 2
  
  my $data = join '',('#'x4096); # erzeugt einen Skalar mit Länge 4096 Zeichen print length $data;
  
  ergibt:
  4096
  Last edited: 2015-10-22 19:34:42 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - ITobiI
    
    2015-10-22 19:59
    
    User since
    2015-09-10
    70 Artikel
    BenutzerIn
    
    @GUIfreund: Damit meine ich wenn ich $length mit 1000 multipliziere, also so zu sagen von kB in Byte umrechne, das das nicht funktioniert.
    
    @GwenDragon: Ja ich hab mich ja auch gewundert. Aber wieso sagt mir length() das die Länge eines Skalars, in welches ich eine Datei mit 4*10^6 Zeichen eingelesen hab, 4000 ist?
    - GwenDragon
      
      2015-10-22 20:06
      
      User since
      2005-01-17
      14532 Artikel
      Admin1
      
      Du hast garantiert nicht 4 MB eingelesen sondern nur 4 KB!
      
      Wenn du sowas gemacht hast:
      
      Code: (dl )
      
      1 2
      
      open FH, "<", "blahblubb.file"; read FH,$buffer,4096;
      
      dann sind im $buffer nur 4 KB.
      Last edited: 2015-10-22 20:09:45 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- Gast wer
  
  2015-10-22 23:30
  Beachten in welcher Kodierung der String ist!
  Wenn der String ein perl-utf8 String ist dann ergibt length die Anzahl der Zeichen im String nicht die Anzahl der Bytes. (z.B "ä" sind zwei Bytes in UTF-8 aber length("ä") gibt "1")
  Siehe dazu:
  
  Code: (dl )
  
  perldoc utf8
  
  Last edited: 2015-10-22 23:33:36 +0200 (CEST)
  - ITobiI
    
    2015-10-23 08:29
    User since
    2015-09-10
    70 Artikel
    BenutzerIn
    
    Ich habe die Daten so eingelesen und danach die Länge ermittelt:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    #Datei in Skalar einlesen open($FH, "<", "/root/Documents/Socket-Programmierung_2/Datei/test.txt") or die $!; binmode $FH; $daten = <$FH>; $length = length($daten);
    
    Also offenbar kann ich nicht unbedingt mit length() die Anzahl der Bytes eines Skalars ermitteln. Aber wie kann ich den die Anzahl der Bytes in einem Skalar ermitteln bzw. alle Zeichen in ein Skalar einlesen?
    Last edited: 2015-10-23 09:24:06 +0200 (CEST)
- +6 replies
- GwenDragon
  
  2015-10-23 09:54
  User since
  2005-01-17
  14532 Artikel
  Admin1
  Wenn du mit binmode arbeitest und es sich nicht um eine Textdatei handelt, dann muss auch noch der Datensatztrenner mit $/ ausgeschaltet werden, sonst stoppt Perl nach dem ersten \n mit dem einlesen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $daten; { local $/ = undef; binmode $FH; $daten = <$FH>; }
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +5 replies
  - ITobiI
    
    2015-10-23 12:46
    
    User since
    2015-09-10
    70 Artikel
    BenutzerIn
    
    Dankeschön GwenDragon :) Eine Frage hät ich noch: Wie kann ich an ein Skalar ein oder eine bestimmte Anzahl von Leerzeichen anhängen? Ich wollte nicht extra nen neuen Thread eröffnen...
    - +4 replies
    - GwenDragon
      
      2015-10-23 13:30
      
      User since
      2005-01-17
      14532 Artikel
      Admin1
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my $skalar = "Blah Blubb. Tim Towdy loves Perl"; my $anzahl = 10; $skalar = $skalar . (" " x $anzahl); # Anzahl mal Leerzeichen anhängen # oder an Skalar 42 mal ! anhängen $skalar = $skalar . ("!" x 42);
      
      Last edited: 2015-10-23 13:32:59 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +3 replies
      - ITobiI
        
        2015-10-23 14:12
        
        User since
        2015-09-10
        70 Artikel
        BenutzerIn
        
        Dankeschön :) Jetzt läuft es so wie es soll :)
        
        +2 replies
        
        GwenDragon
        
        2015-10-23 14:53
        
        User since
        2005-01-17
        14532 Artikel
        Admin1
        
        Dann bitte als gelöst setzen, oben mit dem grünen Haken bei "Thread als gelöst markieren:" ;)
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        ITobiI
        
        2015-10-23 15:42
        
        User since
        2015-09-10
        70 Artikel
        BenutzerIn
        
        Wollt ich grad machen, hab nur vor lauter Euphorie nicht dran gedacht ;)

View all threads created 2015-10-22 18:51.