Dotaz: Perl a uninitialized value

[David Watzke]

Zdravím. Mám v Perlu takovou funkci:

sub check_pkgname($) {
	($_[0] =~ m/^\w+(|(\-|\w)*\w)(|\/\w+(|(\-|\w)*\w))$/)
	? $pkg = $_[0]
	: die "Not a valid package name: $_[0]!";
}

a teď když spustím check_pkgname("něco"), tak to proběhne. Když to regexpu neodpovídá, tak vypíše:

Not a valid package name: (whatever)! at ./test.pl line 7.

Proč tam píše "at ./test.pl line 7"? To nechci.

Ovšem horší je tohle: jakmile se pokusím o check_pkgname($_[0]), tak hodí:

Use of uninitialized value in pattern match (m//) at ./test.pl line 7.
Use of uninitialized value in concatenation (.) or string at ./test.pl line 7.
Not a valid package name: ! at ./test.pl line 7.

Napadlo mě zkusit ještě check_pkgname(int $_[0]), to hodí:

Use of uninitialized value in int at ./test.pl line 12.

Co dělám špatně?

Odpovědi

[David Watzke]

Když to regexpu neodpovídá, tak vypíše:

Not a valid package name: (whatever)! at ./test.pl line 7.

Proč tam píše "at ./test.pl line 7"? To nechci.

Sorry, nevěděl jsem, že je to běžný chování funkce die(), jsem trouba

[mlz]

V pripade, ze je u die "\n", tak at xxx.pl line N nevypise tedy die "Not a valid package name: (whatever)!\n";

[David Watzke]

Aha, díky.

[David Watzke]

Zjevně jsem dělal pěknou blbost. Ve funkci je asi nutný přiřadit si argumenty do proměnných pomocí shiftu, že?

[amnesiac]

Prirazovani paramteru do promennych s tim nema nic spolecneho. Zrejme volas check_pkgname($_[0]), kdyz $_[0] obsahuje nedefinovanou hodnotu.

Pokud volam $pkgname="nazev-1-2/balicku-xyz-321"; check_pkgname($pkgname);, tak mi to probehne korektne.

Btw. moc jsem nepochopil proc je v tom regularnim vyrazu ^\w+(|(\-|\w)*\w)(|\/\w+(|(\-|\w)*\w))$ to \w za (\-|\w)*

[David Watzke]

Btw. moc jsem nepochopil proc je v tom regularnim vyrazu ^\w+(|(\-|\w)*\w)(|\/\w+(|(\-|\w)*\w))$ to \w za (\-|\w)*

Protože chci aby to prošlo jen tehdy, když string bude končit na '\w' a ne '-'.

[Hynek (Pichi) Vychodil]

A nebylo by čitelnější

/^\w(?:[-\w]*\w)?(?:\/\w(?:[-\w]*\w)?)?$/

To (?:) místo () je jen kvůli rychlosti - neplní se $n registry. Pokud by ty slova nikdy nebyli méně než dvouznakové, tak by se dokonce dalo napsat

/^\w[-\w]*\w(?:\/\w[-\w]*\w)?$/

[David Watzke]

Díky, určitě bylo. Co je $n registr?

[Hynek (Pichi) Vychodil]

Viz perlvar

       $<digits>
               Contains the subpattern from the corresponding set of capturing
               parentheses from the last pattern match, not counting patterns
               matched in nested blocks that have been exited already.
               (Mnemonic: like \digits.)  These variables are all read-only
               and dynamically scoped to the current BLOCK.

Jinak \1..\9 by se mělo používat jen v m-regexpu nebo na levé straně (první parametr) s-regexpu.