Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re^4: OS independent perl script

by Anonymous Monk
on Feb 21, 2014 at 18:42 UTC ( #1075767=note: print w/replies, xml ) Need Help??

in reply to Re^3: OS independent perl script
in thread OS independent perl script

See also  help for and Re: Command line arguments not passed in Win7 ( regqueryperl.bat ), Question on Strawberry's Portable .bat file

@setlocal @set thisdir=%~dp0 @set thisfile=%~f0 @set thisfilebasename=%~n0 @set thisfilename=%~nx0 @set @set @echo thisdir=%thisdir% @echo thisfile=%thisfile% @echo thisfilebasename=%thisfilebasename% @echo thisfilename=%thisfilename% @echo thisfilecorion=%thisfilecorion% @echo thisfilepl=%thisfilepl% @echo; @endlocal

thisdir=D:\ thisfile=D:\this2.bat thisfilebasename=this2 thisfilename=this2.bat thisfilecorion=D:\ thisfilepl=D:\

And the advanced broken version (for stupid paths )
^ is trickier than the others ... above escaping useful for example if you're  echo %stuff% >> otherfile.bat
yes, cmd.exe is a mess

@setlocal @set "thisdir=%~dp0" @set "thisfile=%~f0" @set "thisfilebasename=%~n0" @set "thisfilename=%~nx0" @set "" @set "" @echo thisdir="%thisdir% @echo thisfile="%thisfile% @echo thisfilebasename="%thisfilebasename% @echo thisfilename="%thisfilename% @echo thisfilecorion="%thisfilecorion% @echo thisfilepl="%thisfilepl% @echo; @set "thisfile=%~f0" echo %thisfile% @set "thisfile=%thisfile:^=\^%" @set "thisfile=%thisfile:>=^>%" @set "thisfile=%thisfile:<=^<%" @set "thisfile=%thisfile:&=^&%" @set "thisfile=%thisfile:|=^|%" @set "thisfile=%thisfile:)=^)%" @set "thisfile=%thisfile:(=^(%" @set "thisfile=%thisfile:[=^[%" @set "thisfile=%thisfile:]=^]%" @set "thisfile=%thisfile:"=\"%" @echo escaped-thisfile "%thisfile%" @echo; @endlocal

$ "D:\pa^th\this2.bat" thisdir=D:\path\ thisfile=D:\path\this2.bat thisfilebasename=this2 thisfilename=this2.bat thisfilecorion=D:\path\ thisfilepl=D:\path\

Replies are listed 'Best First'.
Re^5: OS independent perl script
by Anonymous Monk on Feb 21, 2014 at 19:51 UTC
    FWIW the second output was wrong one
    $ "pa^th\this2.bat" thisdir="D:\pa^th\ thisfile="D:\pa^th\this2.bat thisfilebasename="this2 thisfilename="this2.bat thisfilecorion="D:\pa^th\ thisfilepl="D:\pa^th\ $ echo D:\path\this2.bat D:\path\this2.bat escaped-thisfile "D:\pa\^th\this2.bat"

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1075767]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2020-02-17 19:36 GMT
Find Nodes?
    Voting Booth?
    What numbers are you going to focus on primarily in 2020?

    Results (72 votes). Check out past polls.