I like to clean up the PATH as well when faced with such an operation (where I am preparing to run external programs and may be adding or removing pathels [path-list elements]).

Here's a little code to prepare the PATH so that it is less likely to cause problems. 

#!perl

use Memoize;
use Win32;
use strict;

sub sp {
    my $pn;
    die unless @_ and (($pn)=shift);
    warn "No such directory: \"$pn\"" && return undef unless -d $pn;
    ($pn = Win32::GetShortPathName($pn)) =~ s{\\}{/}g;
    substr ($pn, 1+rindex($pn,'/')) = lc substr ($pn, 1+rindex($pn,'/'
+));
    $pn
}
sub smorp {
    my ($piece) = @_;
    $piece =
        lc $piece eq 'system32'
     ?      'system32'
     :  uc $piece eq 'WINDOWS'
     ?      'WINDOWS'
     :  $piece;
     return "/".$piece;
}


memoize('sp');
memoize('smorp');

BEGIN { use Env qw/@PATH/; use vars ('@thePATH', '%Uniqueness'); }
@thePATH = @PATH;
@PATH = ();

PONGO:
for my $ele (@thePATH)
{
    my $npiece;
    my @shattered = grep {$_} split /(?:[\\\/]+|:)+/ , $ele;
    my $backtog = index ($ele, ":") == 1 ?  # is it <D>:   ?
           uc(shift @shattered).":"
         :        $ele =~ m#[\\/]{2}#    ?  # or is it UNC ?
           "//".shift (@shattered)
         : do { die "UNRECOGNIZED PATHEL FORMAT" };
  BLA:
    {
      $backtog .= smorp ($npiece)  while @shattered
              && index (($npiece = shift @shattered)," ") == -1;
      unless (@shattered)
             {
               $Uniqueness{lc $backtog}++ and
                  print "# DUPLICATE element skipped (\"$backtog\")\n"
               or print "$backtog\n"; # or add to an array, or whateve
+r you need to do.
               next PONGO
             }
    # print "SPACES IN ${backtog}/${npiece}\n";
      $backtog = sp("${backtog}/${npiece}");
      redo BLA;
    }
    die "Reached code branch we should never see!";
}

[download]

    Soren Andersen / “somian” / “perlspinr”

In reply to Re: How do you modify the Win32 PATH statement in a Perl script? by Intrepid
in thread How do you modify the Win32 PATH statement in a Perl script? by MoonShadow

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.