Skip to content

Instantly share code, notes, and snippets.

@cho45

cho45/basic.pl

Created July 26, 2010 13:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cho45/490525 to your computer and use it in GitHub Desktop.
Save cho45/490525 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
basic.pl
#/usr/bin/perl
BEGIN { use Filter::Simple sub { my $l = 2; s{^}{$l++; ";L$l:\t";}gme; }; __PACKAGE__->import };
$i++;
sleep 0.5;
goto L25=> if $i > 30;
goto L15=> if $i % 15 == 0;
goto L18=> if $i % 5 == 0;
goto L21=> if $i % 3 == 0;
print $i, "\n";
goto L3=>;
print "Fizz Buzz\n";
goto L3=>;
print "Buzz\n";
goto L3=>;
print "Fizz\n";
goto L3=>;
__END__
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment