Lines Matching refs:line
55 line => '$',
158 my $line = readline ( $obj->FILEHANDLE );
159 if ( $line eq undef )
165 …$line =~ /^(([^\t]*)\t([^\t]*)[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t]*\t[^\t…
168 $obj->line ( $1 );
175 $obj->line ( "" );
188 my $line = readline ( $obj->FILEHANDLE );
189 if ( $line eq undef )
195 $line =~ /^(([^\t]*)\t([^\t]*).*)/o ;
198 $obj->line ( $1 );
205 $obj->line ( "" );
286 $plainline=$elem->line;