金曜日, 6月 15, 2012

いりゅう : persuade


----------------------------
きのうの,会社辞めたい人  エピソード.

経営者に呼び出され,月々5万円の給与アップの提示をうけたとか.
そんな話をしながら,いままで,辞めていった人の悪口を滔々と聞かされてたらしい.

その人5年つとめてるから,毎年1万円ずつの定期昇給って計算か?

その人も安く見られたもんだなぁ...


----------------------------

こないだからの Fortran 整形
昨日か,おととい IsNumber 関数みたいなこと書いたが,結局

#!/bin/bash


for inputfile in ./lib/src/*/*.f ; do

    echo "now converting: "${inputfile}
    cp ${inputfile} ./tmp.tmp

    awk 'function isnum(x){return(x==x+0)} { if( isnum($1) == 1 ) printf("%5d %s\n",$1, $2); else print;}' ./tmp.tmp > ${inputfile}


done

rm -f ./tmp.tmp


しかし,この処理をしても,
そうは問屋が卸さない.

たしかに,行番号の整形はうまく行った.
この Fortran プログラムのアホなところとして
継続行つなぎ の 6 カラム目使用 の文字列に
"&" でなく 数字をつかってる。

つまりは上の awk スクリプト処理をかけたら
継続行用の数字が 6 カラム目でなく 5 カラム目にきてしまう。


ほんとに、このフリーソース、コンパイルできてるのか?
----------------------------

----------------------------
家で奥さんが子供を寝かせつけ。
パパが台所で洗い物をしてたら、息子が寝室から抜け出してきて
パパの台所仕事を見守る。

しびれをきらせた奥さんが、怒り始める。
息子と2人で謝りにいく。
----------------------------


0 件のコメント: