mirror of
https://github.com/imapsync/imapsync.git
synced 2025-06-10 14:44:32 +02:00
27 lines
431 B
Perl
Executable file
27 lines
431 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# $Id: print,v 1.1 2016/06/16 19:10:04 gilles Exp gilles $
|
|
|
|
use strict;
|
|
use warnings;
|
|
use English;
|
|
|
|
our $VERSION = q$Revision: 1.1 $;
|
|
|
|
# myprint( STDOUT "Hello\n" ) ; # DO NOT WORK
|
|
|
|
open my $stdout, ">-" ;
|
|
#myprint( $stdout, "Hello from myprint & filehandle\n" ) ; # DO NOT WORK
|
|
close $stdout ;
|
|
|
|
myprint( "Hello\n" ) ; # WORKS
|
|
|
|
myprint( << 'EOF' ) ;
|
|
lalala
|
|
myprint inline
|
|
EOF
|
|
|
|
exit;
|
|
|
|
sub myprint { print @ARG ; }
|
|
|