37 lines
865 B
Plaintext
37 lines
865 B
Plaintext
|
#!/usr/bin/perl -an
|
||
|
|
|
||
|
|
# field 1
|
||
|
|
# field 3,1
|
||
|
|
# field 6,2-3
|
||
|
|
# field 6-
|
||
|
|
# field 2,6-,2-3
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
@ranges = split(/,/, shift);
|
||
|
|
for (@ranges) {
|
||
|
|
/^(\d+)$/ and push (@fields,($1-1));
|
||
|
|
/^(\d+)-(\d+)$/ and push (@fields,($1-1) .. ($2-1));
|
||
|
|
/^(\d+)-$/ and do {
|
||
|
|
push (@fields,($1-1)." .. \$#F");
|
||
|
|
$must_eval = 1;
|
||
|
|
};
|
||
|
|
}
|
||
|
|
# Default: field 1
|
||
|
|
if(not @fields) { @fields=(1-1); }
|
||
|
|
# Perl counts from 0 - not from 1
|
||
|
|
$fields = join(",", @fields);
|
||
|
|
}
|
||
|
|
if($must_eval) {
|
||
|
|
if(not $Calc::f{$#F}) {
|
||
|
|
# Eval is expensive, so only do it if we have not done before
|
||
|
|
# If an argument ends in '-' then we must figure out the last field
|
||
|
|
# which depends on the number of fields in the line
|
||
|
|
$Calc::f{$#F}++;
|
||
|
|
@{$Calc::fields->{$#F}} = eval $fields;
|
||
|
|
}
|
||
|
|
print join(" ",@F[@{$Calc::fields->{$#F}}]),"\n";
|
||
|
|
} else {
|
||
|
|
print join(" ",@F[@fields]),"\n";
|
||
|
|
}
|
||
|
|
|