[Israel.pm] One-liner perl question

Micha mickey75 at gmail.com
Sun Sep 9 22:48:48 PDT 2012


Ynon's requirement was no duplicates in length.
this works for me:

$ perl -e
'my$x=+{map{length($_)=>$_}reverse(glob("*"))};print($x->{$_}."\n")for(splice(@{[sort{$a<=>$b}keys
%$x]},0,shift))' 9

cheers,
Micha

On Mon, Sep 10, 2012 at 12:43 AM, Avishalom Shalit <avishalom at gmail.com>wrote:

> remember that TLAP (talk like a pirate) day is soon
>
> @ARRRRGV
>
>
>
> well to be honest , since the list isn't that long it could have been
> a flat sort
> a bit cleaner
>
> >> $ perl -e '$n=$ARGV[0];@a=sort{length($a)<=> length($b)}
> @ARGV[1..$#ARGV]; print "@a[0..$n]"' 4 *
>
>
> -- vish
>
>
>
> On 9 September 2012 23:35, sawyer x <xsawyerx at gmail.com> wrote:
> > I can recognize a Schwarzian transform when I see one!
> >
> >
> > On Mon, Sep 10, 2012 at 1:06 AM, Avishalom Shalit <avishalom at gmail.com>
> > wrote:
> >>
> >> $ perl -e '$n=$ARGV[0];@a=map{$_->[1]}sort{$a->[0] <=>
> >> $b->[0]}map{[length($_),$_]} @ARGV[1..$#ARGV]; print "@a[0..$n]"' 4 *
> >>
> >> clarifying
> >>
> >> $ perl -e '
> >> $n=$ARGV[0];
> >> @a=map{$_->[1]}
> >>         sort{$a->[0] <=> $b->[0]}
> >>         map{[length($_),$_]}
> >>     @ARGV[1..$#ARGV];
> >> print "@a[0..$n]"' 4 *
> >>
> >>
> >> -- vish
> >>
> >>
> >>
> >>
> >> On 9 September 2012 18:39, ynon perek <ynonperek at gmail.com> wrote:
> >> >
> >> > Hi All,
> >> >
> >> > I'm trying to turn a short program into a one-liner. The program takes
> >> > an argument "n" and prints the first n file names sorted by file name
> >> > length, with no duplicates in length.
> >> >
> >> > Here's what I wrote for the original code:
> >> > https://gist.github.com/3684778
> >> >
> >> > The part I found difficult is to sort a dictionary by its keys, and
> >> > print the top n values...
> >> >
> >> > Ideas ?
> >> >
> >> > (clarification: this is just for fun, nothing important, and I'm not
> >> > interested in string based solutions, already got one on the same
> gist).
> >> >
> >> > Cheers,
> >> >   Ynon
> >> >
> >> > --
> >> >
> >> > כותב הרצאות ? מדבר מול קהל ? הבלוג שלי לומד לדבר כתוב במיוחד בשבילך.
> >> >
> >> >
> >> > _______________________________________________
> >> > Perl mailing list
> >> > Perl at perl.org.il
> >> > http://mail.perl.org.il/mailman/listinfo/perl
> >> _______________________________________________
> >> Perl mailing list
> >> Perl at perl.org.il
> >> http://mail.perl.org.il/mailman/listinfo/perl
> >
> >
> >
> > _______________________________________________
> > Perl mailing list
> > Perl at perl.org.il
> > http://mail.perl.org.il/mailman/listinfo/perl
> _______________________________________________
> Perl mailing list
> Perl at perl.org.il
> http://mail.perl.org.il/mailman/listinfo/perl
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.perl.org.il/pipermail/perl/attachments/20120910/7700f6df/attachment-0001.htm 


More information about the Perl mailing list