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/
