Așa cum a fost explicat în articolul despre standard output and error, în Perl se poate face prin direcționarea printării către STDERR

print STDERR "Slight problem here...\n";

Există însă o cale mai bună, standard, poate fi apelată funcția warn (avizare, avertizare):

warn "Slight problem here.\n";

Este mai scurtă, mai expresivă și în forma de mai sus are același efect.

În ambele cazuri scriptul, după ce printează mesajul de avizare, va continua să ruleze!

Totuși are mai multe facilități. Dacă omiți caracterul linie nouă (new-line) (adică \n de la sfârșit):

warn "Slight problem here.";

atunci rezultatul va include numele fișierului și numărul liniei, de unde a fost apelată funcția warn:

Slight problem here. at programming.pl line 5.

Acesta poate fi foarte utilă atunci când ai un script care apelează multe alte scripturi, sau când ai o aplicație mai mare cu mai multe module.

Acesta va ușura găsirea sursei problemei pentru tine sau pentru utilizatorul programului.

Capturarea avizărilor

Încă și mai mult.

Perl a introdus un așa numit signal-handle special pentru avizări. Acesta înseamnă că tu, sau altcineva, poate adăuga mai târziu cod în program care să captureze toate avizările. Acesta este un subiect puțin mai avansat totuși, dar dacă ești interesat, mergi mai departe și citește acea pagină.

Avertizare

O mică avertizare aici. Pot fi întâlnite cazuri în care o avizare apelată după o comandă de printare apare înaintea conținutului comenzii de printare.

Acest cod:

print "before";
warn "Slight porblem here.\n";
print STDERR "More problems.\n";
print "after";

generează acestă ieșire:

Slight porblem here.
More problems.
beforeafter

Unde cuvântul "before" apare după ambele mesaje de avizare.

În acest caz, citește despre folosirea memoriei tampon (buffering).