|
Namazu for hns による簡易全文検索 詳しくは 詳細指定/ヘルプを参照して下さい |
|||||||||||||||||||||||||||||||||||||||||||||||||
2019年11月03日(日) 旧暦 [n年日記] [更新:"2019/11/02 23:46:50"]#1 [pkgsrc] (Wanderlust) problem reading mail メールが読めなくなってChecking "%inbox!" Opening TLS connection to ‘imap.example.com’... Opening TLS connection with ‘gnutls-cli --x509cafile nil -p 993 imap.example.com’...failed Opening TLS connection with ‘gnutls-cli --x509cafile nil -p 993 imap.example.com --protocols ssl3’...failed Opening TLS connection to ‘imap.example.com’...failed Auto plugged off at imap.example.com:993
という訳で pkg_info の差分を表示する perl script を作って比べて見た
#!/usr/pkg/bin/perl
use strict;
use Getopt::Std;
our %ARGV;
our %opts;
sub ColorString($$){
my (%COLOR) = ( qw (
black 30
red 31
green 32
yellow 33
blue 34
pink 35
magenta 36
white 37
));
my($color) = shift;
my($string) = shift;
return sprintf("%c[%dm%s%c[0m", 0x1b, $COLOR{$color}, $string, 0x1b);
}
getopt('',\%opts);
print STDERR sprintf("%4d <", __LINE__). (caller 0)[3]. '> '.
$ARGV[0] .' '.
$ARGV[1].' '.
"\n";
my $FILEA = $ARGV[0];
my $FILEB = $ARGV[1];
if ($FILEB eq '') {
print STDERR sprintf("%04d <", __LINE__). (caller 0)[3]. "> you need two filename\n";
die;
}
my (%LISTA, %LISTB, %WHOLE);
# ------------------------------------------------------------------------------
open(FILEA, $FILEA) || die "problem opening file: $FILEA :$!\n";
while(<FILEA>){
if (/(\S+)-([0-9.]+(nb[0-9.]*){0,})/) {
my $name = $1;
my $version = $2;
# print STDERR sprintf("%04d ", __LINE__). (caller 0)[3]. $name. ' ' . $version . "\n";
$LISTA{$name} = $version;
$WHOLE{$name}++
}
}
close(FILEA);
# ------------------------------------------------------------------------------
open(FILEB, $FILEB) || die "problem opening file: $FILEB :$!\n";
while(<FILEB>){
if (/(\S+)-([0-9.]+(nb[0-9.]*){0,})/) {
my $name = $1;
my $version = $2;
# print STDERR sprintf("%04d ", __LINE__). (caller 0)[3]. $name. ' ' . $version . "\n";
$LISTB{$name} = $version;
$WHOLE{$name}++
}
}
close(FILEB);
# -----------------------------------------------------------------------------
foreach my $i (sort keys %WHOLE) {
my $a = $LISTA{$i};
my $b = $LISTB{$i};
if ($a ne $b) {
if ($a eq '') { $a = ColorString('red', sprintf("%20s", '('. $i. ')'));}
if ($b eq '') { $b = ColorString('red', sprintf("%20s", '('. $i. ')'));}
printf("%-25s\t %20s\t %20s\n", $i, $a, $b);
}
}
__END__
How-to-use:使い方: at HOST B: pkg_info > /tmp/hostB at HOST A: pkg_info > /tmp/hostA scp HOST_B:/tmp/hostB /tmp perl this_script /tmp/hostA /tmp/hostB |less -RFound missing one as emacs-w3m. I've added it and resolved. I recently the work to fix the emacs-w3m-snapshot build problem.
emacs-w3m が欠けていたので、追加したら読めるようになった
( つっこみ )
|
最近の日記 2025年12月11日 ・oreore 2025/12 2025年11月22日 ・crash dump 2025年10月25日 ・recover from disk error 2025年10月23日 ・dd does not duplicate Windows 11 boot disk ? 2025年10月13日 ・missing package | ||