Kbinfs2oM@w コメント履歴 No: 100000

[政治・選挙・ＮＨＫ256] 辺野古めぐる安倍首相「サンゴ移植」発言　苦しい言い訳をまとめてみた(文春オンライン) JAXVN
1. 2019年1月12日 11:59:01 : nt8wuEpYlA : Kbinfs2oM@w[1]
Queenのギタリスト（ブライン・メイ）に続いてBowwowのギタリスト山本恭二
「すごい‼︎辺野古の署名20万を超えたんだって！みんなのパワーだ‼︎ 僕らは元々政治に無関心なのではなく無関心にさせる為に巨大な力が働いているということにも気が付くべきだよね。選挙にも行って下さい。入れたい人がいないなら落としたい人を落とすにはどうすればいいか考えて下さいね♪」
https://twitter.com/KyojiTWJ/status/1082651738472099846

Mother Ocean/Kyoji Yamamoto
https://twitter.com/KyojiTWJ/status/1083056216757100544

選挙にはいかなきゃね。（しかも戦略的投票の呼びかけ！）
素晴らしいです。尊敬します。
http://www.asyura2.com/19/senkyo256/msg/180.html#c1

[政治・選挙・ＮＨＫ256] 辺野古めぐる安倍首相「サンゴ移植」発言　苦しい言い訳をまとめてみた(文春オンライン) JAXVN
2. 2019年1月12日 12:07:31 : nt8wuEpYlA : Kbinfs2oM@w[2]
山本恭「司」氏でした。山本氏、すみません。
http://www.asyura2.com/19/senkyo256/msg/180.html#c2

[テスト31] 安全で安定な阿修羅掲示板の活用のために、ＨＴＭＬで入力された記事やコメントの書式をチェックするプログラムを公開します新共産主義クラブ
3. 新共産主義クラブ[-10136] kFaLpI5ZjuWLYINOg4mDdQ 2019年1月26日 17:37:28 : nt8wuEpYlA : Kbinfs2oM@w[3]
「管理人さん」さんからいただいたモジュール化された「chkmsg.pl」、およびこのモジュールを require し、サブルーチン「chkmsg」呼び出して用いるPerlのスクリプト「require_chkmsg.pl」を作成し、タグを閉じ忘れているメッセージが書き込まれているHTMLファイル「gt_missed.html」「gt_lost.html」に対してのチェックを実行させてみました。
その結果、モジュール化されていない最初のバージョン（>>2）の「chkmsg.pl」の場合と同様に、プログラム作成時の意図どおりに、「タグの左端の記号の個数が一致しません。」というエラーメッセージが表示されました。
「管理人さん」さんが asyura2 サーバのスクリプトに組み込んで実行させた場合の現象が、こちらのテスト環境で再現できていません。
asyura2 と、こちらのテスト環境との実行結果の違いには、>>6 で述べたような、モジュール化（パッケージ化）、グローバル変数、CGIオブジェクトの生成に関するPerlスクリプトの問題だけでなく、Perlのバージョンの違いや、日本語の文字コードの違い(UTF-8とシフトJIS(cp932))、OS の違いも関係しているのではないかと考えてみます。
引き続き、こちらのテスト環境で、「chkmsg」をWebサーバ上のCGIスクリプトと組み込んだ場合の動作、Perl5をバージョン・ダウンした場合の動作などを確認していきます。
可能であれば、「管理人さん」さんの方でも、（『阿修羅掲示板』のWebサービスを止めずに）CGIスクリプトとしてではなくて、asyura2 サーバのコマンドライン上で、上記のようなメッセージが書き込まれているHTMLファイルに対してのchkmsgの動作も確認していただけましたら、Perlのバージョンの違いや、日本語の文字コードの違い(UTF-8とシフトJIS(cp932))など、動作結果の違いの原因が早急に特定されるのではないかと思っております。
よろしくお願い申し上げます。

《「管理人さん」さんがモジュール化した「chkmsg.pl」（>>5）を呼び出して使用するスクリプト「require_chkmsg.pl」のローカル環境での実行例》
hoge@fuga:~/chkmsgテスト$ cat gt_lost.html
<img src= あ、書き忘れたよ
hoge@fuga:~/chkmsgテスト$ cat gt_missed.html
<img src=" タグを閉じ忘れた
hoge@fuga:~/chkmsgテスト$ cat require_chkmsg.pl
require "chkmsg.pl";
# use chkmsg;

# main program (sample)
#
# Usage:
# perl require_chkmsg.pl 'message_file.html'
#
my $argc=@ARGV;
my $input_file;
if($argc > 0){
$input_file = $ARGV[0];
}else{
print "chkmsg.pl\nUsage:\n\tperl chkmsg.pl 'message_file.html'\n";
exit;
}
open my $fh, '<', $input_file or die $!;
my $msg = do { local $/ = undef; <$fh>; };
my ($ack, $reply) = chkmsg::chkmsg($msg);

if($ack){
print "$reply\n";
print "\n";
}else{
print "$reply\n";
print "\n";
}
# end of main program

hoge@fuga:~/chkmsgテスト$ perl require_chkmsg.pl gt_missed.html | nkf
<!DOCTYPE html><html><head><title>HTML Message Input Error</title><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body><h1>Error 226</h1><pre><strong><font color="red"></font></strong></pre><p>タグの左端の記号 < と、タグの右端の記号 > の個数が一致しません。</p></body></html>

hoge@fuga:~/chkmsgテスト$ perl require_chkmsg.pl gt_lost.html | nkf
<!DOCTYPE html><html><head><title>HTML Message Input Error</title><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body><h1>Error 226</h1><pre><strong><font color="red"></font></strong></pre><p>タグの左端の記号 < と、タグの右端の記号 > の個数が一致しません。</p></body></html>

hoge@fuga:~/chkmsgテスト$ perl -v

This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-gnu-thread-multi
(with 67 registered patches, see perl -V for more detail)

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

hoge@fuga:~/chkmsgテスト$

http://www.asyura2.com/14/test31/msg/832.html#c3

[テスト31] 安全で安定な阿修羅掲示板の活用のために、ＨＴＭＬで入力された記事やコメントの書式をチェックするプログラムを公開します新共産主義クラブ
4. 新共産主義クラブ[-10135] kFaLpI5ZjuWLYINOg4mDdQ 2019年1月26日 17:39:20 : nt8wuEpYlA : Kbinfs2oM@w[4]

「管理人さん」さんからいただいたモジュール化された「chkmsg.pl」、およびこのモジュールを require し、サブルーチン「chkmsg」呼び出して用いるPerlのスクリプト「require_chkmsg.pl」を作成し、タグを閉じ忘れているメッセージが書き込まれているHTMLファイル「gt_missed.html」「gt_lost.html」に対してのチェックを実行させてみました。
その結果、モジュール化されていない最初のバージョン（>>2）の「chkmsg.pl」の場合と同様に、プログラム作成時の意図どおりに、「タグの左端の記号 < と、タグの右端の記号 > の個数が一致しません。」というエラーメッセージが表示されました。
「管理人さん」さんが asyura2 サーバのスクリプトに組み込んで実行させた場合の現象が、こちらのテスト環境で再現できていません。

asyura2 と、こちらのテスト環境との実行結果の違いには、>>6 で述べたような、モジュール化（パッケージ化）、グローバル変数、CGIオブジェクトの生成に関するPerlスクリプトの問題だけでなく、Perlのバージョンの違いや、日本語の文字コードの違い(UTF-8とシフトJIS(cp932))、OS の違いも関係しているのではないかと考えてみます。
引き続き、こちらのテスト環境で、「chkmsg」をWebサーバ上のCGIスクリプトと組み込んだ場合の動作、Perl5をバージョン・ダウンした場合の動作などを確認していきます。

可能であれば、「管理人さん」さんの方でも、（『阿修羅掲示板』のWebサービスを止めずに）CGIスクリプトとしてではなくて、asyura2 サーバのコマンドライン上で、上記のようなメッセージが書き込まれているHTMLファイルに対してのchkmsgの動作も確認していただけましたら、Perlのバージョンの違いや、日本語の文字コードの違い(UTF-8とシフトJIS(cp932))など、動作結果の違いの原因が早急に特定されるのではないかと思っております。

よろしくお願い申し上げます。

《「管理人さん」さんがモジュール化した「chkmsg.pl」（>>5）を呼び出して使用するスクリプト「require_chkmsg.pl」のローカル環境での実行例》

hoge@fuga:~/chkmsgテスト$ cat gt_lost.html
<img src= あ、書き忘れたよ
hoge@fuga:~/chkmsgテスト$ cat gt_missed.html
<img src=" タグを閉じ忘れた
hoge@fuga:~/chkmsgテスト$ cat require_chkmsg.pl
require "chkmsg.pl";
# use chkmsg;

# main program (sample)
#
# Usage:
#   perl require_chkmsg.pl 'message_file.html'
#
my $argc=@ARGV;
my $input_file;
if($argc > 0){
  $input_file = $ARGV[0];
}else{
  print "chkmsg.pl\nUsage:\n\tperl chkmsg.pl 'message_file.html'\n";
  exit;
}
open my $fh, '<', $input_file or die $!;
my $msg = do { local $/ = undef; <$fh>; };
my ($ack, $reply) = chkmsg::chkmsg($msg);

if($ack){
  print "$reply\n";
  print "<!-- Message Accepted -->\n";
}else{  
  print "$reply\n";
  print "<!-- Message Rejected -->\n";
}
# end of main program

hoge@fuga:~/chkmsgテスト$ perl require_chkmsg.pl gt_missed.html | nkf
<!DOCTYPE html><html><head><title>HTML Message Input Error</title><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body><h1>Error 226</h1><pre><strong><font color="red"></font></strong></pre><p>タグの左端の記号 &lt; と、タグの右端の記号 &gt; の個数が一致しません。</p></body></html>
<!-- Message Rejected -->
hoge@fuga:~/chkmsgテスト$ perl require_chkmsg.pl gt_lost.html | nkf
<!DOCTYPE html><html><head><title>HTML Message Input Error</title><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body><h1>Error 226</h1><pre><strong><font color="red"></font></strong></pre><p>タグの左端の記号 &lt; と、タグの右端の記号 &gt; の個数が一致しません。</p></body></html>
<!-- Message Rejected -->
hoge@fuga:~/chkmsgテスト$ perl -v

This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-gnu-thread-multi
(with 67 registered patches, see perl -V for more detail)

Copyright 1987-2017, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

hoge@fuga:~/chkmsgテスト$

http://www.asyura2.com/14/test31/msg/832.html#c4

[お知らせ・管理21] 安全で安定な阿修羅掲示板の活用のために、ＨＴＭＬで入力された記事やコメントの書式をチェックするプログラムを公開します新共産主義クラブ
9. 新共産主義クラブ[-10134] kFaLpI5ZjuWLYINOg4mDdQ 2019年1月26日 17:42:37 : nt8wuEpYlA : Kbinfs2oM@w[5]

「管理人さん」さんからいただいたモジュール化された「chkmsg.pl」、およびこのモジュールを require し、サブルーチン「chkmsg」呼び出して用いるPerlのスクリプト「require_chkmsg.pl」を作成し、タグを閉じ忘れているメッセージが書き込まれているHTMLファイル「gt_missed.html」「gt_lost.html」に対してのチェックを実行させてみました。
その結果、モジュール化されていない最初のバージョン（>>2）の「chkmsg.pl」の場合と同様に、プログラム作成時の意図どおりに、「タグの左端の記号 < と、タグの右端の記号 > の個数が一致しません。」というエラーメッセージが表示されました。
「管理人さん」さんが asyura2 サーバのスクリプトに組み込んで実行させた場合の現象が、こちらのテスト環境で再現できていません。

asyura2 と、こちらのテスト環境との実行結果の違いには、>>6 で述べたような、モジュール化（パッケージ化）、グローバル変数、CGIオブジェクトの生成に関するPerlスクリプトの問題だけでなく、Perlのバージョンの違いや、日本語の文字コードの違い(UTF-8とシフトJIS(cp932))、OS の違いも関係しているのではないかと考えてみます。
引き続き、こちらのテスト環境で、「chkmsg」をWebサーバ上のCGIスクリプトと組み込んだ場合の動作、Perl5をバージョン・ダウンした場合の動作などを確認していきます。

可能であれば、「管理人さん」さんの方でも、（『阿修羅掲示板』のWebサービスを止めずに）CGIスクリプトとしてではなくて、asyura2 サーバのコマンドライン上で、上記のようなメッセージが書き込まれているHTMLファイルに対してのchkmsgの動作も確認していただけましたら、Perlのバージョンの違いや、日本語の文字コードの違い(UTF-8とシフトJIS(cp932))など、動作結果の違いの原因が早急に特定されるのではないかと思っております。

よろしくお願い申し上げます。

《「管理人さん」さんがモジュール化した「chkmsg.pl」（>>5）を呼び出して使用するスクリプト「require_chkmsg.pl」のローカル環境での実行例》

hoge@fuga:~/chkmsgテスト$ cat gt_lost.html
<img src= あ、書き忘れたよ
hoge@fuga:~/chkmsgテスト$ cat gt_missed.html
<img src=" タグを閉じ忘れた
hoge@fuga:~/chkmsgテスト$ cat require_chkmsg.pl
require "chkmsg.pl";
# use chkmsg;

# main program (sample)
#
# Usage:
#   perl require_chkmsg.pl 'message_file.html'
#
my $argc=@ARGV;
my $input_file;
if($argc > 0){
  $input_file = $ARGV[0];
}else{
  print "chkmsg.pl\nUsage:\n\tperl chkmsg.pl 'message_file.html'\n";
  exit;
}
open my $fh, '<', $input_file or die $!;
my $msg = do { local $/ = undef; <$fh>; };
my ($ack, $reply) = chkmsg::chkmsg($msg);

if($ack){
  print "$reply\n";
  print "<!-- Message Accepted -->\n";
}else{  
  print "$reply\n";
  print "<!-- Message Rejected -->\n";
}
# end of main program

hoge@fuga:~/chkmsgテスト$ perl require_chkmsg.pl gt_missed.html | nkf
<!DOCTYPE html><html><head><title>HTML Message Input Error</title><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body><h1>Error 226</h1><pre><strong><font color="red"></font></strong></pre><p>タグの左端の記号 &lt; と、タグの右端の記号 &gt; の個数が一致しません。</p></body></html>
<!-- Message Rejected -->
hoge@fuga:~/chkmsgテスト$ perl require_chkmsg.pl gt_lost.html | nkf
<!DOCTYPE html><html><head><title>HTML Message Input Error</title><meta http-equiv="content-type" content="text/html; charset=utf-8"></head><body><h1>Error 226</h1><pre><strong><font color="red"></font></strong></pre><p>タグの左端の記号 &lt; と、タグの右端の記号 &gt; の個数が一致しません。</p></body></html>
<!-- Message Rejected -->
hoge@fuga:~/chkmsgテスト$ perl -v

This is perl 5, version 26, subversion 1 (v5.26.1) built for x86_64-linux-gnu-thread-multi
(with 67 registered patches, see perl -V for more detail)

Copyright 1987-2017, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

hoge@fuga:~/chkmsgテスト$

http://www.asyura2.com/13/kanri21/msg/545.html#c9