ch-1.pl « perl5 « john-barrett « challenge-002 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-002/john-barrett/perl5/ch-1.pl

blob: 1567a4ba3c3ebed64a0d84cbb4013e00ccd2c57f (plain)

#!/usr/bin/env perl

# ./ch-1.pl 00123

$ARGV[0] > 0 && printf (
    ( $ARGV[0] =~ /\./
        ? "%g\n"
        : "%d\n" ), $ARGV[0]
);