ショックだ…
ミニマルperlを読んだところ、http://d.hatena.ne.jp/dwarfjay/20110610/1307670622のスクリプトは極めて冗長だということが判った。
これでどーだ。
#!/usr/bin/perl -w use strict; foreach (@ARGV) { my $device = "/dev/eltro/$_"; my @result = `lscp -ss $device`; foreach (@result) { /(\d+)/ and print "chcp cp $device $1\n"; } }
perlがちょっとだけ好きになった