FHEMWiki:Sandbox: Unterschied zwischen den Versionen
Akw (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
Akw (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
||
Zeile 1: | Zeile 1: | ||
<perl> | <source lang="perl"> | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
use strict; | use strict; | ||
Zeile 20: | Zeile 20: | ||
$file_handle->print($line . "\n"); | $file_handle->print($line . "\n"); | ||
} | } | ||
</ | </source> |
Version vom 30. Oktober 2015, 11:07 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");
}