OR | set jobs (gelöst) (Allgemeines zu Perl)

[thread]20145[/thread]

OR | set jobs [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+9 replies
Gast Graf Herschel

2016-08-29 11:54

Hallo !!

In C setze ich Funktionsparameter z.B. folgend:

#define FARBE_ROT 0x01
#define FARBE_BLAU 0x02
#define FARBE_GRUEN 0x04

setze_farbe(FARBE_ROT | FARBE_GRUEN);

Wie macht man sowas in Perl?

Danke!
Last edited: 2016-08-29 11:59:36 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2016-08-29 12:00
  User since
  2005-01-17
  14784 Artikel
  Admin1
  Code (perl): (dl )
  
  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);
  
  Editiert von GwenDragon: Klammer bei bitshift unnötig
  Last edited: 2016-08-29 12:06:03 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast Graf Herschel
    
    2016-08-29 12:16
    
    Passt, funktioniert, alles Bestens
    Gruß und vielen Dank!
    Last edited: 2016-08-29 12:23:39 +0200 (CEST)
- +6 replies
- GwenDragon
  
  2016-08-29 12:17
  
  User since
  2005-01-17
  14784 Artikel
  Admin1
  
  Wenn 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.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast Grag Herschel
    
    2016-08-29 12:32
    
    2016-08-29T10:17:28 GwenDragon
    Wenn 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.
    
    #define = Preprocessor directive zur macro Definition. Z.B.
    #define GET_MIN(a,b) ((a < b) ? a:b)
    oder
    #define HALLO 0x1024
    sind eigentlich beides macros
    
    #pragma = Compiler directive
    
    Dank nocheinmal für die Unterstützung
    Last edited: 2016-08-29 13:20:37 +0200 (CEST)
  - +4 replies
  - Gast Graf Herschel
    
    2016-08-29 13:23
    Ich war vorschnell mit meiner OkMeldung
    
    folgend:
    
    file /include/inc.smtp.pl
    
    Code: (dl )
    
    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)=@_; ... }
    
    file smtp.pl
    
    Code: (dl )
    
    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); ..
    
    # ./smtp.pl
    
    Bareword "SMTP_USE_SSL" not allowed while "strict subs" in use at /usr/local/sbin/smtp.pl line 23.
    .....
    
    Was bedeutet das?
    Last edited: 2016-08-29 13:47:33 +0200 (CEST)
    - +3 replies
    - Linuxer
      
      2016-08-29 14:00
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Ich würde inc.smtp.pl als "normales" Modul aufbauen und dann mit use() einbinden.
      
      Innerhalb des Moduls kann man dann mit Exporter die gewünschten Konstanten exportieren lassen und vom aufrufenden Skript verwenden lassen.
      
      bar.pm:
      
      Code (perl): (dl )
      
      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;
      
      skript.pl
      
      Code (perl): (dl )
      
      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;
      
      Siehe dazu auch:
      Exporter
      http://stackoverflow.com/questions/193020/how-do-i...
      Constant::Exporter
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - clms
        
        2016-08-29 19:07
        
        User since
        2010-08-29
        373 Artikel
        BenutzerIn
        
        Statt die Namen zu exportieren kann man alternativ auch den Package-Namen als Prefix verwenden:
        
        Code (perl): (dl )
        
        1 2
        
        use bar; say "", bar::SMTP_USE_SSL;
      - Gast Graf Herschel
        
        2016-08-30 11:28
        
        2016-08-29T12:00:27 Linuxer
        Ich würde inc.smtp.pl als "normales" Modul aufbauen und dann mit use() einbinden.
        .....
        
        Ich habe das mit
        our($SMTP_DEC_SSL) = 0x01;
        our($SMTP_DEC_PGP) = 0x02;
        
        und auf der anderen Seite mit
        our($SMTP_DEC_SSL,$SMTP_DEC_PGP);
        
        definiert. Mit Konstanten schaffe ich das nicht.
        Damit gewinne ich nicht den Schönheitswettbewerb,.. egal
        
        Erledigt
        Danke euch allen
        Last edited: 2016-08-30 12:41:19 +0200 (CEST)

View all threads created 2016-08-29 11:54.