2011-06-02から1日間の記事一覧
perl版 #!/usr/bin/perl use strict; use warnings; foreach (@ARGV) { my $device = "/dev/mapper/$_"; my @result = `/usr/bin/lscp -ss $device`; foreach (@result) { my @sp = split; if (@sp[0] =~ /[0-9]+/) { print "/usr/bin/chcp cp $device ",@sp…