Die höchste Zahl ermitteln - #135216 (Allgemeines zu Perl)

topeg

2010-03-24 14:13

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

2010-03-24T09:43:28 GwenDragon
Na, die Berechnung eines Maximums von Werten gehört doch zu den ersten Lernaufgaben beim Programmieren, so war das jedenfalls oft in Fortbildungen und Unis.

Nun ja meine erste Aufgabe war "Hello Word"
und meine Lösung:

Code (perl): (dl )

#!/usr/bin/perl
  use   strict;
  use warnings   ;  ;
  seek (  DATA, 0,    0 ); <DATA>;
  # ein  kleines Script,   das nicht viel macht
  while( <DATA>  ) { chomp ;
   last()if(eof(DATA));
  $_  =~  s/ \S+/1/g ;
  $_ =  substr($_.(' 'x8),0,8); $_=~y/ /0/;
  print pack (   'B8',  $_);
  print ""  ; }
  print "\n"   ;#   von ToPeG
__DATA__

Waren sechs entspannte Wochen. :-)