isa0061/input0
!ˆ
ƒ M·_•I|¥‰ÓM dœv ©ƒ&íK<óo¬ ÄÉ ¯ !
Index of /FSS-OZR/root/sys/dev/char/4:13/subsystem/tty19
Index of /FSS-OZR/root/sys/dev/char/4:13/subsystem/tty19
#ˆ
924¾ÄÉ œ #
Index of /FSS-OZR/root/usr/share/licenses/python3-idna
Index of /FSS-OZR/root/usr/share/licenses/python3-idna
%ˆÈÌ
0ÄÉ 9 'ˆl–Ým_J*j"Tâ€vãLÜeõ1hßÍ
ƒh¹a–Ým_J*j"Tâ€zàpM©‹FÿË '0x1050
)ˆÏÎ
ƒe¶^¾Ë
Ò )#!/usr/bin/perl
# SPDX-License-Identifier: GPL-2.0
#
# Clean a text file -- or directory of text files -- of stealth whitespace.
# WARNING: this can be a highly destructive operation. Use with caution.
#
use warnings;
use bytes;
use File::Basename;
# Default options
$max_width = 79;
# Clean up space-tab sequences, either by removing spaces or
# replacing them with tabs.
sub clean_space_tabs($)
{
no bytes; # Tab alignment depends on characters
my($li) = @_;
my($lo) = '';
my $pos = 0;
my $nsp = 0;
my($i, $c);
for ($i = 0; $i < length($li); $i++) {
$c = substr($li, $i, 1);
if ($c eq "\t") {
my $npos = ($pos+$nsp+8) & ~7;
my $ntab = ($npos >> 3) - ($pos >> 3);
$lo .= "\t" x $ntab;
$pos = $npos;
$nsp = 0;
} elsif ($c eq "\n" || $c eq "\r") {
$lo .= " " x $nsp;
$pos += $nsp;
$nsp = 0;
$lo .= $c;
$pos = 0;
} elsif ($c eq " ") {
$nsp++;
} else {
$lo .= " " x $nsp;
$pos += $nsp;
$nsp = 0;
$lo .= $c;
$pos++;
}
}
$lo .= " " x $nsp;
return $lo;
}
# Compute the visual width of a string
sub strwidth($) {
no bytes; # Tab alignment depends on characters
my($li) = @_;
my($c, $i);
my $pos = 0;
my $mlen = 0;
for ($i = 0; $i < length($li); $i++) {
$c = substr($li,$i,1);
if ($c eq "\t") {
$pos = ($pos+8) & ~7;
} elsif ($c eq "\n") {
$mlen = $pos if ($pos > $mlen);
$pos = 0;
} else {
$pos++;
}
}
$ml