tcc или скрипты на ansi C

Иногда нужно написать скрипт, для которого возможностей bash'а не хватает. С другой стороны, использование нормального ЯП тоже не оправдано. К примеру, bash не умеет арифметику с вещественными числами(только целые), ну или bash не умеет работать с отдельными символами(как с байтами. Точнее умеет, но работать с символами неудобно).

Можно использовать обычный ЯП C, стандарта C99, и интерпретатор/компилятор tcc.

Вот простая задача: посчитать символы в тексте, и вывести их процентное содержание. На bash, скрипт будет очень сложный и громоздкий, а вот реализация на сишке:

#!/usr/bin/tcc -run
#include <stdio.h>
#include <libgen.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
int main(int argc, char* argv[])
{
    const char* myname = basename(argv[0]);
    if(argc!=2)
    {
        fprintf(stderr, "Usage: %s FILENAME\n",
                myname);
        return 1;
    }
    int freq[256];
    int j;
    for(j=0; j<256; j++)    freq[j] = 0;
    FILE* fs = fopen(argv[1], "r");
    if(!fs)
    {
        fprintf(stderr, "%s:Can't open file '%s' (%s)\n", myname, argv[1], strerror(errno));
        return 1;
    }
    int c;
    while((c = fgetc(fs))!=EOF)
        freq[c]++;
    fclose(fs);
    double sum = 0.0;
    for(j=0; j<256; j++)    sum += freq[j];
    if(sum==0.0)
    {
        fprintf(stderr, "%s:File '%s' is empty\n", myname, argv[1]);
        return 1;
    }
    for(j=0; j<256; j++)
        if(freq[j]>0)
            printf("%d\t%c\t%d\t%f%%\n",
                    j,
                    j<=32 || j>=128? ' ': j,
                    freq[j],
                    (freq[j]/sum)*100);
    return 0;
}

пользоваться этим можно как с любым другим скриптом: сохранить файл, дать право использования(выполнения), и запускать. К примеру я сохранил в wcf.c

Да есть Perl, Python...

В питоне можно использовать SQL запросы к БД...

спасибо, познавательно, но я тоже, когда не хватает баша, просто нерехожу на пайтон.

Ещё есть tk/tcl. Tcl - мощный shell-like interpreter.

Пётр.

"Bif" написал:

Да есть Perl, Python...

"Bif" написал:

В питоне можно использовать SQL запросы к БД...

"Peter" написал:

Ещё есть tk/tcl. Tcl - мощный shell-like interpreter.

Спасибо, интересное решение.

dyasny написал:

нерехожу на пайтон.

А я его не знаю, но учить придется. Потому что на нем blueman написан, и из него надо выпилить обязательную поддержку пульсы.

"yars" написал:

А я его не знаю, но учить придется. Потому что на нем blueman написан, и из него надо выпилить обязательную поддержку пульсы.

довольно простой и удобный язык, особенно если невыеЖиваться и не вдаваться в пайтонизмы. Особенно хорош тем что сама структура синтаксиса заставляет писать читабельный код. Я сейчас похоже буду Go учить, хотя предпочел бы не распыляться

"dyasny" написал:

когда не хватает баша, просто нерехожу на пайтон.

"dyasny" написал:

Особенно хорош тем что сама структура синтаксиса заставляет писать читабельный код.

"drBatty" написал:

ну  питон это  конечно  хорошо, вот только  C он  быстрее будет. Всегда  ведь  можно просто  взять, и  собрать данный  скрипт с  помощью  gcc. А питон так на всегда питоном и останется.

когда его не достаточно можно и на С, но я RT не пишу, в основном автомацию всякую

"drBatty" написал:

Есть ещё  плюс: возможность нативного использования  библиотек. Zlib, OpenSSL  например. А в питоне  оно на костылях, увы.

костыли под капотом - вполне возможно. но в написании все очень удобно, под все есть библиотеки

"dyasny" написал:

когда его не достаточно можно и на С

"dyasny" написал:

но я RT не пишу

"dyasny" написал:

костыли под капотом - вполне возможно. но в написании все очень удобно, под все есть библиотеки

"drBatty" написал:

ну  а  тут  _сразу_  на  C.

обычно его достаточно. не хватает не потому что функционала ЯП мало, а потому что надо работать не с объектами а с памятью напрямую например. Недавно как раз понадобился в срочном порядке прокси для бинарного потока, на пайтоне тормозило, сделали вставку которая читала из сокета в буфер, а потом писала в другой сокет на C. Вышло быстрее, да. Потом подумали еще раз и написали на пайтоне управлялку для iptables - оказалось еще быстрее

"drBatty" написал:

тут  как  получится.  Никогда не знаешь, где и когда  быстродействия  не хватит.
Смысл сабжевых скриптов  в том, что их не придётся  переписывать на C,  т.к.  они и так на C.

ну за то я и поблагодарил - добавил себе инструмент на всякий пожарный. Буду ли я его использовать повседневно - врядли, не те задачи

"drBatty" написал:

ну  лично  мне  всё равно  нужно знать , как работать с библиотеками на C/C++. А изучать биндинги  X→Y  мне  лениво,  т.к.  ЯП я  знаю около  полусотни, а  всяких Y и того больше. И везде свои сложности.  В этих  ваших  питонах всяких  например  традиционная проблема с UTF-8,  а ещё проблема  версий(perl6, python3,  и  т.п.).

везде свои проблемы, и все зависит от задач. C теряет смысл когда быстродействие не важно, зато надо писать большое количество сложного высокоуровневого функционала. Чтоб далеко не ходить - openstack отличный пример. Если бы его писали на С, его бы до сих пор не существовало.

"dyasny" написал:

не хватает не потому что функционала ЯП мало,

"dyasny" написал:

везде свои проблемы, и все зависит от задач. C теряет смысл когда быстродействие не важно, зато надо писать большое количество сложного высокоуровневого функционала. Чтоб далеко не ходить - openstack отличный пример. Если бы его писали на С, его бы до сих пор не существовало.

drBatty написал:

[quote="Peter"]Ещё есть tk/tcl. Tcl - мощный shell-like interpreter.

"Peter" написал:

но у него удобный синтаксис, он похож на C.

"dyasny" написал:

и не вдаваться в пайтонизмы

Можно пример?

"Vitri" написал:

Можно пример?

l = [1, 2, 3, 4, 5]
print(sorted(l, key=lambda x: -x))

"dyasny" написал:

l = [1, 2, 3, 4, 5] print(sorted(l, key=lambda x: -x))

"drBatty" написал:

это не  пайтонизм,  а  борщеедство  из LISP'а. Известно  с 60х годов прошлого века, но борщееды(уже третье поколение ЧСХ) до  сих пор на  это фапают. Если честно, я  тут не вижу ни чего  хорошего и  полезного.  IRL  это  всё не  нужно, и работает  лишь вот на  таких тестовых  примерах.
Алсо, в C++11 это тоже работает.

ну у меня куча коллег с такого в пайтоне прутся, а я считаю это лишней фигней, делающей простые функции плохо читабельными.

JFF добавил сортировку простыми вставками

#!/usr/bin/tcc -run
#include <stdio.h>
#include <libgen.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
void sort(const int* a[], int n)
{
    int j, k;
    const int* i;
    for(j=1; j<n-1; j++)
    {
        for(k=j+1, i=a[j+1]; k>0; k--)
        {
            if(*i>=*(a[k-1]))
                break;
            a[k] = a[k-1];
        }
        a[k] = i;
    }
}
int main(int argc, char* argv[])
{
    const char* myname = basename(argv[0]);
    if(argc!=2)
    {
        fprintf(stderr, "Usage: %s FILENAME\n",
                myname);
        return 1;
    }
    int freq[256];
    int j;
    for(j=0; j<256; j++)    freq[j] = 0;
    FILE* fs = fopen(argv[1], "r");
    if(!fs)
    {
        fprintf(stderr, "%s:Can't open file '%s' (%s)\n", myname, argv[1], strerror(errno));
        return 1;
    }
    int c;
    while((c = fgetc(fs))!=EOF)
        freq[c]++;
    fclose(fs);
    const int* a[256];
    for(j=0; j<256; j++)    a[j] = &freq[j];
    sort(a, 256);
    double sum = 0.0;
    for(j=0; j<256; j++)    sum += *(a[j]);
    if(sum==0.0)
    {
        fprintf(stderr, "%s:File '%s' is empty\n", myname, argv[1]);
        return 1;
    }
    for(j=0; j<256; j++)
        if(*(a[j])>0)
        {
            int k = a[j]-freq;
            printf("%d\t%c\t%d\t%f%%\n",
                    k,
                    k<=32 || k>=128? ' ': k,
                    *(a[j]),
                    (*(a[j])/sum)*100);
        }
    return 0;
}