18/10/31(水)02:14:57 perl -E... のスレッド詳細
削除依頼やバグ報告は メールフォーム にお願いします。個人情報、名誉毀損、侵害等については積極的に削除しますので、 メールフォーム より該当URLをご連絡いただけると助かります。
画像ファイル名:1540919697575.jpg 18/10/31(水)02:14:57 No.544187782
perl -E '$sum=0;while(<>){if(/(No.\d*(\d)\g{-1}+) del/){print $1;if($1=~/(\d0+|(\d)\g{-1}+)$/){say " $1";$sum+=$1}}}say $sum'