diff options
author | EuAndreh <eu@euandre.org> | 2022-10-14 23:17:09 -0300 |
---|---|---|
committer | EuAndreh <eu@euandre.org> | 2022-10-14 23:17:09 -0300 |
commit | 6c1d1cdb79184c4992f14062b40218f120a1d6b7 (patch) | |
tree | b9ce9b6065a74d5e22952d7a353ffeb7bf43df03 | |
parent | bin/x: Rewrite in Perl, overcome quoting issues (diff) | |
download | dotfiles-6c1d1cdb79184c4992f14062b40218f120a1d6b7.tar.gz dotfiles-6c1d1cdb79184c4992f14062b40218f120a1d6b7.tar.xz |
bin/uri: Split help option parsing from main program logic
-rwxr-xr-x | bin/uri | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -66,7 +66,10 @@ if ($opts{h}) { say STDERR ''; usage *STDERR; exit 2; -} elsif ($opts{d}) { +} + + +if ($opts{d}) { print URI::Escape::uri_unescape(<STDIN>); } else { print URI::Escape::uri_escape(<STDIN>); |