Re: to remove the file extension (fwd)

[jaya kumaran]

Hi,

 I found the solution... Thanks

------
opendir (DIR_NAME, ".");
@fnames = readdir (DIR_NAME);
closedir(DIR_NAME);

foreach $file (@fnames)
{
 if ($file =~ /\.c$/)
  {
          $datfname=$`;
          print "$datfname\n";
   stat($outfname);

     if( -e $outfname)
     {
    print "$outfname exists\n";
     }
    else
  {
  print "$outfname doesn't exists\n";
  }
}
}
---------       
Thanks,
jaya  


Regards,
Jaya 


> Date: Thu, 13 Sep 2001 17:18:14 +0800
> From: jaya kumaran <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: to remove the file extension
> 
> 
> hi,
> 
>   In a directory there exist *.c and *.out files. Here *.out is created for every 
>*.c file. I need to check whether .out is generated for all the .c file.
> How to achive this.
> 
> Thanks in advance,
> Jaya
> -- 
> 
> _______________________________________________
> Get your free email from http://www.indiya.com
> 
> 
> Powered by Outblaze
> 
> 

-- 

_______________________________________________
Get your free email from http://www.indiya.com


Powered by Outblaze

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]