Duke Leto
16 years ago
2 changed files with 67 additions and 0 deletions
@ -0,0 +1,43 @@ |
|||
[user] |
|||
name = Duke Leto |
|||
email = <jonathan@leto.net> |
|||
|
|||
[alias] |
|||
ci = commit -a |
|||
co = checkout |
|||
st = status -a |
|||
praise = blame |
|||
|
|||
[apply] |
|||
whitespace = strip |
|||
|
|||
[diff] |
|||
color = auto |
|||
rename = copy |
|||
|
|||
[pager] |
|||
color = true |
|||
|
|||
[status] |
|||
color = auto |
|||
|
|||
[color] |
|||
branch = auto |
|||
diff = auto |
|||
status = auto |
|||
|
|||
[color "branch"] |
|||
current = yellow reverse |
|||
local = yellow |
|||
remote = green |
|||
|
|||
[color "diff"] |
|||
meta = yellow bold |
|||
frag = magenta bold |
|||
old = red bold |
|||
new = green bold |
|||
|
|||
[color "status"] |
|||
added = yellow |
|||
changed = green |
|||
untracked = cyan |
@ -0,0 +1,24 @@ |
|||
#!/usr/bin/perl -w |
|||
|
|||
use strict; |
|||
use warnings; |
|||
|
|||
use Regexp::Common qw /number/; |
|||
|
|||
while (<DATA>) { |
|||
/^$RE{num}{int}{-keep}$/ and print "$1 Integer\n"; |
|||
/^$RE{num}{real}{-keep}$/ and print "$1 Real\n"; |
|||
/^$RE{num}{real}{-base => 10}{-keep}$/ and print "$1 Real and base 10\n"; |
|||
} |
|||
|
|||
__DATA__ |
|||
0 |
|||
00 |
|||
0e0 |
|||
0.0 |
|||
3.14 |
|||
42 |
|||
1e-10 |
|||
0xdeadbeef |
|||
fuck you |
|||
1.ieatpoop |
Loading…
Reference in new issue