Turner wrote:
> Hello Perl gurus,
>
> I'm currently in the process of writing a chat server in Perl.
> Everything is all hunky-dory--it parses commands as it should, and is,
> of course, quite satisfying. Except for one thing, and that is that it
> cannot handle multiple clients at once, which, nee
Dermot wrote:
> Hi,
>
> ls | perl -ne 'print if /\.$/'| sed 's/\(.*\)/mv & \1jpg/' | sh
>
>
> I concocted the above command to change files named
>
> A1234. to A1234.jpg
>
> Is there a pure perl one-liner for this? Just curious.
>
> Thanx,
> Dp.
>
perl -e 'rename $_, $_."jpg" foreach (glob