Perl
Chaostreff in Hildesheim
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"; }