FHEMWiki:Sandbox: Unterschied zwischen den Versionen
(Der Seiteninhalt wurde durch einen anderen Text ersetzt: „<source lang="perl"> #!/usr/bin/perl use strict; use warnings; use Path::Class; use autodie; # die if problem reading or writing a…“) |
K (Erläuterung zum Abschnitt Trackingkategorien eingefügt) |
||
| (13 dazwischenliegende Versionen von 6 Benutzern werden nicht angezeigt) | |||
| Zeile 1: | Zeile 1: | ||
< | == Test der dynamischen Tracking-Kategorien == | ||
Im Folgenden werden bewusst | |||
* ein "syntaxhighlight" mit Syntaxfehler | |||
* das veraltete "source" Tag und | |||
* ein Dateilink auf eine nicht existierende Datei | |||
verwendet, um die zugehörigen Trackingkategorien zu "befüllen" und somit (auf weitere, unbeabsichtigte Vorkommen dieser "Fehler") kontrollieren zu können. | |||
<syntaxhighlight lang="perl"> | |||
#!/usr/bin/perl | #!/usr/bin/perl | ||
use strict; | use strict; | ||
| Zeile 20: | Zeile 26: | ||
$file_handle->print($line . "\n"); | $file_handle->print($line . "\n"); | ||
} | } | ||
</syntaxhighlight> | |||
Test Tracking categories: | |||
[[Datei:Brokenfile.pdf]] | |||
<source lang="html"> | |||
<Seiten mit dem veralteten source-Tag> | |||
</source> | </source> | ||
<syntaxhighlight> | |||
<syntaxhighlight ohne lang=> | |||
</syntaxhighlight> | |||
Aktuelle Version vom 10. November 2023, 11:50 Uhr
Test der dynamischen Tracking-Kategorien
Im Folgenden werden bewusst
- ein "syntaxhighlight" mit Syntaxfehler
- das veraltete "source" Tag und
- ein Dateilink auf eine nicht existierende Datei
verwendet, um die zugehörigen Trackingkategorien zu "befüllen" und somit (auf weitere, unbeabsichtigte Vorkommen dieser "Fehler") kontrollieren zu können.
#!/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");
}
Test Tracking categories: Datei:Brokenfile.pdf
<Seiten mit dem veralteten source-Tag>
<syntaxhighlight ohne lang=>