Help for this page

Select Code to Download


  1. or download this
    my $tmp = File::Temp-> new( SUFFIX => '.ods' )-> filename;
copyL 'whatever.ods', $tmp; 
say 'ok' if defined ReadData( $tmp );
  2. or download this
    copyL 'whatever.ods', my $tmp = File::Temp-> new( SUFFIX => '.ods' )->
+ filename;
say 'ok' if defined ReadData( $tmp );
  3. or download this
    copyL 'whatever.ods', my $tmp = File::Temp-> new( SUFFIX => '.ods' );
say 'ok' if defined ReadData( $tmp-> filename );
  4. or download this
    use 5.014;
use warnings;
...
say 3 if -f $fn3;
say 4 if -f $fn4;