Have a quick question, the answer for which seems to be obvious, but just wanting to check and maybe hope I'm wrong. 

#!/usr/bin/perl
use strict; use warnings;
use P; 

my $intxt;
$intxt = << 'TXT' ;
<package type="rpm">
  <name>7kaa-music</name>
  <url>http://7kfans.com/</url>
TXT
;

sub REindex($$;$) {   #like 'index', except substr is RE
  my ($str,$ss)=(shift, shift);
  my $p = @_ ? shift:0;
  $str =~ m{^.{$p,$p}($ss+)} ? length $1 : -1;
}

my @lines=split "\n", $intxt;

my $ln;
my $lineno=0;

sub getln() {
  return $lineno<@lines ? $lines[$lineno++] : undef;
}

my $ttag;

  sub getnxt_tagln(); local * getnxt_tagln;
  *getnxt_tagln = sub () {
    do {
      $_=getln();
      defined $_ or return undef;
    } until m{^\s*<(/?\w+)};
    $ttag=$1;
  };

  my $tag;
 NXTPKG:
  while (getnxt_tagln()) {      # why '$1' null?
    $ln = $_; $tag = $1;
    Pe "_=%s, ttag=%s, tag=%s", $_, $ttag, $tag;
  }
# vim: ts=2 sw=2 ai number

[download]
My question concerns the comment after the NXTPKG line: why '$1' null (∄)?

When I run this: 

_=<package type="rpm">, ttag=package, tag=∄;
_=  <name>7kaa-music</name>, ttag=name, tag=∄;
_=  <url>http://7kfans.com/</url>, ttag=url, tag=∄;

tag is null/undef when I get out of my inline-sub. I can get around it by assigning $1 to $ttag, but I don't have any other Regex's that should be clearing '$1'. Seems a bit weird to have the end of a local sub clear '$1', yet that seems to be what is happening. Why? What was the logic of forcing/doing that?

tnx!

In reply to why is $1 cleared at end of an inline sub? by perl-diddler

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.