Re: A little win

[jwkrahn]

:'<,'>!perl -pe 'chomp; $_ =~ s/[<>]*//g; $_ = join "", map { chr $_ }
+ split ",", $_'

Could be written more simply and efficiently as:

:'<,'>!perl -pe 'chomp; tr/<>//d; $_ = join "", map chr, split /,/'

[anneli]

Combine that with tye's suggestion and we're down to:

:'<,'>!perl -pe 'tr/<>//d; $_ = pack "C*", split ","'

[tye]

perl -pe'$_= pack "C*", /\d+/g'

[anneli]

... simplicity wins again.

[Tux]

Please read perldoc -f split, as the first argument to split is usually a regex, not a string

:'<,'>!perl -pe 'tr/<>//d;$_=pack"C*",split/,/'

[anneli]

Good point! I'll try to remember this from now on.