perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 32
Click for quality!




10.02.2012 / 10:16

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Rund um das Thema Datenbank zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragZugangsdatengenerator
Seitenanfang
Hallo,
habe folgendes Problem:
ich benötige eine Anwendung die mir aus einer CSV-Datei die in dieser form:

namex, passworty
namez, passwortz
.
.
.
jeweils den namen und das passwort ausgibt, es sollte jeder eintrag nur einmalig ausgegeben werden, also die datei von oben nach unten abgegraben, ohne dass die daten doppelt ausgegeben werden.
Hab leider keinen blassen wie ich das realisieren soll, bin auf diesem gebiet absoluter nooooob.
Danke im voraus

Datum: 02.12.2005-05:05

Beitragre: Zugangsdatengenerator
Seitenanfang
Hi,
nichts leichter als das:

#!/usr/bin/perl -w

use strict;
my %seen; # Hash, um doppelte Eintrge zu filtern
my %pwmap;

while (<DATA>) {
chomp;
next if $seen{$_}++;
my ($user, $password) = $_ =~ m/^(.*), (.*)$/;
$pwmap{$user} = $password;
}

print map {"User <<$_>> hat Passwort <<$pwmap{$_}>>\n" } sort keys %pwmap;

__DATA__
namex, passworty
namex, passworty
namez, passwortz
namez, passwortz
namez, passwortz


Gruss,
svenXY

Datum: 05.12.2005-16:16

-






-
-