#!/usr/bin/perl -c #Copyright (C) Quinn Weaver, 2000. Distribute under the Artistic Lice +nse. use Carp; confess ('I may be biased...'); after ('a', $night); without + $sleep; coding ($C); &complain; print <<that_sucked; ( :-( ); that_sucked $but, $i; package the_C_mentality; $into->a_few_words; eval ($C) and realize(); no C_mentality; is_useful; for (;$gettingThingsDone;){ break OUT_OF; $this, system ('of', $mental{oppression}); foreach $idiom (@the_C_pantheon) { eval $idiom; require 'some explanation'; for ($idiom;;){ if ($idiom->is_good){ use it_in_Perl ('instead');} if ($idiom->is_bad){ carp "No surprise there."; if ($idiom->is_awkward and $pointless or (['even', 'dangerous'])){ warn "$the_world: Yet another pointless C'ism"; delete $idiom{''} ;} }}}} return 'to_coding_Perl';
In reply to I Hate C, part I by Q*bert
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |