Help for this page
my @files = ();
find(sub { $File::Find::name =~ m/${directory}(.*)$/; push @files, $1} +, $directory); @files = grep { is_dos_format("$directory/$_") } @files;
foreach my $file (@files) { print "FAILED FILE - $file\n"; }
if ($_ =~ m/\r\n/) {
#!/usr/bin/perl ... } }, $directory; __END__
www.com | www.net | www.org
No recent polls found