On Jul 21, 3:42 pm, u...@stemsystems.com ("Uri Guttman") wrote:
> >>>>> "JG" == Jim Gibson <jimsgib...@gmail.com> writes:
>
> JG> On 7/21/10 Wed Jul 21, 2010 11:51 AM, "Vaughan Williams"
> JG> <vaughan...@gmail.com> scribbled:
>
> >> Hi all,
> >>
> >> I'm hope you all could help me with a very simple question.
> >>
> >> I have a multi line text file laid out as below.
> >>
> >> 10.10.10.45 bobs
> >> 10.10.10.34 jims
> >> 10.10.10.27 jacks
> >> .....
> >> .....
> >>
> >> I would like to that the 10.10.10.??? and move it to the end of the same
> >> line so the output will look like.
> >>
> >> bobs 10.10.10.45
> >> jims 10.10.10.34
> >> jacks 10.10.10.27
> >> .....
> >> .....
>
> JG> perl -ane 'print join(" ",reverse(@F)),"\n"' file
>
> adding -l will eliminate the need for the "\n".
>
> since you gave a fish (which i didn't want to do), here is my take
> (untested):
>
> perl -pe 's/(\S+)\s+(\S+)/$2 $1/' file
>
Since the weather's good for golf...
perl -pale ' $_=join " ", reverse @F' file
perl -ple ' /\s+/;$_="$' $`" ' file
--
Charles DeRykus
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
