Perl現(xiàn)在究竟還有多少人在用、在學(xué)呢？

waistcoats

原帖由 flw 于 2008-7-27 16:27 發(fā)表

關(guān)于這句話，我這里有個注解：

同行是冤家，害死一個算一個！

國富論？

hoohoobjj

我在學(xué)呢，呵呵

yuanyuan025

沒法統(tǒng)計啊

scottsiu

上周3我很有準(zhǔn)備用PERL寫個腳本來“切字符串”的，不過后來用了60行的bash shell代替，原因是PERL手冊中沒教我“遍歷文件內(nèi)容”


bash shell代碼如下：
#!/bin/bash

#Find all tablename in VIEWS files
views=$(cat $1 | awk -F " " '
{
        print $3;
}
');

for table_name in `echo $views`
do
        echo "-----------------$table_name";
        table_columns_sql=$(sed -e :a -e 'N;s/\r\n//;ta' $2 | sed -e 's/go/\n/ig' | grep -i "create table $table_name " | awk -F "\\\)lock allpages" '{print $1}' | awk -F ",\t\tCONSTRAINT" '{print $1}' | sed -e "s/create\ table\ $table_name\ (//ig");
        table_pk=$(echo $table_columns_sql | awk -F " " '{print $1}');

        #===== View ======
        table_columns_type=$(echo $table_columns_sql | sed -e 's/ , /,\n/ig' | sed -e 's/null//ig' | sed -e 's/not//ig' | sed -e '/^$/d');
        echo "CREATE OR REPLACE view $table_name as
select * from dblink('dbname=xxxx user=xxxx password=xxxx',
'select * from $table_name')
  as t1(
        $table_columns_type
);";


        #===== View insert ======
        table_columns=$(echo $table_columns_type | sed -e 's/ , /,\n/ig' | awk -F " " '{
                if(NR>1){
                        printf("|| \047,\047 || case when NEW.%s is not null then \047\047\047\047 || NEW.%s || \047\047\047\047 else \047\047\047\047\047\047 end\n\t",$1,$1)
                };
}');
        echo "CREATE OR REPLACE RULE "$table_name"_i AS
    ON INSERT TO $table_name DO INSTEAD
SELECT dblink_exec('dbname=xxxx user=xxxx password=xxxx'::text,
'INSERT INTO $table_name VALUES ('
        || case when NEW.$table_pk is not null then '''' || NEW.$table_pk || '''' else '''''' end
        $table_columns|| ');'
);
";

        #===== View update ======
        table_columns=$(echo $table_columns_type | sed -e 's/ , /,\n/ig' | awk -F " " '{
                if(NR>1){
                        printf("|| \047chrcssm=\047 || case when NEW.%s is not null then \047\047\047\047 || NEW.%s || \047\047\047,\047 ELSE \047%s,\047  end\n\t",$1,$1,$1)
                };
}');
        echo "CREATE OR REPLACE RULE "$table_name"_u AS
    ON UPDATE TO $table_name DO INSTEAD
SELECT dblink_exec('dbname=xxxx user=xxxx password=xxxx'::text,
'UPDATE $table_name SET '
        $table_columns|| ' WHERE $table_pk=''' || OLD.$table_pk || ''';'
);
";

        #===== View delete ======
        echo "CREATE OR REPLACE RULE "$table_name"_d AS
    ON DELETE TO $table_name DO INSTEAD
SELECT dblink_exec('dbname=xxxx user=xxxx password=xxxx'::text,
'DELETE FROM $table_name WHERE $table_pk=''' || OLD.$table_pk || ''';'
);
";
done

scottsiu

處理文本用bash+awk+sed更爽

hitsubunnu

原帖由 scottsiu 于 2008-7-30 11:14 發(fā)表
上周3我很有準(zhǔn)備用PERL寫個腳本來“切字符串”的，不過后來用了60行的bash shell代替，原因是PERL手冊中沒教我“遍歷文件內(nèi)容”

不是沒教 而是你沒學(xué)

兄弟你悠著點 切個字符串  寫60行  別累壞了

有時間建議你看看 perl語言入門 你會有意外的收獲的

damofeixue

這bash寫的太丑陋了，真的建議兄弟靜下心來學(xué)習(xí)perl的文本處理

forlorngenius

這代碼寫的  
估計寫完后兩種情況：要么很high， 很有成就感。 要么很累。
關(guān)于切字符串，用awk還不如用perl快。

2gua

辛苦你了啊。

__lxmxn__

此人瘋了，鑒定完畢……