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
Message-ID: <3EFDDF97.29F49125@dessent.net>
Date: Sat, 28 Jun 2003 11:33:59 -0700
From: Brian Dessent <brian AT dessent DOT net>
Organization: My own little world...
X-Accept-Language: en,pdf
MIME-Version: 1.0
To: cygwin AT cygwin DOT com
Subject: Re: example needed pls: `cygpath -c <HANDLE>'
References: <Xns93A88A37D41F9soren1Gmane AT 80 DOT 91 DOT 224 DOT 249>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Soren A wrote:

> I am trying to finish a test script that uses ActivePerl to call `cygpath`
> from itself (a system call, by open()-ing a pipe to capture the output of
> the tool ...
> 
>   {... stuff ...}
>   open(CTH, '-|', "C:/cygwin/bin/cygpath $MS_path_filename")
>     or die "Could not open() call to 'cygpath', what is up?";
>   $cygstyle_path = <CTH>;
>   chomp $cygstyle_path;
>   {... stuff ...}

If $MS_path_filename is indeed a regular Windows filename (with
backslashes) you will need to either use quotemeta() or s!\\!/!g because
singular backslashes will be removed during interpolation.

my $foo = quotemeta($MS_path_filename);
chomp (my $cygpath = chomp `cygpath -u $foo`);
# now $cygpath should be usable

Here's a little thing I cooked up that I find very useful, I call it
dodos.  It lets you run any DOS/Windows program and call it with unix
arguments.  For example, you could type "dodos notepad /etc/aliases" or
"dodos notepad /etc/hosts.*" and you'd get what you expect.

#!/usr/bin/perl -w

my @newargs = $ARGV[0];

foreach my $arg (@ARGV[1..$#ARGV]) {
        my $foo = quotemeta($arg);
        $foo = `cygpath -wsa $foo 2>/dev/null`;
        chomp $foo;
        push @newargs, $foo;
}

exec @newargs;

Brian

--
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/