On May 30, 11:56 am, [EMAIL PROTECTED] (Khalid Naji) wrote: > is there any way to mask a printing, when I call a Function using the > Command "print" and without to modify this Function: > > Like: > > My ($Name) = &get_name(12345); > > Sub get_name > { > $id = @_; > ... > Print "Blalalalalalalbla...\n"; > Return (Name); > > }
You can open a filehandle to the system's /dev/null and then select that filehandle to make it the default. Make sure you reselect the original filehandle when the subroutine is done. For example: $ perl -le' print "Start"; open my $devnull, ">", "/dev/null" or die $!; my $old_fh = select $devnull; mysub(); select $old_fh; print "End"; sub mysub { print "In mysub"; } ' Output: Start End Paul Lalli P.S. Please don't use a word processor to compose a post to a technical list/newsgroup. Or at the very least, turn off the word processor's auto-capitalization feature. You make it impossible for anyone to copy and paste your code... -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/