C-Perl

#define shift main
#define or (
#define eval )
shift or eval {printf("Hello, World\n");}
[download]

Useage:

neil@gimp:~$ gcc perlc.c; ./a.out
Hello, World
neil@gimp:~$ perl perlc.c
Hello, World
[download]

Neil Archibald

Comment on C-Perl Select or Download Code

Replies are listed 'Best First'.
Re: C-Perl by DrHyde (Prior) on May 12, 2004 at 10:45 UTC
Also look at the -P switch.	[reply]
Re: C-Perl by awwaiid (Friar) on May 23, 2004 at 23:00 UTC
This is called a Polyglot (see also Quine) -- (see wikipedia). Also see http://ideology.com.au/polyglot/ for a program written in COBOL, Pascal, Fortran, C, Postscript, Shell (bash), x86, and, last but not least, Perl. Super fun :)	[reply]
Re: C-Perl by andyf (Pilgrim) on May 16, 2004 at 05:59 UTC
Nice. I'd like to see one that can pass C, Bash, Perl and Ada, I believe it would be possible. Andy.	[reply]