FHEMWiki:Sandbox

<perl>

1. !/usr/bin/perl

use strict; use warnings;

use Path::Class; use autodie; # die if problem reading or writing a file

my $dir = dir("/tmp"); # /tmp

my $file = $dir->file("file.txt"); # /tmp/file.txt

1. Get a file_handle (IO::File object) you can write to

my $file_handle = $file->openw();

my @list = ('a', 'list', 'of', 'lines');

foreach my $line ( @list ) {

   # Add the line to the file
   $file_handle->print($line . "\n");

} </perl>