http://www.perlmonks.org?node_id=855565


in reply to Shorten windows paths too long

`H:; cd $olddirname; cd ..; move /Y $olddirname $newname` or die "Can'
+t move $olddirname $newname: $!";

[download]

That is pretty broken code. `` (qx<>) doesn't return a boolean. It returns the output of the commands. So you are dieing if that command produces no output. And $! usually is irrelevant after qx() fails. 

my $output= qx(H:; cd $olddirname; cd ..; move /Y $olddirname $newname
+);
if(  0 != $?  ) {
    die "Can't move $olddirname $newname: $output";
}

[download]

Might be closer to correct.

- tye        

Replies are listed 'Best First'.
Re^2: Shorten windows paths too long (qx)
by gj2666 (Beadle) on Aug 18, 2010 at 15:45 UTC
    I stand corrected *blushing* I admit my code is remedial at best. I wasn't sure how to do that and gave my best guess. Thank you for the correction there. I'll fix my version per your recommendations.

    Thanks again,

[reply]

In Section Seekers of Perl Wisdom