François TOURDE a écrit, jeudi 10 avril 2008, à 11:29 :
> Le 13978ième jour après Epoch, Jacques L'helgoualc'h écrivait:
> > Yves Rutschle a écrit, mercredi 9 avril 2008, à 10:23 :
> >> On Tue, Apr 08, 2008 at 07:58:20PM +0200, Jacques L'helgoualc'h wrote:
> >> > { sort -u fic1; sort -u fic2; }|so
Yves Rutschle a écrit, mercredi 9 avril 2008, à 10:23 :
> On Tue, Apr 08, 2008 at 07:58:20PM +0200, Jacques L'helgoualc'h wrote:
> > { sort -u fic1; sort -u fic2; }|sort|uniq -d
>
> Wow. J'ai une solution en 2 lignes de perl:
>
> my %f1 = map { $_ => 1 } `cat $ARGV[0]`;
> print grep { $f1{$_} }
On Tue, Apr 08, 2008 at 07:58:20PM +0200, Jacques L'helgoualc'h wrote:
> { sort -u fic1; sort -u fic2; }|sort|uniq -d
Wow. J'ai une solution en 2 lignes de perl:
my %f1 = map { $_ => 1 } `cat $ARGV[0]`;
print grep { $f1{$_} } `cat $ARGV[1]`;
mais tu gagnes de loin. Élegant et court :)
Y.
--
François TOURDE a écrit, mardi 8 avril 2008, à 17:13 :
[...]
> cat <(sort f1|uniq) <(sort f2|uniq)|sort|uniq -c|grep -v "^ *1 *"|sed -e 's/
> *[0-9]\+ *//'
{ sort -u fic1; sort -u fic2; }|sort|uniq -d
ou encore (pas de tri) :
{ awk '!n[$0]++' fic1 ; awk '!n[$0]++' fic2 ; } | awk 'n[$0]++'
qu
4 matches
Mail list logo
