FHEMWiki:Sandbox: Unterschied zwischen den Versionen
Hb (Diskussion | Beiträge) KKeine Bearbeitungszusammenfassung |
(test) |
||
Zeile 23: | Zeile 23: | ||
# SuperCode! | # SuperCode! | ||
# test |
Version vom 9. Februar 2017, 23:19 Uhr
#!/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
# 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");
}
- SuperCode!
- test