On Monday 10 December 2007 21:50, John Jack wrote: > > Hi Group Hello,
> I'm new to perl and haven't used it before. I'm still practising and > trying my best to know it. Anyway, I wanted to print the list of > files in a directory with their full pathnames. This script below > worked fine but I want to write it to a file. Can someone help me, > please? I know it must be very simple but as I said I very new to > programming and perl is my new programming language to learn. #!/bin/perl use warnings; use strict; use File::Find; my $ByteCount = 0; open OUTFILE, '>', 'c:/perl/output.txt' or die "Can't open output.txt: $!"; find( \&pits, 'W:/Users/PACLAWMAT/PACIFIC TREATIES' ); print "Files are using $ByteCount bytes\n"; # Subroutine that determines whether we matched the file extensions. sub pits { if ( /\.doc$/ ) { print OUTFILE "$File::Find::name\n"; $ByteCount += -s; } } close OUTFILE; __END__ John -- use Perl; program fulfillment -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/