Advanced Search

Return to Snippet

Revision: 272
at July 8, 2006 11:27 by kkindoh
Initial Code 
sub isOutputScreen {

　　use POSIX;

　　return 0 if POSIX::isatty( \*STDOUT) eq "" ; # pipe
　　return 1; # screen
} # end of isOutputScreen
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
How to determine if the output is screen or pipe.

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Perl