chiark / gitweb /
remove trailing 0s
authorian <ian>
Mon, 19 Apr 2004 00:20:44 +0000 (00:20 +0000)
committerian <ian>
Mon, 19 Apr 2004 00:20:44 +0000 (00:20 +0000)
farnell/bulkres-select-gen.pl

index 1b6c19fec57e8d48c2c26ef20c62ed8fcc9c0bb0..b81d63618b3e79db5b15b6c3a07869debccf025e 100755 (executable)
@@ -19,7 +19,8 @@ sub addm ($$) {
            $_= $decade;
            s/x/ substr($value,0,1) /e;
            s/x/ substr($value,1,1) /e;
-           printf "\tstd %s \t%d\n", $_, $qty or die $!;
+           s/0$//;
+           printf "\tstd %s \t%d=\n", $_, $qty or die $!;
        }
     }
 }