[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
    Dealz: stark reduzierte Angebote finden.

  3. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Biete Kleine Perl
  1. Antworten:
    0
    Aufrufe:
    2.340
  2. Antworten:
    1
    Aufrufe:
    5.168
  3. Antworten:
    0
    Aufrufe:
    4.587
  4. Antworten:
    3
    Aufrufe:
    436
  5. Antworten:
    3
    Aufrufe:
    541