Perl でホームディレクトリ以下すべてのシンボリックリンクを出力する

公開日: : 最終更新日:2014/02/13 Perl

ふと、シンボリックリンクがどのくらいあるのか知りたくなったので。

#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

find(\&process, $ENV{HOME});

sub process {
    if ( -l $File::Find::name ) {
        print $File::Find::name, "\n";
    }
}

・再帰的にすべてのファイルを処理するにはFile::Findモジュールを使用する
・-l でシンボリックリンクかどうか判定

参考:
再帰的にすべてのファイルを処理する – File::Find::find() – サンプルコードによるPerl入門

ad

関連記事

モダンな Perl の書き方を知る上で参考になるサイト

Perl が登場したのは1987年。 現在も使われている言語としては歴史がある部類であろう。 ち

記事を読む

no image

さくらインターネットのcron設定のコツ

さくらインターネットのcron設定ではまったのでメモ。 cron で Perl スクリプトを定期的

記事を読む

no image

さくらインターネットにcpanmをインストールした

puttyなどでさくらインターネットのサーバにログイン。 cpanmのインストール。 c

記事を読む

no image

apt-get install でインストールしたソフトの一覧を出力する

Ubuntu(Lubuntu) の端末で apt-get install でインストールしたソフトの

記事を読む

Ruby の勉強を開始した

学生時代からずっと、スクリプト言語は Perl を使い続けてきた。 ふと、Ruby On Ra

記事を読む

Lubuntu で Perl 環境を整える

まず cpanm をインストール。 curl -L http://cpanmin.

記事を読む

ad

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

ad

no image
MPC-BEで動画を再生しているとChromeでYouTube等が再生できない問題

タイトルでだいたい言ってしまっているが、ようやくそのことに気づいた。

no image
ウィンドウをモニタ間で移動すると境界で引っかかる問題

Windows10 で、ウィンドウをモニタ間で移動すると境界で引っかか

Windows10 英語版で Google 日本語入力をデフォルトにする

(2017/04/10 追記) 以下の設定をすると、次回のログイン時

カフェイン抜き生活と、カフェインレスコーヒー

ぼくはコーヒーが大好きで、よく飲んでいた。 しかし、20

no image
ESファイルエクスプローラのリモートマネージャでSDにアクセスする方法

Android の ES ファイルエクスプローラは多機能かつフリーでと

→もっと見る

PAGE TOP ↑