Here's what I use ...
#!/usr/bin/perl -w
# parrot - compile and run parrot assembly language
$srcfile = shift or die "usage: $0 PASMFILE\n";
($pbcfile = $srcfile) =~ s{\.pasm$}{.pbc}i;
system("perl assemble.pl $srcfile > $pbcfile && ./test_prog $pbcfile");
--
- run raptor
- Nathan Torkington
