How Do I Point a File Handle to STDOUT (or Another File Handle) In Perl?

前端 未结 5 1802
不知归路
不知归路 2021-01-31 18:19

I want to make a quick script that writes to a file if a file is given, or stdout if no file is given. It would be much easier for me to do this if I could start the script by p

5条回答
  •  时光说笑
    2021-01-31 18:44

    Nevermind. Figured it out. Throwing in an ampersand does the trick. Full working code is:
    open( OUTPUT, ( $output ? ">$output" : ">&STDOUT" ) );

提交回复
热议问题