Perl | Regex | match numbers greater than X only
Example: Numbers bigger than 240 ^([2-9][4-9]\d{1}\d*|\d{4}\d*)$
Month: February 2017
bash | keep a file open
tail -f /dev/null > FILE
Convert files Unix to DOS
sed -e ‘s/$/\r/’
Bash | script | drop all quotes from string
function drop_bad_chars { echo “$@” | sed “s|[\’]||g” | sed ‘s|[\”]||g’ }
cleanup config file
while read LINE; do echo “$LINE” | grep ‘^#’ > /dev/null && continue echo “$LINE” | grep ‘^\s*$’ > /dev/null && continue STRG=”$(echo “$LINE” | sed ‘s|\#.*$||’ | awk ‘{gsub(/^ +| +$/,””)} {print $0}’)” echo “x${STRG}x” done < $A_FILE
shell | script self run check
LINUX: MYARGS=”$(ps -wwo args= $$)”; ps wwaux | grep -v grep | grep “$MYARGS” | grep -vwe “$$” -vwe “$PPID” && exit LINUX && OPENBSD: MYARGS=”$(ps -wwo args= -p $$)”; MYSESS=”$(ps -wwo sess= -p $$)”; ps -wwo sess,args= | grep -v grep | grep “$MYARGS” | grep -vw $MYSESS > /dev/null 2>&1 && exit
bytes and bones 