Files
dotfiles/.local/share/nautilus/scripts/Plain text/List files with bad chars
T

46 lines
1.5 KiB
Bash
Executable File

#!/usr/bin/env bash
# install_keyboard_shortcut=<Control><Alt>3
# Source the script 'common-functions.sh'.
SCRIPT_DIR=$(cd -- "$(dirname -- "${BASH_SOURCE[0]}")" &>/dev/null && pwd)
ROOT_DIR=$(grep --only-matching "^.*scripts[^/]*" <<<"$SCRIPT_DIR")
source "$ROOT_DIR/common-functions.sh"
_main() {
local input_files=""
local output_dir=""
# Execute initial checks.
_check_dependencies ""
_display_wait_box "2"
input_files=$(_get_files "par_type=file; par_recursive=true; par_get_pwd=true; par_select_mime='text/|application/json'")
# Execute the function '_main_task' for each file in parallel.
_run_task_parallel "$input_files" "$output_dir"
local std_output=""
std_output=$(_storage_text_read_all)
_display_list_box "$std_output" "--column=Char;--column=Line;--column=File"
}
_main_task() {
local input_file=$1
local output_dir=$2
local std_output=""
# Run the main process.
std_output=$(
grep --ignore-case --perl-regexp --only-matching --line-number \
"[^ \w\t\n\r\-\,\;\:\!\?\.\'\"\(\)\[\]\{\}\@\*\/\\\&\#\%\`\^\+\<\=\>\|\~\$áàâãçéêíóôõú\“\”®§©ªº°¹²³«»´¢£µ]" \
-- "$input_file" /dev/null
)
std_output=$(_text_remove_pwd "$std_output")
# shellcheck disable=SC2001
std_output=$(sed "s|^\([^:]*\):\([^:]*\):\([^:]*\)$|\3$FIELD_SEPARATOR\2$FIELD_SEPARATOR\1|g" <<<"$std_output")
_storage_text_write_ln "$std_output"
}
_main "$@"