MAC Adresse formatieren (Allgemeines zu Perl)

[thread]16928[/thread]

MAC Adresse formatieren

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
puemer

2011-11-18 17:16

User since
2011-11-18
3 Artikel
BenutzerIn

Hallo liebe Perl-Freunde
Ich habe ein - für Euch bestimmt ganz einfach zu lösendes - Probelm: Ich habe eine Liste mit MAC-Adressen

0-1e-b-2b-54-f3
01-0d-9d-cf-b6-25
0-11-32-8-6f-4b

Nun möchte ich diese mit Perl etwas schöner formatieren, so dass immer alle sechs Bytes jeweils zweistellig dargestellt werden. Bsp:

00-1e-0b-2b-54-f3
01-0d-9d-cf-b6-25
00-11-32-8-6f-4b

Habt Ihr mir vielleicht einen Tip, wie ich das am einfachsten hinbekommen? Sorry für die wahrscheinlich doofe Frage, bin halt (noch) blutiger Perl Anfänger...

Die Liste lese ich in einer while Schlaufe ein, die MAC Adressen sind jeweils in der Variable $mac

Für Eure Mühe bedanke ich mich schon im Voraus!

Puemer

modedit Edited by esskar: "Anfängerfrage: " prefix aus title gelöscht!
Last edited: 2011-11-18 17:53:42 +0100 (CET)
- +2 replies
- murphy
  
  2011-11-18 17:34
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Das geht zum Beispiel so:
  
  Code (perl): (dl )
  
  my $pretty_mac = join('-', map { sprintf('%02x', hex($_)) } split(/-/, $mac))
  
  Edit: Oder auch so:
  
  Code (perl): (dl )
  
  my $pretty_mac = ($mac =~ s/(^|-)([[:xdigit:]]+)/sprintf("%s%02s", $1, $2)/gre);
  
  Last edited: 2011-11-18 17:40:46 +0100 (CET)
  When C++ is your hammer, every problem looks like your thumb.
  - puemer
    
    2011-11-18 18:26
    User since
    2011-11-18
    3 Artikel
    BenutzerIn
    
    Hey,
    in diesem Forum wird einem ja fast Zeitgleich geholfen. Unglaublich!
    
    Tausend Dank an Dich, murphy. Meine Formatierung sieht nun so aus:
    
    Code (perl): (dl )
    
    $mac = join('-', map { sprintf('%02x', hex($_)) } split(/-/, $mac));
    
    und schon funktionierts. Toll!
    
    Vielen Dank und schönes Wochenende
    Puemer
    
    modedit Editiert von GwenDragon: Code formatiert; bitte dazu http://www.perl-community.de/bat/poard/markup_help... lesen
    Last edited: 2011-11-18 18:28:52 +0100 (CET)
- +2 replies
- dgw
  
  2011-11-18 17:38
  User since
  2010-08-16
  27 Artikel
  BenutzerIn
  Hiermit sollte es funktionieren:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
  
  #!/usr/bin/perl use strict ; use warnings ; while( my $mac = <DATA> ) { # \n vom Zeilenende entfernen chomp $mac ; printf "Alt: %s\n" , $mac ; # Alle alten Trenner entfernen. $mac =~ s/-//g ; # Alle zwei Zeichen (nicht -) ein - einfügen, # falls noch weitere Zeichen folgen (also kein - nach dem letzten Paar.) $mac =~ s/([^-]{2})(?=.)/$1-/g ; printf "Neu: %s\n\n" , $mac ; } __DATA__ 0-1e-b-2b-54-f3 01-0d-9d-cf-b6-25 0-11-32-8-6f-4b
  
  Das liefert:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  Alt: 0-1e-b-2b-54-f3 Neu: 01-eb-2b-54-f3 Alt: 01-0d-9d-cf-b6-25 Neu: 01-0d-9d-cf-b6-25 Alt: 0-11-32-8-6f-4b Neu: 01-13-28-6f-4b
  
  Hmm, ich merke gerade, meine Lösung passt nicht zum Problem. Erst lesen und dann antworten.
  
  Daniel
  Last edited: 2011-11-18 17:40:40 +0100 (CET)
  - puemer
    
    2011-11-18 18:29
    
    User since
    2011-11-18
    3 Artikel
    BenutzerIn
    
    Hi dgw,
    mein Problem hat murphy schon gelöst:
    
    $mac = join('-', map { sprintf('%02x', hex($_)) } split(/-/, $mac));
    
    Danke trotzdem für Deine Mühe! So etwas ist nicht selbstverständlich.
    
    Gruss & schönes Wochenende!
    Puemer

View all threads created 2011-11-18 17:16.