Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...
    print( (($lines && $lines%2) or ($lines>3 or $lines==3)) ? "G " : 
+"  ");
    print "\n";
}

Select or download this

$ perl t.pl
lines=0:
...
lines=2: A
lines=3: A B C   E F G
lines=4: A     D   F