Device::SerialPort und lcd programmierung (Ezio) - #153836 (Allgemeines zu Perl)

GwenDragon

2011-11-03 18:18

User since
2005-01-17
14547 Artikel
Admin1

Statt

Code (perl): (dl )

my $ezio = {
                cmd=> chr hex ( '0xFE' ),
                init=> chr hex ( '0x28' ),
                stopsend=>chr hex ( '0x37' ),
                cls=> chr ( 1 ) ,
                home=> chr ( 2 ),
                blank=> chr  ( 8 ),
                hide=>chr hex ( '0x0C' ),
};

kannst du so schreiben:

Code (perl): (dl )

my $ezio = {
                cmd=>      "\xFE",
                init=>     "\x28",
                stopsend=> "\x37",
                cls=>      "\x01",
                home=>     "\x02",
                blank=>    "\x08",
                hide=>     "\x0C",
};

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel