blob: 0d1a2d41ee79b08802284ee11d75b6249858047f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/perl -w
use strict;
if (scalar(@ARGV) < 1) {
print STDERR "usage: $0 <dsv-file>\n";
exit(1);
}
open(my $fh, '<', $ARGV[0]) or die "couldn't open $ARGV[0]: $!\n";
while (my $line = <$fh>) {
chomp($line);
my @fields = split(/\|/, $line);
print "'$fields[0]' (parameters: $fields[1]; default value: '$fields[2]')::\n $fields[3] (example: $fields[4])\n\n";
}
close($fh);
|
