kulp · July 19, 2010 19:24
diff --git a/findfield.pl b/findfield.pl
 #!/usr/bin/env perl
 use strict;

 my @n = sort { $a <=> $b } @ARGV;
 my %n = map { $_ => 1 } @n;
 my $line = <STDIN>;
 for my $i (0 .. $n[-1]) {
    print 0 + pos $line, " " if $n{$i};
    $line =~ /\G\s+X+/gc;
 }

 print "\n";
	#!/usr/bin/env perl
	use strict;

	my @n = sort { $a <=> $b } @ARGV;
	my %n = map { $_ => 1 } @n;
	my $line = <STDIN>;
	for my $i (0 .. $n[-1]) {
	print 0 + pos $line, " " if $n{$i};
	$line =~ /\G\s+X+/gc;
	}

	print "\n";