exit
}
- when ([qw/GOLFSCRIPT JULIA PERL PYTHON RUBY SBCL/]){
+ when ([qw/GOLFSCRIPT JULIA PERL PHP PYTHON RUBY SBCL/]){
open IN, '<', $name;
open OUT, '>', $basename;
- print OUT "#!/usr/bin/golfscript\n" if $_ eq 'GOLFSCRIPT';
- print OUT "#!/usr/bin/julia -O\n" if $_ eq 'JULIA';
- print OUT "#!/usr/bin/perl\n" if $_ eq 'PERL';
- print OUT "#!/usr/bin/python\n" if $_ eq 'PYTHON';
- print OUT "#!/usr/bin/ruby\n" if $_ eq 'RUBY';
- print OUT "#!/usr/bin/sbcl --script\n" if $_ eq 'SBCL';
+ print OUT "#!/usr/bin/golfscript\n" if $_ eq 'GOLFSCRIPT';
+ print OUT "#!/usr/bin/julia -O\n" if $_ eq 'JULIA';
+ print OUT "#!/usr/bin/perl\n" if $_ eq 'PERL';
+ print OUT "#!/usr/bin/php -d ONLINE_JUDGE=true\n" if $_ eq 'PHP';
+ print OUT "#!/usr/bin/python\n" if $_ eq 'PYTHON';
+ print OUT "#!/usr/bin/ruby\n" if $_ eq 'RUBY';
+ print OUT "#!/usr/bin/sbcl --script\n" if $_ eq 'SBCL';
print OUT while <IN>;
close OUT;
close IN;
cp $input $output
+=item PHP
+
+ cp $input $output
+
=item PYTHON
cp $input $output