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

関連記事

Ruby の勉強を開始した

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

記事を読む

no image

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

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

記事を読む

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

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

記事を読む

no image

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

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

記事を読む

no image

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

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

記事を読む

Lubuntu で Perl 環境を整える

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

記事を読む

ad

Message

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

ad

no image
iOS11にしたらBluetoothイヤホンの最大音量が小さくなった件とその対応

iPhone7 Plusを、今日から配信されたiOS11にさっそくアッ

Bose QuietControl 30 がすばらしすぎる

Bose のワイヤレスノイズキャンセリングイヤホン QuietCont

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

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

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

mineo エントリーパッケージ au/ドコモ対応SIMカード データ

no image
SONYのRX100M3を買った

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

→もっと見る

  • まだデータがありません。

PAGE TOP ↑