Lines Matching refs:parts
190 my @parts = split /\./,$_[0];
191 if (scalar @parts != 4)
196 $parts[2]++;
198 return "$parts[0].$parts[1].$parts[2].$parts[3]";
206 my @parts = split /[\.-]/,$_[0];
207 if (scalar @parts != 8)
213 $parts[6]++;
214 return "$parts[0].$parts[1].$parts[2].$parts[3]-$parts[4].$parts[5].$parts[6].$parts[7]";
220 my @parts = split /\./,$_[0];
221 if (scalar @parts != 4)
226 $parts[0]++;
228 return "$parts[0].$parts[1].$parts[2].$parts[3]";