in reply to Almost cool: removable drive "finder" instead of windows autoplay

> the code doesn't seem to iterate through the array @rmvbl unless I use reverse on it

Are you saying the first debugging "Drive: Z:" or whatever is not displayed? Use warn for debugging instead of say as standard error is not buffered.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
  • Comment on Re: Almost cool: removable drive "finder" instead of windows autoplay
  • Download Code

In Section Cool Uses for Perl