riywo

$ cat /proc/self/cmdline | strings -1
cat
/proc/self/cmdline

riywo

use strict;
use warnings;
use B;

B->new();

#-------------------------------

package A;

riywo

$ ls
$ perl -e 'open my $fh, "+<", "hoge" or die $!'
No such file or directory at -e line 1.
$ ls
$ perl -MFcntl -e 'sysopen my $fh, "hoge", O_RDWR|O_CREAT or die $!'
$ ls
hoge

riywo

$ for i in no / /dev /boot /d /de /deva; do echo $i | grep -E '^/([^(dev)].+||d|de|dev.+)$' || echo "skip $i"; done
skip no
/
skip /dev
/boot
/d
/de
/deva

riywo

for i in a aaa bbb abc abcd abcafa ab; do echo $i | grep -E '^a([^(bc)].+||b|bc.+)$' || echo "skip $i"; done
a
aaa
skip bbb
skip abc
abcd
abcafa
ab

riywo

#!/usr/bin/expect
spawn dpkg-reconfigure -f readline dash
expect "Use dash as the default system shell (/bin/sh)?"
send "n\n"
interact

riywo

default_run_options[:shell] = 'bash -l'
set :sudo, 'sudo -H'

riywo

app_home = "/home/#{node['app']['username']}"
execute "add localhost to known_hosts" do
  user node['app']['username']
  group node['app']['username']
  cwd app_home
  command "ssh-keyscan localhost >> #{app_home}/.ssh/known_hosts"
  not_if "grep -q \"`ssh-keyscan localhost`\" #{app_home}/.ssh/known_hosts"
end

riywo

export PS1='\[\033k'"$HOSTNAME"'\033\\\]'"$PS1"

riywo

SERVER_ID=1 erb my.cnf.erb > /etc/my.cnf