Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: generate list from users first name and name?

by choroba (Bishop)
on Sep 14, 2012 at 11:32 UTC ( #993703=note: print w/replies, xml ) Need Help??

in reply to generate list from users first name and name?

Something like this?
#!/usr/bin/perl use warnings; use strict; while (<DATA>) { chomp; my @names = map lc, split; s/\.// for @names; print join "\t", $_, lc substr($names[0], 0, 1) . $names[-1], lc join '.', @names; print "\n" } __DATA__ Max Maier Jerome Mustermann John Lee Duke Peter F. Smith
Your treatment of the middle names might be different. Also, if there are non-ASCII characters in your users' names, more care is needed. Moreover, you should probably hash the usernames and e-mails and check for duplicates.
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: generate list from users first name and name?
by matze77 (Friar) on Sep 14, 2012 at 12:57 UTC
    Thank you alot, thats a great start.
    Special characters are treated manually by search an replace ...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://993703]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2017-11-25 01:13 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (355 votes). Check out past polls.