Lines Matching refs:field
49 @field = split(' ');
50 if ($field[0] eq "\\1" || $field[0] eq "\\4") {
51 print " $field[2]\n";
53 elsif ($field[0] eq "\\2" || $field[0] eq "\\5") {
54 print " $field[2]\n";
56 @suffix_list = split(/,/, "$field[3]");
58 print " $field[2]$suffix\n";
61 elsif ($field[0] eq "\\3" || $field[0] eq "\\6") {
63 @suffix_list = split(/,/, "$field[3],$field[4]");
65 print " $field[2]$suffix\n";
70 @field = split(/&\s*/);
71 print " $field[1]\n";