鐃緒申鐃緒申辰鐃�perl鐃叔￥申
Rails Hub鐃緒申鐃緒申鐃�: dd鐃緒申鐃殉ワ申匹離鐃獣パ￥申鐃緒申ddr鐃竣わ申Ruby鐃叔書いてみわ申鐃叔￥申鐃緒申鐃峻￥申鐃緒申鐃緒申鐃出ワ申鐃夙随申鐃緒申鐃�23MB Combo!鐃竣わ申表鐃緒申鐃緒申鐃処う鐃夙わ申鐃銃居申鐃春わ申鐃緒申鐃塾でわ申鐃緒申鐃緒申鐃緒申離鐃緒申鐃緒申鐃竣トは意図わ申鐃緒申鐃緒申鐃夙と違う動鐃緒申鐃薯してわ申鐃殉わ申鐃緒申IO#popen鐃緒申標鐃緒申鐃緒申呂鐃緒申鐃緒申鐃緒申肇鐃緒申鐃竣ワ申鐃緒申任鐃緒申討覆鐃緒申董鐃獣縁申鵬鐃緒申未暴个討鐃緒申討鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申open3鐃夙わ申STY鐃夙わ申鐃緒申鐃緒申鐃緒申蕕件申鐃緒申薀わ申屮鐃所が鐃緒申鐃獣わ申鐃所し鐃銃わ申鐃緒申鐃緒申鐃祝試し鐃緒申鐃所、IO鐃出ッフワ申鐃緒申 flush鐃緒申鐃緒申鐃所？ 鐃淑ど￥申鐃緒申鐃緒申鐃緒申鐃緒申調鐃駿てみわ申鐃塾でわ申鐃緒申鐃緒申鐃緒申鐃緒申覆鐃緒申箸鐃緒申討鐃緒申腓醐申鐃淑わ申鐃夙居申鐃春わ申鐃銃￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃重誌申鐃緒申鐃緒申鐃殉わ申鐃縦…￥申
鐃緒申辰弔鐃緒申發わ申鐃緒申箸鐃緒申鐃緒申任鐃緒申鐃緒申鐃緒申鐃緒申 Mac OS X 鐃叔わ申 Ubuntu 鐃叔わ申 FreeBSD 鐃叔わ申動鐃緒申鐃叔э申鐃緒申討鐃緒申鐃殉わ申鐃緒申CPAN鐃緒申存鐃熟わ申鐃緒申泙鐃緒申鵝�バ￥申鐃緒申鐃緒申佞鐃緒申鐃緒申櫃覆里鐃�%表鐃緒申鐃叔わ申鐃緒申鐃緒申鐃緒申鐃緒申討鐃緒申泙鐃緒申鐃�
#!/usr/bin/env perl
use strict;
use warnings;
use IPC::Open3;
use Symbol 'gensym';
use Time::HiRes 'sleep';
my $sig = ( $^O eq 'linux' ) ? 10 : 29; # SIGUSR1 for linux, else SIGINFO
my $size = getsize(@ARGV);
my $intv = 0.1;
unshift @ARGV, 'dd';
my ( $cin, $cout, $cerr ) = ( undef, undef, gensym );
die $! unless my $pid = open3( $cin, $cout, $cerr, @ARGV );
close $cin;
close $cout;
local $| = 1;
loop: while (1) {
sleep $intv;
kill $sig, $pid;
while (<$cerr>) {
my ($curr) = /^(\d+) bytes/;
next unless $curr;
print_progress( $1, $size );
last loop if $curr >= $size;
last;
}
}
waitpid $pid, 0;
print "\n";
sub getsize {
my $cmd = join " ", @_;
my ($if) = ( $cmd =~ /if=(\S+)/ );
return -s $if if -f $if;
my ($bs) = ( $cmd =~ /bs=(\d+)/ );
$bs ||= 512;
my ($count) = ( $cmd =~ /count=(\d+)/ );
$count ||= 1;
return $bs * $count;
}
sub print_progress {
my ( $curr, $size ) = @_;
printf "$curr/$size (%d%%)\r", $curr / $size * 100;
}
鐃緒申鐃銃わ申鐃縮り、鐃緒申鐃塾プワ申鐃緒申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申里呂覆鐃緒申覆鐃緒申泙鐃宿わ申鐃緒申鐃緒申鐃宿わ申鐃緒申鐃緒申鐃緒申鐃銃￥申鐃宿わ申鐃緒申鐃銃わ申箸鐃緒申鐃緒申鐃緒申鐃� Perl Cookbook 鐃薯見てなわ申箸鐃緒申鐃緒申討鐃緒申鐃緒申泙鐃緒申箸鐃緒申鐃緒申鐃緒申鐃緒申覆里任鐃緒申鐃緒申鐃�
鐃緒申dd鐃緒申鐃緒申鐃醇す鐃緒申廚塙佑鐃緒申鐃塾ではなわ申鐃緒申鐃緒申鐃順き鐃淑駈申鐃春ワ申鐃緒申鐃緒申鐃緒申捗鐃緒申認鐃緒申鐃淑わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃竣のでわ申鐃緒申弌鐃緒申焚鐃緒申里茲�鐃祝わ申鐃獣とワ申鐃緒申廛鐃祝なわ申泙鐃緒申鐃�
#!/usr/bin/env perl
use strict;
use warnings;
my ( $bs, $count, $filename ) = @ARGV;
die "$0 bs count file" unless $filename;
open my $wfh, '>', $filename or die "$filename:$!";
local $| = 1; # AUTOFLUSH;
for my $i ( 1 .. $count ) {
print $wfh "\0" x $bs;
printf "%d/%d (%d%%)\r", $bs * $i, $bs * $count, $i / $count * 100;
}
close $wfh;
print "\n"
鐃緒申鐃塾種申離鐃緒申鐃緒申謄鐃緒申鐃緒申鐃緒申離鐃緒申鐃緒申鐃竣トの誌申鐃粛緒申箸鐃緒申討蓮鐃緒申屮潺縫泪鐃�Perl鐃竣わ申鐃緒申鐃緒申鐃銃まわ申鐃緒申
Enjoy!
Dan the System Administrator that Scripts
鐃緒申鐃塾ブワ申鐃緒申鐃祝ワ申鐃緒申鐃夙わ申鐃緒申砲鐃�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申必鐃竣でわ申鐃緒申
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
鐃緒申鐃塾居申鐃緒申鐃祝は居申鐃縦ユー鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃夙わ申鐃叔わ申鐃殉わ申鐃緒申