Shell Programming and Scripting

Thank you durden_tyler.

It's works but i don't understand perl.....i go to study this...

Indeed i want to compare file in a directory and a list of file in a file text for extract the newer of the same file if there are a same file....

Thanx.

Another one with awk:

Code:

echo "Nov 9 11:35:28 2009"|
awk -F" |:" '
BEGIN {
  a="Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"
  split(a,m,",")
  for(i=1;i<13;i++)
    n[m[i]]=i
}
{printf("%s%02d%02d%s%s\n", $6, n[$1], $2, $3, $4)}
'

i thank that exist a simple solution with the command date...but not with my version.
Thank you to Franklin.

Code:

echo "Nov 9 11:35:28 2009" | awk 'BEGIN{
  m=split("Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec",d,"|")
  for(o=1;o<=m;o++){
     date[d[o]]=sprintf("%02d",o)
   }     
}
{
  n=split($3,a,":")
  print $NF date[$1] sprintf("%02d",$2) a[1] a[2]
}'

output

Code:

# ./shell.sh
200911091135

Hi.

With RedHat:

Code:

date -d "Nov 9 11:35:28 2009" '+%Y%m%d%H%M'

When trying to use the Perl code:

BEGIN failed--compilation aborted.
Can't locate Date/Parse.pm in @INC (@INC contains: /qdxtest/qdx5.4/integrator/lib/perl5/5.6.0/aix /qdxtest/qdx5.4/integrator/lib/perl5/5.6.0/aix /qdxtest/qdx5.4/integrator/lib/perl5/5.6.0 /qdxtest/qdx5.4/integrator/lib/perl5/site_perl/5.6.0/aix /qdxtest/qdx5.4/integrator/lib/perl5/site_perl/5.6.0/aix /qdxtest/qdx5.4/integrator/lib/perl5/site_perl/5.6.0 /qdxtest/qdx5.4/integrator/lib/perl5/site_perl/5.6.0/aix /qdxtest/qdx5.4/integrator/lib/perl5/site_perl/5.6.0 /qdxtest/qdx5.4/integrator/lib/perl5/site_perl . /work/jerickso/quovadx_dev/qdx5.4P/integrator/lib/perl5/5.6.0/aix /work/jerickso/quovadx_dev/qdx5.4P/integrator/lib/perl5/5.6.0 /work/jerickso/quovadx_dev/qdx5.4P/integrator/lib/perl5/site_perl/5.6.0/aix /work/jerickso/quovadx_dev/qdx5.4P/integrator/lib/perl5/site_perl/5.6.0 /work/jerickso/quovadx_dev/qdx5.4P/integrator/lib/perl5/site_perl .).
BEGIN failed--compilation aborted.

Another awk solution:

Code:

echo "Nov 9 11:35:28 2009" | awk -F '[ \t:]' '
{
   printf("%04d%02d%02d%s%s\n", $6, (index("JanFebMarAprMayJunJulAugSepOctNovDec",$1)+2)/3, $2, $3, $4)
}'

Jean-Pierre.