Perl

Wechseln zu: Navigation, Suche

Mein erstes kleines Perl-Programm:


 #!/usr/bin/perl
 $satz="Jeder Vogel kann fliegen.";
 print "Nennen Sie ein Wort aus diesem Satz: \"$satz\"\n";
 $was=<STDIN>;
 chomp($was);
 if ((" ".$satz)=~ /(\s)$was([.]|\s)/i) {
   $_=$`;
   $anz=tr/a-zA-Z//;
   $anz+=tr/a-zA-Z//c;
   $anz=$anz-1;
   $anf=substr($`,1,$anz);
   $ende=$';
   $_=$&;
   $anz=tr/.//;
   s/\.//;
   s/(\w+)/<$1>/;
   if ($anz) {
     print "\"$anf$_$ende\.\"\n";
   }
   else {
     print "\"$anf$_$ende\"\n";
   }
 } 
 else {
   print "\"$was\" ist kein Wort aus dem Satz \"$satz\"\n";
 }