Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sources.redhat.com/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sources.redhat.com/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com
X-MimeOLE: Produced By Microsoft Exchange V6.0.6487.1
content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: text/plain;
	charset="us-ascii"
Subject: RE: Is there a 'ping' in cygwin?
Date: Mon, 20 Oct 2003 10:29:39 -0500
Message-ID: <03C99898510C8C47945B932907D99AAA16F002@E2KMEMMCS1.ftbco.ftn.com>
X-MS-Has-Attach: 
X-MS-TNEF-Correlator: 
From: "DePriest, Jason R." <jrdepriest AT ftb DOT com>
To: <cygwin AT cygwin DOT com>
X-OriginalArrivalTime: 20 Oct 2003 15:29:40.0354 (UTC) FILETIME=[FA78CE20:01C3971E]
X-DCC-FTBDCCD1-Metrics: dns1 1130; Body=1 Fuz1=1 Fuz2=1
Content-Transfer-Encoding: 8bit
X-MIME-Autoconverted: from quoted-printable to 8bit by delorie.com id h9KFUaEN017015

> -----Original Message-----
> From: cygwin-owner AT cygwin DOT com 
> [mailto:cygwin-owner AT cygwin DOT com] On Behalf Of Hughes, Bill
> Sent: Monday, October 20, 2003 10:05 AM
> To: 'cygwin AT cygwin DOT com'
> Subject: RE: Is there a 'ping' in cygwin?
[- snip -]
> Now do I bother writing something to rename all .EXE to lower 
> case? I don't
> think so.
[- /snip -]

I already did for similar reasons.  It doesn't recurse directories and
it renames ALL files (not just .exe), but it does work.

[- perl script -]
# This script will take files names that are in
# capital letters and convert them to lower case
# letters.  I'm going to use the easy way.  Copy
# the file to a temp file, delete the original,
# then copy the temp file back to the original
# file name in lower case letters.

use File::Copy;

$PathToFiles = $ARGV[0];

chdir($PathToFiles);
@FileNameList = glob("*.*");
foreach $FileName (@FileNameList) {
	$FileNamelc = lc $FileName;
	copy("$PathToFiles\\$FileName","$PathToFiles\\$FileName\.tmp");
	rename("$PathToFiles\\$FileName","$PathToFiles\\$FileNamelc");
	unlink("$PathToFiles\\$FileName\.tmp");
	print "$FileName renamed to $FileNamelc\n";
}
[- /perl script -]

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/