[Biete] Kleine Perl Spielerei (Speed messen)

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von nigger2k, 29. Juli 2005 .

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 29. Juli 2005
    So
    hier mal eine kleine Perl Spielerei gemacht.

    Kalkuliert wie lange es dauert bei welchem Speed.

    Beispiel:
    Code:
    C:\Perl\bin>perl -w ..\speedmeter.pl
    Wieviele KBits hast du: viel
    viel ist keine Zahl
    Gib eine Zahl ein: wenig
    wenig ist keine Zahl
    Gib eine Zahl ein: 6016
    Wieviele Megabyte moechtest du saugen: viel
    viel ist keine Zahl
    Gib eine Zahl ein: wenig
    wenig ist keine Zahl
    Gib eine Zahl ein: 700
    Wenn du mit 6016 KBits 700 MB saugen moechtest dauert das 15.51 min
    Wenn du mit 6016 KBits 700 MB saugen moechtest dauert das 0.26 std
    Code:
    Code:
    print "Wieviele KBits hast du: ";
    $kbits = <stdin>;
    chomp($kbits);
    while ($kbits !~ /^\d+$/) {
    print "\"$kbits\" ist keine Zahl\n";
    print "Gib eine Zahl ein: ";
    $kbits = <stdin>;
    chomp($kbits);
    }
    print "Wieviele Megabyte moechtest du saugen: ";
    $saugmb = <stdin>;
    chomp($saugmb);
    while ($saugmb !~ /^\d+$/) {
    print "\"$saugmb\" ist keine Zahl\n";
    print "Gib eine Zahl ein: ";
    $saugmb = <stdin>;
    chomp($saugmb);
    }
    $ergebnis = ($saugmb * 1000)/($kbits / 8)/60;
    $ergebnis = sprintf("%.2f",$ergebnis);
    $ergebnis2 = ($saugmb * 1000)/($kbits / 8)/3600;
    $ergebnis2 = sprintf("%.2f",$ergebnis2);
    print "Wenn du mit $kbits KBits $saugmb MB saugen moechtest dauert das $ergebnis min\n";
    print "Wenn du mit $kbits KBits $saugmb MB saugen moechtest dauert das $ergebnis2 std\n";
    Script ist komplett von mir!
    Gebt eure Statements ab (Ich bin noch ein Perl Beginner.. ;))
    Wenn das ein Kinderscheiß ist und ich sowas nicht mehr posten soll dann tut es mir auch leid und ich werde es in Zukunft unterlassen!
     

  2. Anzeige

  3. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Biete Kleine Perl
  1. Antworten:
    0
    Aufrufe:
    4.337
  2. Antworten:
    0
    Aufrufe:
    2.597
  3. Antworten:
    1
    Aufrufe:
    10.014
  4. Antworten:
    3
    Aufrufe:
    404
  5. Antworten:
    3
    Aufrufe:
    512