1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
use constant FARBE_ROT => 0b00000001; use constant FARBE_BLAU => 0b00000010; use constant FARBE_GRUEN => 0b00000100; ### oder #use constant FARBE_ROT => 0x01; #use constant FARBE_BLAU => 0x02; #use constant FARBE_GRUEN => 0x04; # ### oder #use constant FARBE_ROT => 1; #use constant FARBE_BLAU => 1<<1; #use constant FARBE_GRUEN => 1<<2; setze_farbe(FARBE_ROT | FARBE_GRUEN);
2016-08-29T10:17:28 GwenDragonWenn es eine* genau nimmt, gibt es kein #define für Perl.
Weil #define ein Präprozessor-Pragma (oder Makro?) ist.
Ich hoff', ich seh' das richtig so.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
use strict;
use warnings;
use Net::SMTP;
use Authen::SASL;
use utf8;
use Encode;
use MIME::Base64;
use constant SMTP_USE_SSL => 0x0001;
use constant SMTP_USE_TLS => 0x0002;
use constant SMTP_USE_SSH => 0x0004;
use constant SMTP_USE_PGP => 0x0008;
sub smtp_body_decrypt
{
my($hash,$smtp_use_flags)=@_;
...
}
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
require("/include/inc.smtp.pl");
my %parms=();
smtp_body_decrypt(\%parms,SMTP_USE_SSL|SMTP_USE_PGP) || e_exit(1);
..
1 2 3 4 5 6 7 8 9 10 11 12
package bar; use strict; use warnings; use parent 'Exporter'; use constant SMTP_USE_SSL => 0x0001; our @EXPORT_OK = qw( SMTP_USE_SSL ); 1;
1 2 3 4 5 6 7 8 9
use strict; use warnings; use 5.010; use lib qw( . ); use bar qw( SMTP_USE_SSL ); say "", SMTP_USE_SSL;
2016-08-29T12:00:27 LinuxerIch würde inc.smtp.pl als "normales" Modul aufbauen und dann mit use() einbinden.
.....