/dev/vcs[a]<n>vous n'obtiendrez que le dernier écran plein même si vous avez fait défiler vers le haut, mais la sélection ioctl()telle qu'utilisée par gpmvous permettra de vider l'écran actuellement affiché même lorsque vous avez fait défiler vers le haut.
Vous pouvez donc faire:
sleep 3; perl -e '
require "sys/ioctl.ph";
# copy:
ioctl(STDIN, &TIOCLINUX, $arg = pack("CS5", 2, 1, 1, 80, 25, 2));
# paste:
ioctl(STDIN, &TIOCLINUX, $arg = "\3")'; cat > file
Ajustez le 80 et le 25 à votre largeur et hauteur d'écran réelles.
Le sleep 3vous donne le temps de faire défiler vers le haut (avec Shift+PageUP) jusqu'à l'écran que vous souhaitez vider. cat > fileredirige la pâte vers file. Terminez avec Ctrl+D.
Voir console_ioctl(4)pour plus de détails.
Si vous avez gpminstallé et exécuté, vous pouvez faire cette sélection avec la souris.
Le défilement et la sélection de la console virtuelle Linux sont très limités et assez ennuyeux (en ce que lorsque vous changez de console, vous perdez tout le défilement). À l'avenir, je vous suggère d'utiliser des choses comme GNU screenou tmuxen son sein (je les utilise personnellement dans des terminaux encore plus performants). Avec eux, vous pouvez avoir des défilements de recherche plus importants et les vider facilement dans des fichiers (et même enregistrer toutes les sorties du terminal, ainsi que tous les autres goodies fournis avec ces multiplexeurs de terminaux).
Quant à l'automatisation du processus de vidage de la totalité du tampon de défilement, cela devrait être possible dans certaines conditions, mais assez difficile car l'API est très limitée. Il existe un document non documenté ioctl(TIOCLINUX, sous-code = 13) pour faire défiler la console virtuelle actuelle d'un certain décalage (négatif pour le défilement vers le haut, positif pour le défilement vers le bas).
Il n'y a cependant aucun moyen (que je sache) de connaître la taille actuelle du tampon de défilement. Il est donc difficile de savoir quand vous avez atteint le sommet de ce tampon. Si vous essayez de le faire défiler, l'écran ne sera pas déplacé d'autant et il n'y a aucun moyen fiable de savoir à quel point l'écran a réellement défilé.
Je trouve également le comportement de l'ioctl de défilement erratique (au moins avec la console VGA), où le défilement de moins de 4 lignes ne fonctionne qu'occasionnellement.
Le script ci-dessous semble fonctionner pour moi sur les consoles de tampon de trames (et parfois sur les consoles VGA) à condition que le tampon de défilement ne contienne pas de séquences de lignes identiques plus longues qu'un écran plus une ligne.
C'est assez lent car il fait défiler une ligne à la fois et doit attendre 10 ms pour eof lors de la lecture de chaque vidage d'écran.
À utiliser à that-script > filepartir de la console virtuelle.
#! /usr/bin/perl
require "sys/ioctl.ph";
($rows,$cols) = split " ", `stty size`;
$stty = `stty -g`; chomp $stty;
system(qw(stty raw -echo icrnl min 0 time 1));
sub scroll {
ioctl(STDIN, &TIOCLINUX, $arg = pack("Cx3l", 13, $_[0])) or die "scroll: $!";
}
sub grab {
ioctl(STDIN, &TIOCLINUX, $arg = pack("CS5", 2, 1, 1, $cols, $rows, 2)) or die "copy: $!";
ioctl(STDIN, &TIOCLINUX, $arg = "\3") or die "paste: $!";
return <STDIN>;
}
for ($s = 0;;$s--) {
scroll $s if $s;
@lines = grab;
if ($s) {
last if "@lines" eq "@lastlines";
unshift @output, $lines[0];
} else {
@output = @lines;
}
@lastlines = @lines;
}
print @output;
exec("stty", $stty);