vrea putin altfel
perl -e 'while(<>){s/(^.*\_)(.*?)(:x.*- )(.*?)(:\/)/$1$2$3$2$5/g;print}'
< /etc/passwd
On Wed, 2005-07-06 at 15:19 +0300, Cristian wrote:
> perl -e 'while(<>){s/(^.*\_)(.*?)(:x.*- )(.*?)(:\/)/$1$4$3$2
> $5/g;print}'
> <
-- Attached file included as plaintext by Ecartis --
-- File: signature.asc
-- Desc: This is a digitally signed message part
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (GNU/Linux)
iD8DBQBCy85sLmEHPwOBBE8RAtREAJ9+zsdw5FVt48rtFWYpRq9BZZyoMACcDLwj
PhrDO6keEiWXDGP6n006irU=
=KoqG
-----END PGP SIGNATURE-----
---
Detalii despre listele noastre de mail: http://www.lug.ro/
