#CitrrasLab

シトラスラボ – プログラミング、ウイスキー、ガジェットの他、日々の生活に役立つものを紹介

Perl

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

投稿日:2014/02/13 更新日:

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

#!/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

ad

-Perl

執筆者:


comment

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

関連記事

no image

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

さくらインターネットのcron設定ではまったのでメモ。 cron で Perl スクリプトを定期的に実行する設定。 結論から言うと、実行コマンド欄には以下のように書く。 cd /home/userna …

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

Perl が登場したのは1987年。 現在も使われている言語としては歴史がある部類であろう。 ちなみに Perl とよく比較される Python は1990年、Ruby は1995年である。 約27年 …

Lubuntu で Perl 環境を整える

まず cpanm をインストール。 curl -L http://cpanmin.us | perl – App::cpanminus .zshrcには以下の設定を書いておく。 export PERL …

no image

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

Ubuntu(Lubuntu) の端末で apt-get install でインストールしたソフトの 一覧を出力するコマンドはなさそうなので、Perl で書いてみた。 #!/usr/bin/perl …

Ruby の勉強を開始した

学生時代からずっと、スクリプト言語は Perl を使い続けてきた。 ふと、Ruby On Rails を使いたくなって、 Ruby の勉強をすることにした。 新しい言語をがっつり学ぶのは久しぶりで、楽 …