Perl Übungsaufgabe

[NOE_2.0]

Hallo Leute,

Hier habe ich eine Kleine Übungsaufgabe!
Es ist ein ganz kleies Tool das Berechnet wie lange es dauer von Rapidshar zu laden

Wer will kann das ganze noch ein bisschen verbessern oder in anderen Sprachen schreiben.

Lösung


#!/usr/bin/perl
#Dieser Downloadzeitberechner wurde von "NEO_2.0" Geschriben
#Bei Fragen hi-sers@web.de
print "----------------------------------------------------------------------------\n";
print "\n";
print " Rapidsharedownloadzeitberechner C0ded By NEO_2.0 \n";
print "\n";
print "----------------------------------------------------------------------------\n";
print "Geben Sie die Größe des einzelnen Downloadparts in MB an :\n";
$dgr = <STDIN>;
print "Geben Sie die Anzahl ader Parts an :\n";
$pz = <STDIN>;
print "Geben Sie die Wartezeit zwischen jedem Download in Sekunden an :\n";
$wzzp = <STDIN>;
print "Gebens Sie die Downloadgeschwindokgeit an in Kb/s :\n";
$dgw = <STDIN>;
$dgrap = $dgr * $pz;
$dgrkb = $dgrap * 1000;
$dz = $dgrkb / $dgw;
$zz = $wzzp * $pz;
$dzm = $dz / 60;
$dzh = $dzm / 60;
$dz0 = $dz + $wzzp;
$wzzpm = $wzzp /60;
$wzzph = $wzzpm /60;
$dzm0 = $dzm + $wzzpm;
$dzh0 = $dzh + $wzzph;
print "\n";
print "\n";
print "Ihr Download dauert :\n";
print "\n";
print "Free Account :\n";
print "-------------------\n";
print $dz0, " Sekunden\n";
print $dzm0, " Minuten\n";
print $dzh0, " Stunden\n";
print "\n";
print "\n";
print "Premium Account :\n";
print "------------------\n";
print $dz, " Sekunden\n";
print $dzm, " Minuten\n";
print $dzh, " Stunden\n";
print "\n";
print "\n";
print "Wartezeit in Sekunden :\n";
print $zz, "\n";
print "\n";
print "Downloadgeschwindigkeit in KB/s :\n";
print $dgw;
print "\n";
print "\n";
print "Anzahl der Parts :\n";
print $pz, "\n";
print "------------------------------------\n";
print "Größe aller Parts in MB :\n";
print $dgrap, "\n";
print "\n";
print "Gröse eines Enzelnen Parts in MB :\n";
print $dgr, "\n";
print "------------------------------------\n";
print "Downloadzeit einzeler Part :\n";
$dgrep = $dgr * 1000;
$dzeps = $dgrep / 60;
$dzepm = $dzeps / 60;
$dzeph = $dzepm / 60;
print "------------------------------------\n";
print $dzeps, " Sekunden\n";
print $dzepm, " Minuten\n";
print $dzeph, " Stunden\n";
print "------------------------------------\n";
print "\n";
print "C0ded By NEO_2.0\n";
print "Fragen hi-sers@web.de\n";
print "\n";
print "------------------------------------\n";

[AlterHacker]

Verbesserungsvorschlag:

$dgrap = $dgr * $pz;
$dgrkb = $dgrap * 1000;
$dz = $dgrkb / $dgw;
$zz = $wzzp * $pz;
$dzm = $dz / 60;
$dzh = $dzm / 60;
$dz0 = $dz + $wzzp;
$wzzpm = $wzzp /60;
$wzzph = $wzzpm /60;
$dzm0 = $dzm + $wzzpm;
$dzh0 = $dzh + $wzzph;
- Wenn du da in 2 Monaten nochmal reinguckst kommst du erstmal nicht mehr klar.
Kommentieren (hier noch nicht zwingend notwendig) + Aussagekräftige Variabelnamen verwenden!

[NOE_2.0]

Okay Ich habe auch einen anderen Fehler gefunden

Ich Reup den C0de wenn ich wieder vom Urlaub zurüch bin