> -Original Message-
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 13, 2001 8:09 PM
> To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
> Subject: Re: to remove the file extension
>
>
> >>>>> "Jason" == Jason Til
Hi, Randall! :)
(BTW, great book. :-D In case you hadn't been told enough!)
On 13 Sep 2001 [EMAIL PROTECTED] wrote:
> > "Bob" == Bob Showalter <[EMAIL PROTECTED]> writes:
> Bob> perl -e '-f $_ || print "Missing $_\n" for map {/^(.*)\.c$/; "$1.out"}
> Bob> @ARGV' *.c
> No. You've used $1
Hi, Bob, :)
This is so great!
On Thu, 13 Sep 2001, Bob Showalter wrote:
> > -Original Message-
> > 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.
> p
In article <[EMAIL PROTECTED]>, [EMAIL PROTECTED]
(Jaya Kumaran) wrote:
> 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.
you can do something like so. rem
> -Original Message-
> From: jaya kumaran [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, September 13, 2001 5:18 AM
> 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 c
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 "$outfna
