t/problems/hello/tests/php/prog.php
t/problems/hello/tests/python/meta.yml
t/problems/hello/tests/python/prog.py
+t/problems/hello/tests/python3/meta.yml
+t/problems/hello/tests/python3/prog.py
t/problems/hello/tests/ruby/meta.yml
t/problems/hello/tests/ruby/prog.rb
t/problems/hello/tests/rust/meta.yml
exit
}
- when ([qw/GOLFSCRIPT JULIA PERL PHP PYTHON RUBY SBCL/]){
+ when ([qw/GOLFSCRIPT JULIA PERL PHP PYTHON PYTHON3 RUBY SBCL/]){
open IN, '<', $name;
open OUT, '>', $basename;
print OUT "#!/usr/bin/golfscript\n" if $_ eq 'GOLFSCRIPT';
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/python2.7\n" if $_ eq 'PYTHON';
+ print OUT "#!/usr/bin/python3\n" if $_ eq 'PYTHON3';
print OUT "#!/usr/bin/ruby\n" if $_ eq 'RUBY';
print OUT "#!/usr/bin/sbcl --script\n" if $_ eq 'SBCL';
print OUT while <IN>;