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

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

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

記事を読む

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

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

記事を読む

no image

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

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

記事を読む

Ruby の勉強を開始した

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

記事を読む

Lubuntu で Perl 環境を整える

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

記事を読む

no image

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

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

記事を読む

ad

Message

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

ad

no image
Amazon の高コスパタブレット Fire HD 8 を買った

素晴らしい。 プライム会員なら4000円オフで買

au から mineo に MNP するまでの流れ

au から、いわゆる格安 SIM の一種である mineo(マイネオ)

no image
iPhoneのKindleアプリでコンテンツが同期できないときの対処法

ちょっとはまったのでメモ。 iPhoneのKindleア

iphone7plusjetblack
SIMフリーiPhone7Plusジェットブラックが手に入るまで

2016/09/09 に予約して、09/24 ついに届いた! 備忘録

BIOS設定画面に入れないときの原因と対処法

Windows10をクリーンインストールしようと思い、インストール用の

→もっと見る

PAGE TOP ↑