Programmieren mit Perl

use subs

use subs qw/winken blinken nod/;
@x = winken 3..10;
@x = nod blinken @x

Dieses Pragma deklariert alle Namen in der Argumentliste als Standardsubroutinen vor. Der Vorteil besteht darin, daß Sie nun all diese Funktionen ohne Klammern als Listenoperatoren verwenden können, als ob Sie sie selbst deklariert hätten. Das ist nicht unbedingt so nützlich wie vollständige Deklarationen, weil es weder Prototypen noch Attribute erlaubt, etwa:

sub winken(@);
sub blinken(\@) : locked;
sub nod($) : lvalue;

Weil es auf dem Standardimportmechanismus basiert, besitzt das use subs-Pragma keinen lexikalischen, sondern einen paketbezogenen Geltungsbereich. Das heißt, die Deklarationen gelten effektiv für die gesamte Datei, in der sie erscheinen, aber nur im ...