using perl to override output redirection

prajil

Hi,

Could anyone point how can i override output redirection using perl.
i.e.
command > file 2>&1 will redirect both output and error of command to file
I need to print a message to tty even if there is redirection.

numberwhun

Quote:

Originally Posted by prajil

Hi,

Could anyone point how can i override output redirection using perl.
i.e.
command > file 2>&1 will redirect both output and error of command to file
I need to print a message to tty even if there is redirection.

Well, one way is to use the open() function and open the file / connection. Then, use a print statement to print to the filehandle from the open function.

ie:

Expand|Select|Wrap|Line Numbers

 
open(TTY, "|<tty connection>");
 
print TTY ("Your info here!\n");

Hope that helped.

Regards,

Jeff

prajil

Quote:

Originally Posted by numberwhun

Well, one way is to use the open() function and open the file / connection. Then, use a print statement to print to the filehandle from the open function.

ie:

Expand|Select|Wrap|Line Numbers

 
open(TTY, "|<tty connection>");
 
print TTY ("Your info here!\n");

Hope that helped.

Regards,

Jeff

Hi Jeff,

Thanks for your reply. But still it is redirecting to the output file.
------------
>./eg.pl
not a tty
>
-----------
>./eg.pl >& file
>
-------------

using perl to override output redirection

re: using perl to override output redirection

re: using perl to override output redirection

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about