<?xml version='1.0'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:georss="http://www.georss.org/georss" xmlns:atom="http://www.w3.org/2005/Atom" >
<channel>
	<title><![CDATA[BOL: Perl script to read the next line of a file !]]></title>
	<link>https://bioinformaticsonline.com/snippets/view/43992/perl-script-to-read-the-next-line-of-a-file?</link>
	<atom:link href="https://bioinformaticsonline.com/snippets/view/43992/perl-script-to-read-the-next-line-of-a-file?" rel="self" type="application/rss+xml" />
	<description><![CDATA[]]></description>
	
	<item>
	<guid isPermaLink="true">https://bioinformaticsonline.com/snippets/view/43992/perl-script-to-read-the-next-line-of-a-file</guid>
	<pubDate>Mon, 17 Oct 2022 23:19:56 -0500</pubDate>
	<link>https://bioinformaticsonline.com/snippets/view/43992/perl-script-to-read-the-next-line-of-a-file</link>
	<title><![CDATA[Perl script to read the next line of a file !]]></title>
	<description><![CDATA[<code>my $line = &lt;$fileHandler&gt;;
while(1) { # keep looping until I say so
    my $nextLine = &lt;$fileHandler&gt;;

    if ($line =~ m/&gt;/ || !defined $nextLine) {
        ### Do the stuff
    }
    ### Do any other stuff;

    last unless defined $nextLine;
    $line = $nextLine;
}</code>]]></description>
	<dc:creator>Abhi</dc:creator>
</item>

</channel>
</rss>