行頭から任意の文字数を削除する Perl ワンライナー

% for i in {1..10}
do
perl -le 'print  for 2001..2010' > $i.log
done
% ls
1.log   10.log  2.log   3.log   4.log   5.log   6.log   7.log   8.log   9.log
% cat 1.log
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
% perl -i.org -ple 's/^.{2}//' *.log
% ls
1.log       10.log      2.log       3.log       4.log       5.log       6.log       7.log       8.log       9.log
1.log.org   10.log.org  2.log.org   3.log.org   4.log.org   5.log.org   6.log.org   7.log.org   8.log.org   9.log.org
% cat 1.log
01
02
03
04
05
06
07
08
09
10

別にどうってことしてないけど、便利だな。
手作業でするとつまらない仕事が、shell とか Perl とか使うとちょっと楽しくなる。
今はとりあえず数をこなす。
どこかで総括して、量から質へ転化しよう。