[BACK]Return to display CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / pari-2.2 / config

File: [local] / OpenXM_contrib / pari-2.2 / config / Attic / display (download)

Revision 1.1, Tue Oct 2 11:16:55 2001 UTC (22 years, 8 months ago) by noro
Branch: MAIN

Initial revision

if test -n "$perl"; then
  echo $rep | $perl -e "
     @input=split(/\s/,<>); \$len = \$#input + 3;
     \$len = ( \$len - \$len % 3) / 3;
     for(\$i=0;\$i<\$len;\$i++) {
       printf qq(      %-18s%-18s%-18s\n),
         \$input[\$i], \$input[\$i+\$len], \$input[\$i+2*\$len];
     }"
else
  echo $rep
fi