#!/usr/bin/perl## Take a piece of C code and for each line which contains the sequence $$# repeat n times with $ replaced by 0...n-1; the sequence $# is replaced# by the unrolling factor, and $* with a single $#($n)=@ARGV;$n+=0;while(defined($line=<STDIN>)){if($line=~/\$\$/){$rep=$n;}else{$rep=1;}for($i=0;$i<$rep;$i++){$tmp=$line;$tmp=~s/\$\$/$i/g;$tmp=~s/\$\#/$n/g;$tmp=~s/\$\*/\$/g;print$tmp;}}