in reply to Re: Entering the land of Perl
in thread Entering the land of Perl

That, sir, is a beauty.

Anything functional (in the map-reduce sense) makes me quite happy. You have my thanks.

EDIT: what version is this? 5.16 'use strict' returns all zeros for each count. Does that provide the function return code?

Replies are listed 'Best First'.
Re^3: Entering the land of Perl
by choroba (Cardinal) on Apr 05, 2013 at 06:06 UTC
    The shift requires the string as an argument of the script. If you want to read it from a file, you have to use
    $s = <>;

    [download]
    instead and provide the input file as the argument.
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]

In Section Seekers of Perl Wisdom