Thread: shared script example
View Single Post
  #5  
Old 01-22-2013, 11:32 AM
c0ncrete's Avatar
c0ncrete
Dragon
  
Join Date: Dec 2009
Posts: 719
Default
this should be a platform-independent match so things should work without worrying about symlinks, junctions, etc (i'm working with xp here...)

Code:
( my $cwd = $0 ) =~ s/(?:(?!\\|/)\S)+$//;
__________________
I muck about @ The Forge.
say(rand 99>49?'try '.('0x'.join '',map{unpack 'H*',chr rand 256}1..2):'incoherent nonsense')while our $Noport=1;
Reply With Quote