From owner-freebsd-questions@FreeBSD.ORG  Wed Apr 26 03:05:26 2006
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
X-Original-To: questions@freebsd.org
Delivered-To: freebsd-questions@FreeBSD.ORG
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 68D2416A409
	for <questions@freebsd.org>; Wed, 26 Apr 2006 03:05:26 +0000 (UTC)
	(envelope-from parv@pair.com)
Received: from mta9.adelphia.net (mta9.adelphia.net [68.168.78.199])
	by mx1.FreeBSD.org (Postfix) with ESMTP id DCF2F43D48
	for <questions@freebsd.org>; Wed, 26 Apr 2006 03:05:22 +0000 (GMT)
	(envelope-from parv@pair.com)
Received: from default.chvlva.adelphia.net ([69.160.66.115])
	by mta9.adelphia.net
	(InterMail vM.6.01.05.02 201-2131-123-102-20050715) with ESMTP id
	<20060426030522.DXDC13882.mta9.adelphia.net@default.chvlva.adelphia.net>;
	Tue, 25 Apr 2006 23:05:22 -0400
Received: by default.chvlva.adelphia.net (Postfix, from userid 1000)
	id 08111B770; Tue, 25 Apr 2006 23:05:36 -0400 (EDT)
Date: Tue, 25 Apr 2006 23:05:35 -0400
From: Parv <parv@pair.com>
To: Nikolas Britton <nikolas.britton@gmail.com>
Message-ID: <20060426030535.GA1540@holestein.holy.cow>
Mail-Followup-To: Nikolas Britton <nikolas.britton@gmail.com>,
	FreeBSD Questions <questions@freebsd.org>
References: <ef10de9a0604251540p6461bfedgf788d500a81e7190@mail.gmail.com>
	<ef10de9a0604251754r3292719dqc29d96095a9f0752@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <ef10de9a0604251754r3292719dqc29d96095a9f0752@mail.gmail.com>
Cc: FreeBSD Questions <questions@freebsd.org>
Subject: Re: Perl: sort string alphabetically, or remove dupe chars?
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 26 Apr 2006 03:05:26 -0000

in message <ef10de9a0604251754r3292719dqc29d96095a9f0752@mail.gmail.com>,
wrote Nikolas Britton thusly...
>
> On 4/25/06, Nikolas Britton <nikolas.britton@gmail.com> wrote:
> > basically what I want to do:
...
> > my $wordlist = "letter";
> > ## some whizbang regex that removes dupe chars
> > ## from words like "alphabetically" --> "alphbeticy".
> > print "$wordlist\n";
...
> This works... but it's clunky:
> 
> my $string = "letter";
> my @chars = split("", $string);
> $string = ""; @chars = sort (@chars);
> foreach (@chars) {
> $string .= $_;
> }
> $string =~ tr///cs;
> print "$string";

You could combine some of the steps ...

  my $string = 'letter';
  $string = join '' , sort split '', $string;
  $string =~ tr///cs;
  print $string;


... another but rather clunky version is ...

  my $string = 'letter';
  {
    my %string;
    @string{ split '' , $string } = ();
    $string = join '' , sort keys %string;
  }
  print $string;


  - Parv

--