Re: Answer to previous question

[Steven Pritchard <steve@silug.org>]

On Mon, Aug 05, 2002 at 10:18:16PM -0500, William Underwood wrote:
> chomp $_;
> print OUTPUT (join ('.', (reverse (split (/./, $_ ))))) ."\r\n";

That's more or less how I'd do it, except you forgot to escape the
'.'.  The first argument to split is taken as a regular expression
when it is in //, and '.' in a regex matches any character.

Here's a one-liner that I would probably use:

    perl -lne 'print join(".", reverse(split /\./))'

Or, if you want to edit files directly...

    perl -i -lpe '$_=join(".", reverse(split /\./))' file1 file2 [...]

Add an extension after -i to have it save copies of the originals
("-i.orig" instead of just "-i", for example).

Note that split works on $_ if you don't give it a second argument.

Steve
-- 
steve@silug.org           | Southern Illinois Linux Users Group
(618)398-7360             | See web site for meeting details.
Steven Pritchard          | http://www.silug.org/

-
To unsubscribe, send email to majordomo@silug.org with
"unsubscribe silug-discuss" in the body.