Lines Matching refs:line
104 my $line;
121 $line = timegm(59, 59, 23, $3, $2 - 1, $1 - 1900, 0, 0, 0);
122 $line = int $line / 86400; # days relative to 1970
123 $first_day = "$1-$2-$3 ($line)" unless $day_out;
127 warn "Illegal number of fields in file $fname, line $.";
131 $_ = $Fld[1]; s/,/ /; $line .= " $_";
135 $line .= "$1 $lower_bound $upper_bound";
141 $line .= " $rms";
143 $line .= " $1 " . ($1-$2) . " " . ($1+$2);
144 $line .= " $Fld[8]";
145 print OUTPUT "$line\n";
251 my $line;
263 $line = timegm(59, 59, 23, $3, $2 - 1, $1 - 1900, 0, 0, 0);
264 $line = int $line / 86400; # days relative to 1970
265 $first_day = "$1-$2-$3 ($line)" unless $day_out;
269 warn "Illegal number of fields in file $fname, line $.";
275 $Fld[0] = $line;