Hi Francesco,
You could do it like this : $line = "qw001234 po001234 ghjkld zx001234 tgbnhy"; ($pw0,$uid1,$pw1,$uid2,$pw2) = split(/\s+/, $line); print NEWFILE "$uid1 $pw1 \n"; print NEWFILE "$uid2 $pw2 \n"; Your current file does have to contain 5 fields. Hope this is what you are looking for. Regs David > > I have many files with username and passwd.The old files are in format: > > qw001234 asdfgh # all usernames are composed by qw/po/zx + 00 + 4 > number > > The new files have three usernames and passwd for each number on each > line: > > qw009876 qwerty po009876 poiuyt zx009876 mnbvcx > > To patch the old files someone before me made a new file with the other > "po" and "zx" but with a big error.The format is > > qw001234 po001234 ghjkld zx001234 tgbnhy > > There's not the passwd for the user in the old file(ever qw).Now I need > just one file with in the format > > qw001234 qwerty > qw009876 qwerty > po001234 ghjkld > po009876 poiuyt > zx009876 mnbvcx > zx001234 tgbnhy > .... > > Please help me.Thanks. > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
