camel

find(1)鐃粛ワ申鐃夙わ申鐃緒申鐃塾も、鐃緒申鐃重�鐃祝ネットわ申鐃緒申鐃巡か鐃祝わ申鐃緒申鐃緒申鐃緒申優鐃緒申砲覆鐃縦つわ申鐃緒申茲�鐃叔わ申鐃緒申

鐃夙わ申鐃緒申鐃緒け鐃叔￥申鐃緒申鐃殉わ申鐃緒申find鐃緒申perl鐃緒申鐃緒申鐃緒申鐃塾よさ鐃緒申導鐃叔э申鐃緒申討澆襪鰹申箸砲鐃緒申討澆泙鐃緒申鐃�

鐃緒申鐃旬件申

鐃殉わ申鐃熟￥申鐃緒申鐃緒申鐃出わ申鐃銃わ申鐃緒申鐃殉わ申鐃順う鐃緒申

find [options and args of find] -print0 | perl -l0ne 'perl program'

find鐃緒申鐃緒申鐃縦わ申鐃緒申鐃春ワ申鐃緒申鐃緒申鐃緒申銚鐃緒申弔鐃緒申鐃夙￥申perl鐃緒申$_鐃祝わ申鐃塾フワ申鐃緒申鐃緒申名鐃緒申鐃緒申鐃緒申里任鐃緒申鐃緒申鐃出わ申鐃銃駕申鐃初か鐃塾緒申鐃緒申鐃緒申圓鐃緒申泙鐃緒申鐃�

perl側鐃緒申-l0ne鐃夙わ申鐃緒申鐃塾は￥申鐃淑駕申鐃緒申同鐃緒申鐃祝なわ申泙鐃緒申鐃�

BEGIN { $/ = "\n"; $\ = "\000"; }
LINE: while (defined($_ = <ARGV>)) {
    chomp $_;
    do something with $_;
}

-print0鐃緒申鐃緒申鐃緒申討鐃緒申鐃塾は￥申鐃春ワ申鐃緒申鐃緒申名鐃緒申鐃術な常申鐃叔わ申適鐃准に緒申鐃緒申鐃緒申鐃暑た鐃潤。鐃旬わ申鐃緒申鐃緒申

鐃薯参照のわ申鐃夙￥申鐃緒申鐃緒申鐃緒申xargs(1)鐃夙は異なり、perl鐃塾常申鐃緒申鐃緒申鐃夙なわ申里魯侫鐃緒申鐃緒申鐃縮常申鐃�"\n"鐃緒申鐃緒申鐃獣てわ申鐃緒申鐃緒申里澆覆里如鐃緒申名鐃緒申

find [options and args of find] | perl -lne 'perl program'

鐃叔ほとわ申鐃緒申鐃緒申蠅�鐃緒申泙鐃緒申鵝０焚鐃緒申鐃緒申鐃緒申磧�

% find ~/Music/iTunes/iTunes\ Music/A* -type f | xargs echo
xargs: unterminated quote
% find ~/Music/iTunes/iTunes\ Music/A* -type f | perl -lne 'print "($_)"'
(/Users/dankogai/Music/iTunes/iTunes Music/ABBA/Gold/01 Dancing Queen.m4a)
(/Users/dankogai/Music/iTunes/iTunes Music/ABBA/Gold/02 Knowing Me, Knowing You.m4a)
...

xargs鐃緒申space(\x20)鐃薯扱わ申鐃緒申鐃緒申鐃粛てわ申鐃緒申里鐃緒申个鐃緒申鐃�perl鐃叔わ申space鐃緒申泙鐃叔わ申鐃銃もき鐃緒申鐃緒申判鐃緒申鐃緒申鐃緒申鐃銃わ申鐃暑こ鐃夙わ申鐃緒申認鐃叔わ申鐃殉わ申鐃緒申鐃緒申鐃緒申鐃巡がxargs鐃緒申曚箸鐃宿使わ申覆鐃緒申鐃粛鰹申琉鐃縦でわ申鐃緒申

鐃緒申鐃淑みわ申-lne鐃緒申鐃緒申鐃緒申鐃�-lpe鐃夙わ申鐃緒申函鐃緒申鐃緒申鐃緒申匹亮孫垳鐃緒申print $_鐃緒申鐃銃わ申鐃緒申鐃塾で￥申"verbose mode"鐃夙わ申鐃銃使わ申鐃緒申鐃夙わ申鐃緒申鐃緒申泙鐃緒申鐃�

perl鐃緒申xargs鐃緒申鐃緒申鐃緒申忙箸鐃緒申鐃緒申箸鐃緒申鐃緒申鐃�

space鐃淑どわ申泙鐃緒申鐃春ワ申鐃緒申鐃緒申名鐃薯きわ申鐃緒申醗鐃緒申鐃緒申鐃夙わ申鐃緒申鐃塾は常申能劼戮鐃緒申未鐃叔わ申鐃緒申鐃緒申他鐃祝もあ鐃緒申泙鐃緒申鐃�

鐃緒申鐃殉わ申鐃緒申xargs鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦ワ申鐃緒申討澆鐃�
xargs鐃緒申箸辰鐃緒申鐃緒申望鐃緒申2鐃縦わ申鐃緒申箸匹鐃緒申磴�鐃緒申鐃夙わ申鐃緒申鐃夙￥申鐃緒申鐃殉ワ申票孫垰鐃緒申琉鐃緒申鐃緒申鐃緒申鐃緒申造魑い砲鐃緒申弔帖鐃�rm鐃祝ワ申鐃所ギ鐃緒申慮朕鐃緒申離侫鐃緒申鐃緒申鐃縮常申鐃緒申呂鐃緒申董鐃宿�鐃竣削申鐃緒申造硫鐃緒申鐃緒申鐃緒申鐃渋行わ申鐃銃わ申鐃緒申泙鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃緒申find | perl -lne unlink鐃淑ら、perl鐃塾実行駕申鐃緒申魯侫鐃緒申鐃緒申襪�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申1鐃緒申任鐃緒申鐃緒申鐃緒申里鐃緒申鐃緒申鐃緒申如鐃�perl鐃緒申鐃塾わ申xargs鐃緒申鐃緒申腓�鐃淑プワ申鐃緒申鐃緒申鐃叔わ申鐃緒申砲鐃舜わ申蕕削申鐃緒申鐃緒申里箸鐃緒申鐃�xargs鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申多鐃緒申鐃塾でわ申鐃緒申

鐃盾あ鐃緒せ鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

鐃緒申鐃緒申法鐃�xargs鐃緒申他鐃緒申binutils鐃緒申同鐃緒申鐃緒申鐃緒申鐃縦駈申鐃祝わ申辰道箸鐃緒申襯�鐃竣ワ申鐃緒申鵑�異なわ申覆匹鐃緒申鐃緒申蠅�鐃緒申鐃緒申里鐃緒申个鐃緒申鐃�perl鐃塾常申鐃縦駈申鐃緒申鐃緒申鐃緒申鐃獣と常申鐃淑わ申鐃夙わ申鐃緒申鐃塾わ申魅鐃熟でわ申鐃緒申linux鐃叔わ申BSD鐃叔も、鐃緒申鐃緒申OS X鐃叔わ申GNU (bin|core)utils鐃緒申fink鐃緒申darwin ports鐃淑どわ申鐃緒申鐃曙た鐃緒申鐃叔も、鐃緒申鐃緒申同鐃緒申鐃緒申鐃殉ワ申匹嚢圓鐃緒申鐃夙わ申鐃緒申鐃塾わ申魅鐃熟でわ申鐃緒申

鐃緒申鐃純集

  • find 鐃緒申鐃緒申鐃春ワ申鐃緒申鐃緒申鐃緒申鐃� 
    % find dir -type f -print0 | perl -l0ne unlink
% find dir -type f -delete # BSD鐃熟のわ申
  • find 鐃緒申鐃緒申鐃緒申里鐃叔ワ申鐃曙ク鐃夙ワ申鐃殉わ申鐃緒申 
    find dir -depth | perl -nle 'unlink or rmdir'

    find側鐃緒申-depth鐃緒申鐃春わ申鐃銃わ申鐃緒申里鐃緒申櫂鐃緒申鐃夙￥申鐃緒申鐃塾常申隋�鐃叔ワ申鐃曙ク鐃夙ワ申郎埜鐃緒申表鐃緒申鐃緒申鐃緒申鐃塾で￥申鐃春ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃曙い鐃緒申rmdir鐃叔わ申鐃緒申錣縁申任鐃緒申鐃�

  • 鐃春ワ申鐃緒申鐃緒申鐃緒申動 
    % find dir ... -print0 | perl -MFile::Basename -l0ne 'rename $_, "/path/to/" . basename($_)'
% find dir ... -print0 | perl -MFile::Copy -MFile::Basename -l0ne 'move($_, "/path/to/" . basename($_)'

    鐃緒申圓魯侫鐃緒申鐃緒申襯件申鐃緒申謄鐃緒申泙鐃緒申鐃緒申辰討鐃緒申鐃緒申鐃祝わ申箸鐃緒申泙鐃緒申鐃�

  • 鐃緒申張鐃述わ申鐃術刻申 
    find dir -type f -name \*.jpeg | perl -nle '$o=$_;s/\.jpe?g/.jpg/; rename $o,$_'
  • perl側鐃叔常申鐃薯さわ申帽覆鐃�
find dir -type f | perl -nle '/\jpe?g$/ or next; $o=$_;s/\.jpe?g/.jpg/; rename $o,$_'

鐃緒申箸曚鐃銃縁申鐃緒申鐃緒申箸鬚靴泙鐃緒申鐃緒申鐃緒申鐃緒申鬚気鐃祝細わ申鐃緒申鐃淑わ申里鐃�next鐃緒申鐃緒申鐃術でわ申鐃殉わ申鐃緒申

find2perl - 鐃緒申鐃獣わ申find鐃緒申鐃殉ワ申匹泙鐃�perl鐃緒申

鐃緒申鐃緒申鐃淑ｏ申鐃緒申覆鐃緒申箸鐃緒申蠅随申鐃緒申鐃緒申砲蓮鐃�find | perl鐃叔はなわ申鐃緒申find鐃緒申分鐃緒申perl鐃祝わ申蕕誌申討鐃緒申泙鐃緒申箸鐃緒申鐃緒申蠅�鐃夙わ申鐃殉わ申鐃緒申鐃緒申鐃塾誌申鐃緒申鐃緒申鐃緒申鐃淑のわ申鐃緒申find2perl鐃緒申鐃殉ワ申鼻鐃�find鐃緒申分鐃緒申颪い董鐃�find鐃緒申find2perl鐃祝わ申鐃緒申鐃緒申函鐃�find鐃緒申鐃緒申鐃塾わ申鐃夙わ申鐃緒申perl鐃緒申鐃緒申鐃緒申廛箸鐃緒申鐃緒申鐃緒申鐃緒申鐃殉わ申鐃緒申

% find2perl . -type f -name \*.pl -o -name \*.pm
#! /usr/local/bin/perl -w
    eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell

use strict;
use File::Find ();

# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;

sub wanted;



# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '.');
exit;


sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);

    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -f _ &&
    /^.*\.pl\z/s
    ||
    /^.*\.pm\z/s
    && print("$name\n");
}

鐃緒申鐃夙はわ申鐃緒申鐃重�鐃緒申鐃緒申鐃峻緒申鐃緒申鐃銃使わ申鐃緒申OK鐃緒申鐃緒申鐃緒申的鐃緒申鐃峻緒申鐃緒申必鐃竣なのは￥申File::Find::find({wanted => \&wanted}, '.');鐃塾デワ申鐃曙ク鐃夙ワ申鐃緒申鐃緒申wanted()鐃緒申鐃緒申箸里澆任鐃緒申鐃�

鐃緒申鐃緒申砲鐃緒申鐃緒申鐃緒申鐃緒申遒件申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申鐃夙わ申鐃出￥申perl鐃緒申xargs鐃緒申銅鐃緒申鐃緒申鐃緒申鐃塾もそ鐃緒申曚鐃緒申颪靴鐃緒申鐃緒申箸任呂鐃緒申鐃殉わ申鐃緒申鐃純え鐃緒申

鐃淑どわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

Enjoy!

Dan the Perl Monger