[perl] Interne 'print' statement vervangen

[muba]

Op de volgende manier kun je het interne perl commando 'exit' vervangen:

Perl:

use subs 'exit';
sub exit {
  print "Really quit? [yN] ";
  $yn = <>;
  if ($yn =~ m/^y/i) {CORE::exit;}
}

Nu heb ik hetzelfde geprobeerd voor print:

Perl:

use subs 'print';
sub print {
  CORE::print EenEigenSub(join("", @_));
}

maar om de een of andere reden wordt niet de nieuwe print gebruikt, maar gewoon de normale. Iemand enig idee hoe ik toch een vervanging voor het standaard print kan maken?

[muba]

Is de vraag te moeilijk? Google helpt me iig niet, en het boek "Perl Black Book" (2e editie) van Steven Holzner ook niet... of zijn er gewoon geen perl-guru's online?

[gorgi_19]

't is zondag en niet iedereen zit 24 uur per dag online om vragen te beantwoorden. Wacht daarom ook 24 uur voordat je een topic weer omhoog schopt. Het wordt vanzelf wel gezien.
Zie voor meer info hierover: Algemene regels hoe je op het forum te gedragen (Netiquette)

[ Voor 20% gewijzigd door gorgi_19 op 25-05-2003 16:29 ]

[muba]

Je zou toch verwachten dat dit wel mogelijk is, maar schijnbaar niet?

[Verwijderd]

Misschien is het makkelijk om te weten hoe je het wil gebruiken en waarvoor. Er zijn met Perl meestal meerdere wegen die naar Rome gaan.

[phreggle]

Volgens mij was het zo, dat je print gewoon niet kon vervangen door een andere sub. Dus zoals je zelf al zegt, bij andere functies werkt het prima, maar bij print niet.

Wat je dus wel kan doen is overal &print aanroepen, (en dat print dan je eigen sub is, maar dat wil je vast niet).

ff nog gezocht met deja en zie hier:
http://groups.google.com/...h=9535f9e056537814&rnum=1

[muba]

hmm, mja ok...
bedankt voor de tip van &print, maar wat ik wou is gewoon dat automatisch de input van print door een van mn eigen subs gehaald werd alvorens naar STDOUT te gaan, zonder dat ik daar nog iets voor hoefde te doen. Maar of ik nu &print $foo doe, of print Bar($foo) dat maakt in principe ook niet zo heel veel uit. Toch bedankt