Perl イテレーションディレクトリの例
2022-01-28 08:54:04
環境はwindos、注意点は2つ。
1. activePerl のデフォルトエンコーディングは gbk なので、文字化けを防ぐために文字列を gbk に変換する必要があります。
2、ファイルディレクトリを巡回する場合、特殊なディレクトリを除外する必要があります。 と.
フルコードです。
コピーコード
コードは以下の通りです。
#! /usr/bin/perl
use strict;
use warnings;
use Encode qw/from_to/;
my $path = "e:/CSS Design";
my $filecount = 0;
sub parse_env {
my $path = $_[0]; #or use my($path) = @_; @_ is similar to arguments in javascript
my $subpath;
my $handle;
if (-d $path) {# whether the current path is a directory
if (opendir($handle, $path)) {
while ($subpath = readdir($handle)) {
if (! ($subpath =~ m/^\. $/) and ! ($subpath =~ m/^(\. \.) $/)) {
my $p = $path."/$subpath";
if (-d $p) {
parse_env($p);
} else {
++$filecount;
print $p."\n";
}
}
}
closedir($handle);
}
}
return $filecount;
}
my $count = parse_env $path;
my $str = "Total number of files:". $count;
from_to($str, "utf8", "gbk");
print $str;
実行結果画像です。
関連
-
Perl一括で著作権情報を追加する
-
PerlとJSの比較 (配列、ハッシュ)
-
Perlについて(Perl公式サイトの翻訳です。)
-
Perlは先頭と末尾の空白を削除します(左右の空白文字、空白文字を削除します)。
-
Perl ビギナーズノート - Hello World
-
Perl関数(サブルーチン)学習ノート
-
perl は目的のファイルのパスを読み込み、対応するファイルを開きます。
-
Perl AnyEvent ウォッチャーの例
-
Perl 構文による Perl 演算子の使用法ガイド
-
[解決済み] Perl の "make_path" と "remove_tree" は、オプションハッシュが空の場合、異なる結果になります。
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
PerlとStrawberryPerl、ActivePerlの違いを詳しく解説
-
Perlの1行コメントと複数行コメントの構文
-
Windows 10でのPerl環境のインストールと設定のための詳細チュートリアル
-
Perl オブジェクト指向の例
-
perl スクリプティング スタディガイド - 読書メモ
-
Perl プロセスの PID ルックアップの例
-
perl で書かれた乱数話法プログラム (rand random function)
-
ssh ログインの最大数を制限する perl スクリプト (ホワイトリスト対応)
-
PerlのSort関数の使い方まとめと使用例
-
[解決済み] Perlでタイムアウトを行う方法?