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

関連記事

no image

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

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

記事を読む

no image

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

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

記事を読む

Ruby の勉強を開始した

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

記事を読む

no image

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

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

記事を読む

Lubuntu で Perl 環境を整える

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

記事を読む

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

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

記事を読む

ad

Message

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

ad

no image
mineoからLINEモバイルにMNPした話 その2

前回の続き。 mineoからLINEモバイルにMNPした話 その

no image
mineoからLINEモバイルにMNPした話 その1

長くなりそうなので分割して書く。今回はなぜmineoからLIN

no image
SONYのRX100M3を買った

RX100M3のレビューを書こうと思ったけど、この機種にした経緯だけで

no image
タスクトレイの言語切り替えをキーボードショートカットでやる方法

ぼくは Windows10 を英語で使っているが、当然日本語を入力した

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

MPC-BEで動画を再生しているとChromeでYouTube等が再生

→もっと見る

PAGE TOP ↑