こういう事があって。
なので多分俺がファンアートの言い出しっぺなのではないかと思いますがファンアート描いてなかったので描きました。
世間で流行のAIイラストではなく全部手描きです。
はてのさんいいですね
開発者さんも応援してます。
追記
制作過程のGIFです。
標題の事がやりたくてPowerShellのミクロなアプリ作って実現したので以下にまとめます。
この記事の流れは次のようになります。（目次って貼れるのかな）
ツイートをブラウザーから「HTML、完全」で保存しようとしたが、保存しようとすると以下のような超絶長いファイル名が表示されて凹んでます。
名無しさんはTwitterを使っています 「ころたんイェイ～ #咲-Saki- #天江衣 https___t.co_xxxx https___t.co_xxxx」 _ Twitter
画像とか単発のファイルなら後からリネームすればよいのだけども、HTML、完全はフォルダーまでくっついてくるので取り回しが悪すぎる。
ここでツイートのURLを見ると、以下のようになっています。
http://twitter.com/ユーザーID/status/ツイートID
ということは、記事タイトルのような ツイートID＠ユーザーID の文字列を作って改めてWebページ、完全で保存すれば
ファイル名すっきりだし、絶対に一意であるし、URLも復元できるしハッピーなんじゃなかろうかと思いました。
そのような文字列をクリップボードに用意する、小さなPowerShellアプリを作ります。
作成後は、以下の手順でクリップボードに文字列が貼り付けられます。
ブラウザー拡張機能で作った方がより楽できるかもですが、勉強めんどくさいので…。
大雑把には、以下の3ステップで進めます。
では以下、詳細。
書いたものを置いときます。
コピペしてメモ帳なり、PowerShell ISEなり使って、とにかくテキストで拡張子を「.ps1」にして保存すればOKです。
ファイル名は、この記事の手順としては以下にしました。
twitter-make-id.ps1
間違って消さないように、デスクトップやドキュメントではなく、 MyPowerShell とか何でも、まあそれなりのフォルダーを切って保存した方が良いです。
# Twitter URLから、名前を付けて保存用に「ツイートID @ ユーザーID」形式の文字列を作る # http://*.twitter.com/ユーザーID/status/ツイートID の形式に対応 # 使い方 # 1.保存したいTweetのURLをブラウザーからコピー # 2.このスクリプトを実行 # 3.文字列はクリップボードに上書きされるので、好きな用途に使う # 作成：2021. 5. 4 $orig = Get-Clipboard $orig -replace "^`r?`n", "" $orig -replace "`r?`n$", "" $orig -match "/([^/]+)/status/([^/]+)" $matches[2] + "@" + $matches[1] | Clip
このスクリプト内の個別のコマンドの操作については以下のサイトを参考にさせてもらいました。
前手順で作ったps1スクリプトと同じフォルダーにショートカットを作ります。
（やり方：ps1スクリプトを右クリック→ ショートカットの作成(S) ）
作ったら今度はショートカットの方を右クリックして プロパティ(R) を表示し、 リンク先(T) と 実行時の大きさ(R) を編集します。
それ以外はデフォルトでOKです。
powershell -ExecutionPolicy RemoteSigned -File-File の後とps1フルパスの間に半角スペースを置いてください。画像の2要素。リンク先、ps1が見えてて貼り付ける文字列が見えてないですが…。
以下のサイトを参考にさせてもらいました。
前手順で作ったショートカットを右クリックし、 タスクバーにピン留めする(K) を選ぶと、タスクバーにアイコンが貼られます。
実行時はこれをクリックします。
導入手順は以上です。
Alt-D → Ctrl-C とかが早いかな？ツイートID@ユーザーID 文字列がコピーされるので、保存ファイル名にペーストするなど、自由に使います。クリップボードを操作するので、ぶっ壊れては困るデータを保持しているときにクリックしないよう気を付けてください。
想定外でクリックしても大した害はないと思いますが、利用は自己責任で。
アイコンがPowerShellのデフォルトになってしまうので、わかりやすいアイコンがあった方がいいかも知れないです。
その場合、タスクバーからいったん外してから、ショートカットのプロパティでアイコンを変更し、改めてタスクバーにピン留めしてください。
PerlのNet::FTPモジュールをラップして、メソッドを呼ぶごとに引数をプリントアウトするクラス書きました。
あとAUTOLOADを少し勉強しました。
{ package FtpDebug;
use Net::FTP qw//;
sub new {
my $this = shift;
bless { me => Net::FTP->new(@_) }, $this;
}
sub AUTOLOAD {
my $this = shift;
our $AUTOLOAD;
my $method = (split /::/, $AUTOLOAD)[-1];
# 次の行はお好みでファイルに出すとかカスタマイズ
print "Calling method $method (", join(', ', @_) . ")\n";
$this->{me}->$method(@_);
}
sub DESTROY {}
}
new Net::FTPまたはNet::FTP->newしているところをFtpDebug->newで置き換えます。sub AUTOLOADで書いて中にグローバル変数our $AUTOLOAD書くとFQNでメソッド名が得られる。
クソ長いメソッド書いたPerlで、$workFileだのftpDataDirだの妙に抽象的な変数名使ってるわ、
逆に処理手順はファイルをカウントアップとかやたら具体的で全体で何をするかという抽象が書かれてない。
そんなクソコードとの出会いがあり、怒りに震えてました。
で突然「あれ？コードがわかんなきゃとにかく全部プリントアウトすりゃいいんじゃね？」という発想が浮かんで作った。
クソコードとの出会いは案外多いから会っても泣かないために、これからもクソコードを力で殴るコード書きたいです。
WinMergeとかでやるのもしんどくなるぐらい大量のフォルダー階層AとBを比較したい。
かつ、AとB全体で異なるファイルが数個とか数十個とか、大した数無い。
…といった場合に比較が楽になりそうな方法を考えた。
次の方針でAとBからテキストを吐き出して、テキスト比較すればできるはず。
$result = "C:/AforDiff.txt"; # これは例。BならBforDiff.txtなどやっぱりそれっぽい名前に
NullFile $result; # 前のブログエントリー参照
cd A # B分吐くならcd B
foreach ($f in gci . -File -Recurse) {
$relPath = rvpa -Relative $f.FullName;
$relPath + "`t" + (Get-FileHash $f.FullName).Hash >> $result;
}
これをAとBでやり、吐かれたテキストを比較します。
変更や追加/削除があればハッシュ部が違ったり、行の増分/減分が発生し、わかる。
あと一歩シンプルな書き方が思いつかなくて、とりあえずメモっときます。
割とどうでもいい話です。
@data = qw/able baker charlie dog easy fox/; # これを次の形にする @even_index_data = qw/able charlie easy/; @odd__index_data = qw/baker dog fox/;
逆zip的な事がやりたくて。
@even_index_data = @data[grep { $_ % 2 == 0 } 0..$#data];
@odd__index_data = @data[grep { $_ % 2 == 1 } 0..$#data];
Perlではこれが一番シンプルかな。パフォーマンスは考えてません。
stackoverflow.com - 本質的には多分上と同じ。
www.perlmonks.org - 配列にpushする人とか。
状況が伝わりにくいかもしれません。こういうことがありました。
そのとき対処した内容のメモです。
→ Ctrlマウスドラッグでファイルコピーしたときと同じ操作になったぞい。
仕方ないので「コピー」の名を持ってるファイルを検索してあぶり出し、全部けします。
しかしWindowsの検索窓は気まぐれなので、よくわからん検索結果を提示してきてあてになりません。
そこでPowerShellです。「コピー」の名を持つファイルをリストアップして消します。
組んだPowerShellスクリプトは下段にあります。
ファイルコピーの取り消し（＝ファイル削除）を伴うPC操作の話なので取り扱いは事前テストしたうえで慎重に。
不注意で事故っても私は何の責任も持ちません。
これを走らせます。
自分はPowerShell ISEで即席で書いたのでそのままISEで走らせてps1に保存してました。
# 対象フォルダーは逐次指定するなりカレントにするなりお好きに
cd C:\Users\kyhk\Downloads
# 重複したやつをリストアップ
$dups = gci -Filter "* - コピー*"
foreach ($dup in $dups) {
# 元ファイル名はたぶんこんなだろう
$orig = $dup -replace " - コピー", ""
# 元ファイル名でファイル見つけた
if (Test-Path $orig) {
$hash_orig = Get-FileHash $orig
$hash_dup = Get-FileHash $dup
# ハッシュも一致した
if ($hash_orig.Hash -eq $hash_dup.Hash) {
$dup
Write-Host "ハッシュ値が同じ元ファイルを検出しました。コピー側を自動で削除します。"
del $dup # 消す
}
}
}
極めて大雑把に
超めんどくさかった