perl -MPOSIX -e 'print strerror($ARGV[0])."\n";' 14
--------------
$ cp /work/host/phone/ui/main.cpp !#$:s/host/target
expand to:
cp /work/host/phone/ui/main.cpp /work/target/phone/ui/main.cpp
-----------
$ while read line; do echo $line; done < file
count=0
while read line
do
echo $line
((count++))
done < file
---------------
--------------
$ cp /work/host/phone/ui/main.cpp !#$:s/host/target
expand to:
cp /work/host/phone/ui/main.cpp /work/target/phone/ui/main.cpp
-----------
$ while read line; do echo $line; done < file
count=0
while read line
do
echo $line
((count++))
done < file
---------------