もうちょっとperlっぽく書きなおし
http://d.hatena.ne.jp/dwarfjay/20110602/1307021854のスクリプトをちょっと修正。
#!/usr/bin/perl use strict; use warnings; foreach (@ARGV) { my $device = "/dev/eltro/$_"; my @result = `/usr/bin/lscp -ss $device`; foreach (@result) { my @sp = split; if ($sp[0] =~ /(\d+)/) { print "/usr/bin/chcp cp $device ",$1,"\n"; } } }