Perl STRG+Z abfangen?

[alexander newald]

Wie kann ich mir Perl STRG+Z abfangen (auf der Console)?

[mausgreck]

SIGTSTP mit sigprocmask() abfangen.

Hier ein C-Programm, Perl funktioniert sicher analog:

Code: Select all

/* 
 * Block ^Z in shells by blocking SIGTSTP
 * Compile with gcc -Wall -O3 test.c
 */
#include <signal.h>
#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <unistd.h>

int main()
{
    sigset_t sigset;

    sigemptyset(&sigset);
    sigaddset(&sigset, SIGTSTP);
    if(sigprocmask(SIG_BLOCK, &sigset, NULL)) {
        fprintf(stderr, "Error calling sigprocmask: %s (%d)n", strerror(errno), errno);
        return 0;
    }
    for(;;) {
        sleep(2);
        puts("blah...");
    }
}

Empfehlenswerte Lektüre:

Code: Select all

man signal
man sigaction

[alexander newald]

Thanks