Return to display CVS log | Up to [local] / OpenXM_contrib / pari / config |
1.1 ! maekawa 1: if test -n "$perl"; then ! 2: echo $rep | $perl -e " ! 3: @input=split(/\s/,<>); \$len = \$#input + 3; ! 4: \$len = ( \$len - \$len % 3) / 3; ! 5: for(\$i=0;\$i<\$len;\$i++) { ! 6: printf qq( %-18s%-18s%-18s\n), ! 7: \$input[\$i], \$input[\$i+\$len], \$input[\$i+2*\$len]; ! 8: }" ! 9: else ! 10: echo $rep ! 11: fi