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

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

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

記事を読む

no image

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

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

記事を読む

Ruby の勉強を開始した

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

記事を読む

no image

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

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

記事を読む

Lubuntu で Perl 環境を整える

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

記事を読む

ad

Message

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

ad

防水Bluetoothスピーカーをいろいろ使ってみたのでレビューする

長年使ってきたLogitecの防水Bluetoothスピーカーが、落と

象印の加湿器のメンテナンス用にクエン酸1kgを買ったら捗った

象印のスチーム式加湿器EE-RM50-WAが非常に良い。 象印

伊藤農園の100%ピュアジュースがおいしすぎる

伊藤農園の100%ピュアジュースシリーズは本当においしい。 伊藤

トラベルポーチを買ったら旅行準備が劇的に楽になった

最近、旅行や出張が多いので、トラベルポーチを買ってみたらこれが大正解だ

no image
iTunes 12 でカラムブラウザの高さが調整できなくて困った話

iTunes12 on Windows10 で、カラムブラウザがいつか

→もっと見る

PAGE TOP ↑