File: conv

package info (click to toggle)
addressbook 0.7-13
  • links: PTS
  • area: main
  • in suites: potato
  • size: 960 kB
  • ctags: 160
  • sloc: tcl: 6,002; perl: 528; ansic: 362; awk: 205; sh: 123; makefile: 95
file content (25 lines) | stat: -rwxr-xr-x 369 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/gawk -f
# like this, you can move the contents of a addressfile, if you want
# to include a new field. (not very sophisticated, though)
#
# Attention: Index here begins with 1 whereas in addressbook,
# it begins with 0
#
BEGIN {FS=";";OFS=";"}
{
$18=$17
$17=$16
$16=$15
$15=$14
$14=$13
$13=$12
$12=$11
$11=$10
$10=$9
$9=$8
$8=$7
$7=$5
$5=$6
$6=""
print $0
}