On Fri, 30 Dec 2005, Michael Fuhr wrote:
> On Fri, Dec 30, 2005 at 10:54:57AM -0400, Marc G. Fournier wrote:
>> Here is the cause:
>>
>> root 66170 96.2 0.1 2316 792 ?? RJ 6:59AM 430:11.37 perl -e
>> $i=<STDIN>;print substr($i,0,4) . "-" . substr($i,4,2); (perl5.8.7)
>>
>> Specifically, in my script:
>>
>> set fdate = `echo $j | \
>> awk -F. '{print $4}' | \
>> perl -e '$i=<STDIN>;print substr($i,0,4) . "-" .
>> substr($i,4,2);'`
>>
>>
>> Where $j would be equal to something like:
>>
>> /usr/local/www/archives.postgresql.org/majordomo/pgsql-hackers/files/public/archive/pgsql-hackers.200512
>>
>> Can someone suggest a cleaner way of doing this? Specifically, I'm just
>> converting the last part (200512) to 2005-12 ...
>
> As for a cleaner way, there's no need to use both awk and perl since
> either can do the whole job. Here are some possibilities:
>
> awk -F. '{print substr($4,1,4) "-" substr($4,5,2)}'
Perfect, awk was one of those that I never got anywhere far with, and
muddled through when I did :(
> As for why the existing command is sucking up CPU time, I can't think of
> why it would be. Have you done a process trace? You probably won't see
> anything if it's not making any system calls but it might be worth
> checking out.
Actually, it only does it semi-randomly, it doesn't do it every time ...
:( Have taken out the perl and just using awk now, so we'll see how it
runs ...
Thanks ...
----
Marc G. Fournier Hub.Org Networking Services (http://www.hub.org)
Email: scrappy@hub.org Yahoo!: yscrappy ICQ: 7615664