ねもぷらす

ふぁいんでぃんぐねもの日記。プログラミングとか育児とか

いい加減スクリプト

#!/usr/local/bin/perl

my $i = "01";
  if( $i =~ /^0\d$/ ){
    print "!!!!\n";
    print "i = $i\n\n";
    $i = substr($i,1);
   print "i = $i\n\n";
  }
  elsif( $i =~ /^1\d$/ ){
    print "????\n";
  }
  else{
    print "++++\n";
  }
1;

二桁の数字の最初が「0」だった場合の処理。
だいじょぶ、成長してるって