[Israel.pm] One-liner perl question

ynon perek ynonperek at gmail.com
Mon Sep 10 03:36:46 PDT 2012


Awesome - but can it be done in a single statement ? (like the string-based
solution)


On 10 September 2012 08:48, Micha <mickey75 at gmail.com> wrote:

> 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
>>
>
>
> _______________________________________________
> Perl mailing list
> Perl at perl.org.il
> http://mail.perl.org.il/mailman/listinfo/perl
>



-- 

כותב הרצאות ? מדבר מול קהל ? הבלוג שלי לומד
לדבר<http://publicspeakr.blogspot.com/>כתוב במיוחד בשבילך.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.perl.org.il/pipermail/perl/attachments/20120910/32aa34b9/attachment.htm 


More information about the Perl mailing list