/perl/etc


Ein paar Aufgaben, die wir eigentlich in Java lösen sollten...
aber in PERL ist es doch soooo viel kürzer ;)

perl -e "my($t,$z)=('',shift);for('K','M','G'){if($z>1024){$z/=1024;$t=$_;}}print $z,' ',$t,'B'\";" 100000

perl -e "for(1..10){for $x(1..10){print $_*$x,\"\t\";}print \"\n\";}"

Kommentare