Perl-Code eq. PHP (Allgemeines zu Perl)

[thread]14762[/thread]

Perl-Code eq. PHP

Readers: 24

Articles: hide open all | hide show old branches

+16 replies
MartinR

2010-03-03 12:43
User since
2004-06-17
305 articles
BenutzerIn
Ich habe folgenden PHP-Code zu dem ich eine "Übersetzung" in Perl benötige. Vieleicht kann mir ja jemand unter die Arme greifen. Danke
Code: (dl )

1 2 3 4 5 6 7

function hex2bin($data) { $len = strlen($data); for($i=0; $i<$len; $i+=2) { $newdata .= pack("C",hexdec(substr($data,$i,2))); } return $newdata; }
- +13 replies
- guest wer
  
  2010-03-03 12:54
  ungetestet:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  function hex2bin{ my $data=shift; my $newdata=''; while($data){ $newdata .= pack("C",hex(substr($data,0,2,''))) } return $newdata; }
  - +12 replies
  - guest wer
    
    2010-03-03 13:23
    als Einzeiler:
    
    Code (perl): (dl )
    
    1 2 3
    
    sub hex2bin{ return pack "C*", map{hex($_)}split(/(?=(?:..)+$)/,shift); }
    - +11 replies
    - MartinR
      
      2010-03-03 13:38
      
      User since
      2004-06-17
      305 articles
      BenutzerIn
      
      ... danke
      - +10 replies
      - pq
        
        2010-03-03 13:45
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        dass du dir nun ausgerechnet die komplizierteste lösung ausgesucht hast... =)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +9 replies
        
        bianca
        
        2010-03-03 13:49
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2010-03-03T12:45:42 pq
        dass du dir nun ausgerechnet die komplizierteste lösung ausgesucht hast...
        
        ...bestimmt um zu zeigen, wie schön kurz man es in Perl machen kann :))
        10 print "Hallo"
        20 goto 10
        
        +8 replies
        
        pq
        
        2010-03-03 13:57
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        hm? kürzer gehts eindeutig mit betterworlds lösung. und gleich auch noch viel effizienter.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +7 replies
        
        bianca
        
        2010-03-03 14:14
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2010-03-03T12:57:59 pq
        kürzer gehts eindeutig mit betterworlds lösung. und gleich auch noch viel effizienter.
        
        ...kann aber nicht mehr wirklich als Einzeiler bezeichnet werden.
        10 print "Hallo"
        20 goto 10
        
        +6 replies
        
        pq
        
        2010-03-03 14:25
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        klar kann es. einfach in eine zeile zusammenpacken.
        sub hex2bin{return pack"H*",shift}
        
        verstehe nicht den grund, dass MartinR die ineffizienteste lösung genommen haben soll, nur weil sie in einer zeile stand. das kann man, wie man sieht, mit betterworlds code noch viel kürzer haben.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +5 replies
        
        bianca
        
        2010-03-03 14:30
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Darin bist Du unschlagbar, ich staune immer wieder. :)
        
        Vielleicht hat er die andere genommen, weil er diese hier im Zweifel nicht gut genug erklären könnte. Lass ihn doch, ist doch seine Sache ;)
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        pq
        
        2010-03-03 14:39
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        2010-03-03T13:30:16 bianca
        Lass ihn doch
        
        warum versuchst du eigentlich die ganze zeit, die gründe von MartinR zu erraten? und jetzt soll ich ihn lassen? lass du doch einfach meine frage so stehen und gut is. hat ja niemand dich gefragt. wenn er antworten will, wird er das schon noch tun.
        
        2010-03-03T13:30:16 bianca
        Darin bist Du unschlagbar
        
        worin? zu allem deinen senf abgeben und anderen das letzte wort nicht lassen, da gewinnst eindeutig du. vielleicht solltest du dir ratschläge wie "lass ihn doch" einfach mal selber sagen =)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        bianca
        
        2010-03-03 15:05
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        Au, Achtung, pq hat wieder ihre Phase....wo sie u.a. alle Smilies ignoriert.
        Alle in DECKUNG!!!!!!
        10 print "Hallo"
        20 goto 10
        
        pq
        
        2010-03-03 15:07
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        in deckung musst nur du gehn, sonst nervt mich hier niemand =)
        anscheinend ist das wieder mal so ein tip, den du dir selbst sagen solltest, denn du siehst auch keine smileys von anderen =)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        GwenDragon
        
        2010-03-03 17:42
        
        User since
        2005-01-17
        14837 articles
        Admin1
        
        Brüll doch nicht so, auch noch einen Schreibalken erzeugen. Hast du androgenes Syndrom oder nur einfach nur zickig? Tztztz.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- betterworld
  
  2010-03-03 13:13
  User since
  2003-08-21
  2614 articles
  ModeratorIn
  Sag doch mal, was diese Funktion letztendlich tut. Ich kann kein PHP, aber dem Namen "hex2bin" nach zu urteilen würde ich vermuten, dass man das in Perl auch kürzer schreiben kann.
  
  Edit: Also, wenn ich das richtig verstehe, macht es ungefähr das:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  sub hex2bin { my ($hexstr) = @_; return pack "H*", $hexstr; }
  
  Last edited: 2010-03-03 13:16:44 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - guest wer
    
    2010-03-03 13:24
    
    OK das ist besser :-)

View all threads created 2010-03-03 12:43.