PERL: regexp frage... (Allgemeines zu Perl)

[thread]15296[/thread]

PERL: regexp frage...

Leser: 27

Articles: hide open all | hide show old branches

+14 replies
Gast Roki

2010-07-19 14:44
Hallo,

ich möchte die Benutzer, die nur mit dem erste Anfangsbuchstaben (des Vornamen) und anschließendem Nachnamen eingetragen sind, von den Benutzern die mit vollem ausgeschriebenen Vor -und Nachnamen eingetragen sind, trennen.

die Benutzer sind in einer passwd Datei eingetragen

passwd
Code: (dl )

1 2 3 4 5 6 7 8

julia.muster:TESmoyolFbmU denise.muster:TEfmFV32A2.. matz.muster:TEY7J0e4k/u6 sabrina.muster:ev8LQZSMFAyE v.muster:8LzwM6iMIeZI d.muster1:Gxr55Iner2EQ d.muster2:y.MT.5vOEiIg c.muster:OyuhWGXOA3h6
also,
v.muster:8LzwM6iMIeZI
d.muster1:Gxr55Iner2EQ
d.muster2:y.MT.5vOEiIg
c.muster:OyuhWGXOA3h6

soll von den anderen getrennt werden und in extra datei gespeichert werden.

und hier ist das Script was noch nicht fertig ist da mir das wissen fehlt:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl -w use strict; my ($passwd, @inhalt, @csv, @trennen, $benutzer, $a); $passwd = "passwd"; if (! -z $passwd) { open CSV, $passwd; @csv = <CSV>; close CSV; foreach (@csv) { chomp; @trennen = split(/:/,$_); $benutzer = $trennen[0]; my @v = split(/\./, $benutzer); print $v[0] . "\n"; } }
kann mir da jemand erklären wie ich das machen kann?

Danke im voraus.

LG,
Roki

mod-edit pq: passwörter & namen verfremdet
Last edited: 2010-07-21 00:08:26 +0200 (CEST)
- +2 replies
- bianca
  
  2010-07-19 14:56
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Würde der Regex /^\D\..+/ evtl. ausreichen?
  10 print "Hallo"
  20 goto 10
  - Taulmarill
    
    2010-07-19 15:09
    
    User since
    2004-02-19
    1750 Artikel
    BenutzerIn
    
    \D ist jedes beliebige Zeichen, das keine Ziffer ist. Wenn man hier schon eingrenzt, würde ich versuchen, das genauer festzulegen. Z.B. [[:alpha:]]
    
    So, wie die Frage vom OP gestellt wurde, sollte aber auch ein /^.\./ reichen
    $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- +3 replies
- murphy
  
  2010-07-19 15:06
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Ich hoffe ja sehr, die passwd-Einträge sind Testdaten und es entsteht kein Sicherheitsleck, wenn sich jemand hinsetzt und die Passwörter zu den Hashes knackt...
  When C++ is your hammer, every problem looks like your thumb.
  - +2 replies
  - Taulmarill
    
    2010-07-19 15:27
    
    User since
    2004-02-19
    1750 Artikel
    BenutzerIn
    
    Wenn die Hashes sowieso für jeden User sichtbar in der /etc/passwd stehen, ist da doch eh schon was im Argen. So wie die aussehen tippe ich mal auf alte DES Hashes, die sollten mit relativ wenig Aufwand zu knacken sein.
    
    edit: ich sehe gerade, dass der OP als Gast gepostet hat, evtl. sollte hier mal ein Moderator hilfreich editierend eingreifen.
    $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - payx
      
      2010-07-19 23:13
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Ich würde mal selbstverständlich davon ausgehen, dass es sich hier um ad hoc generierte zufällige Spieldaten handelt.
- payx
  
  2010-07-19 15:11
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Roki,
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  open my $zielFH, '>', 'passwd_onlyInit'; foreach (@csv) { print $zielFH $_ if m/^\w\..+/; } close $zielFH
  
  HTH
  Grüße
  payx
  
  PS: Die Variablen, die nur in den if- bzw. foreach-Blöcken vorkommen, würde ich nicht global deklarieren.
- +7 replies
- pq
  
  2010-07-19 23:38
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  ach wie nett, das ganze ist ein crosspost:
  http://mrunix.de/forums/showthread.php?p=316959 (edit: link nicht mehr zum anklicken, da vom anderen forum auch kein link zurückkommt und als gast kann man dort nicht posten)
  
  und dort wurde die frage auch schon beantwortet. zwar etwas später als hier, aber für "Roki" scheint das problem nun erledigt, da brauch er ja hier nicht mehr bescheid geben. wir machen uns ja gerne umsonst gedanken...
  
  wenn jemand nen account bei mrunix hat, kann ja mal bei gelegenheit einen crosspost-link hierher setzen.
  Last edited: 2010-07-21 11:00:15 +0200 (CEST)
  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
  - +6 replies
  - Gast Roki
    
    2010-07-20 22:57
    
    Hallo Leute,
    
    ich bin ziemlicher Perl/PHP (ich kann mich zwischen beiden nicht entscheiden)-Anfänger und weiß echt nicht auf was ich alles achten muss......aber trotzdem, die Passwörter sind für Intranet... und wenn es jemand knackt, kann sowieso keiner was damit anfangen... und es gibt bestimmt mehrere gleiche Namen in Deutschland.....
    
    zum Thema:
    richtig: /^.\./ das hat geholfen!
    
    Danke!
    
    Danke!
    Last edited: 2010-07-20 23:47:05 +0200 (CEST)
    - +2 replies
    - murphy
      
      2010-07-20 23:59
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Guest Roki
      [...]
      ich bin ziemlicher Perl/PHP (ich kann mich zwischen beiden nicht entscheiden)-Anfänger und weiß echt nicht auf was ich alles achten muss
      [...]
      
      Auf jeden Fall mal darauf, Crossposts kenntlich zu machen — das hat zwar nichts mit Perl oder PHP zu tun, aber mit Rücksichtnahme auf andere Forenbenutzer und es steht auch in AllgemeinesWieFrageIchbeiPerlCommunity.
      
      Quote
      [...]
      die Passwörter sind für Intranet... und wenn es jemand knackt, kann sowieso keiner was damit anfangen...
      [...]
      
      Naja, wer sagt Dir zum Beispiel, dass nicht noch andere Benutzer des besagten Intranets hier mitlesen oder jemand das gleiche Passwort auch wo anders verwendet? Es ist auf jeden Fall ein wenig leichtfertig, echte Passworthashes öffentlich zu machen. Und Leichtfertigkeit mit fremden persönlichen Daten ist nicht gerade rücksichtsvoll.
      When C++ is your hammer, every problem looks like your thumb.
      - Roki
        
        2010-07-21 01:18
        
        User since
        2010-07-20
        2 Artikel
        BenutzerIn
        
        2010-07-20T21:59:27 murphy
        Auf jeden Fall mal darauf, Crossposts kenntlich zu machen — das hat zwar nichts mit Perl oder PHP zu tun, aber mit Rücksichtnahme auf andere Forenbenutzer und es steht auch in AllgemeinesWieFrageIchbeiPerlCommunity.
        
        jetzt habe ich mich angemeldet und werde nächste mal Foren regeln beachten.
        
        Quote
        Naja, wer sagt Dir zum Beispiel, dass nicht noch andere Benutzer des besagten Intranets hier mitlesen oder jemand das gleiche Passwort auch wo anders verwendet? Es ist auf jeden Fall ein wenig leichtfertig, echte Passworthashes öffentlich zu machen. Und Leichtfertigkeit mit fremden persönlichen Daten ist nicht gerade rücksichtsvoll.
        
        ich Bitte die Moderatoren (wenn das geht!) die Benutzer mit Passwörter oben zu löschen...Danke im voraus!
        
        LG,
        Roki
        Last edited: 2010-07-21 01:20:07 +0200 (CEST)
    - +3 replies
    - pq
      
      2010-07-21 00:01
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      also doch echte passwörter. hab sie mal verfremdet (edit: und die namen auch).
      und crosspost-link bitte im anderen forum nachpflegen.
      Last edited: 2010-07-21 00:08:51 +0200 (CEST)
      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
      - +2 replies
      - Roki
        
        2010-07-21 01:22
        
        User since
        2010-07-20
        2 Artikel
        BenutzerIn
        
        2010-07-20T22:01:12 pq
        also doch echte passwörter. hab sie mal verfremdet (edit: und die namen auch).
        und crosspost-link bitte im anderen forum nachpflegen.
        
        Danke!
        
        LG,
        Roki
        
        pq
        
        2010-07-21 10:54
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        "und crosspost-link bitte im anderen forum nachpflegen."
        
        ich sehe, du hast das posting im anderen forum editiert und die namen rausgenommen.
        den link hierher hast du trotzdem nicht hinzugefügt.
        
        ich bin es langsam leid, den link-generator zu spielen, wenn von anderen foren nie was zurückkommt...
        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

View all threads created 2010-07-19 14:44.