MAC Adresse formatieren (Allgemeines zu Perl)

[thread]16928[/thread]

MAC Adresse formatieren

Tags: perl5 Similar Threads

Readers: 18

Articles: hide open all | hide show old branches

+5 replies
puemer

2011-11-18 17:16

User since
2011-11-18
3 articles
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 articles
  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 articles
    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 articles
  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 articles
    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.