Private Gist All pages are served over SSL and all pushing and pulling is done over SSH. No one may fork, clone, or view it unless they are given this private URL. Every gist with this icon () is private. Public Gist Anyone may fork, clone, o... 続きを読む
#! /usr/bin/perl use strict; use warnings; use File::DirWalk; use Path::Class qw/file/; my $dir = shift or die "usage : $0 \n"; my $dw = File::DirWalk->new; $dw->onFile(sub { my ($name) = @_; my $file = file($name); my $fh = $file->openr(); w... 続きを読む