FHEMWiki:Sandbox: Unterschied zwischen den Versionen

Aus FHEMWiki
Keine Bearbeitungszusammenfassung
K (Erläuterung zum Abschnitt Trackingkategorien eingefügt)
 
(31 dazwischenliegende Versionen von 10 Benutzern werden nicht angezeigt)
Zeile 1: Zeile 1:
{{stub}}
== 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
use strict;
use warnings;


TEST
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");
}
</syntaxhighlight>
 
Test Tracking categories:
[[Datei:Brokenfile.pdf]]
<source lang="html">
<Seiten mit dem veralteten source-Tag>
</source>
<syntaxhighlight>
<syntaxhighlight ohne lang=>
</syntaxhighlight>

Aktuelle Version vom 10. November 2023, 12: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=>