Hi! I have an rss parser script for eggdrop (tcl calls for perl) and I wanted to modify it so that not only the very latest news can be printed, but all since the last printed to channel. To do that, I added a do-until cicle, but no matter what I do, it will only run once. 
sub pim_print()
{
($ize) = @_;
if (!($rss{$ize})) { return 0; }

($content) = &download("$rss{$ize}");
if ((!$content)) { return 0; }
$rss = new XML::RSS(encoding => 'ISO-8859-2');
eval { $rss->parse($content); };
$x = @{$rss->{items}};
$y=0;

do{
$title = "$rss->{items}[$y]->{title}";
$link = "$rss->{items}[$y]->{link}";
$desc = "$rss->{items}[$y]->{description}";
$result = "$title ($link)";
    $conv = Text::Iconv->new('UTF-8', 'ISO-8859-2');
    $result = &convert($result);
    $desc = &convert($desc);
    $link = &convert($link);
$izelast = "$ize"."last";
$izedesc = "$ize"."desc";

if (!(&test_last($file{$izelast},"$desc") == 1))
    {
    if ($y==0){
        &wr_last($file{$izelast},"$desc");
        &wr_last($file{$izedesc},"$desc");
        }
    print "$header{$ize}$y: $result";
    $y++;
    }
    } until &test_last($file{$izelast},"$desc") == 1;
}

[download]
Any ideaes?

20050726 Janitored by Corion: Exchanged PRE for CODE tags

In reply to rss parser by zsamboki

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.