UMBC CMSC 651, Automata Theory & Formal Languages,
Spring 2003, Section 0101
A Perl program that prints itself
<![CDATA[
#!/usr/bin/perl
$B = '$slash = "\x5C" ;
print "#!/usr/bin/perl\n\n" ;
$C = $B ;
$C =~ s/\'/$slash\'/g ;
print "\$B = \'$C\' ;\n" ;
print "$B\n" ;' ;
$slash = "\x5C" ;
print "#!/usr/bin/perl\n\n" ;
$C = $B ;
$C =~ s/'/$slash'/g ;
print "\$B = '$C' ;\n" ;
print "$B\n" ;
]]>
Last modified: 01 Apr 2003 15:28:22 EST
by
Richard Chang,
chang@umbc.edu
to Spring 2003 CMSC 651 Homepage