argius https://blog.hatena.ne.jp/argius/ argius note https://argius.hatenablog.jp/ Perl Cygwin ローカルファイルシステムに散らばったアーカイブファイル内のファイルから、指定した拡張子のファイルを探したい。アーカイブの種類は拡張子で特定できる前提として、"lzh""zip""tar""tar.gz""tar.bz2"を対象とする。 まず、次のようなPerlスクリプトを用意。（名前とバージョンは適当。）パスの通っているディレクトリに保存し、modeを755にしておく。ループは、whileにするとバッファリングの関係で上手く行かない。 # arls v0.0.1 my $st = 0; for (<>) { s/[\r\n]//g; if (-f) { my $file = $_; print… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fargius.hatenablog.jp%2Fentry%2F20061007%2F1160243370" title="複数のアーカイブファイル内を一度に検索 - argius note" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2006-10-07 02:49:30 rich https://argius.hatenablog.jp/entry/20061007/1160243370 1.0 100%