repo.or.cz
/
sunny256-utils.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
mdisk: Use color, red for error messages and green for success
[sunny256-utils.git]
/
tab
blob
250d0a0b7252bf750b2fed05d08fe20540b62151
1
#!/usr/bin/env perl
2
3
# tab
4
# File ID: 126a11d4-5d46-11df-950e-90e6ba3022ac
5
6
$Tabs
=
$ARGV
[
0
]
?
$ARGV
[
0
] :
1
;
7
8
while
(<
STDIN
>) {
9
for
(
1
..
$Tabs
) {
10
print
"
\t
"
;
11
}
12
print
"
$_
"
;
13
}
14
15
#### End of file tab ####