Hi Rouben! And you too Morty (and Adam)! Hope all is well,
I know less about Perl, and this is not clever but an alternative not
necessarily better, change to the directory where the files are and use
bin/ls;expr instead of find|xargs.
for i in `/bin/ls -1 *.dev`; do j=`expr $i : '\(.*\)'\.dev`; mv $i $j; done
H. Mark Perks, Ph.D. MEYR 549C
Dept of Chemistry and Biochemistry
410 455-2789
UMBC
pe...@umbc.edu
Baltimore, MD 21250
> --
> You received this message because you are subscribed to the Google Groups "UMBC Linux Users' Group" group.
> To unsubscribe from this group and stop receiving emails from it, send an email to
umbclug+u...@googlegroups.com.
> To view this discussion on the web visit
https://groups.google.com/d/msgid/umbclug/YQk9yyi7b3RP0HE4%40shadow.
>