Ideone.com | Online Perl Interpreter & Debugging Tool

Computer geeks!

language:	Perl (perl 5.12.1)
date:	822 days 2 hours ago
link:
visibility:	public private user's deleted

source code clone download copy to clipboard report bug / make suggestion

1
print uc while (<STDIN>);

clone download copy to clipboard

compilation info hide

input / output show all hide all

# 8 # 7 # 6 # 5 # 4 # 3 # 2 # 1

upload with new input
# 8: hide show clone input 35 days 4 hours ago Success

result: Success time: 0s memory: 4596 kB returned value: 0
input:
```
ｓｓ
```
output:
```
ｓｓ
```
# 7: hide show clone input 257 days 11 hours ago Success

result: Success time: 0s memory: 4596 kB returned value: 0
input:
```
abcde
```
output:
```
ABCDE
```
# 6: hide show clone input 423 days 22 hours ago Success

result: Success time: 0s memory: 4596 kB returned value: 0
input:
```
1231313
```
output:
```
1231313
```
# 5: hide show clone input 457 days 12 hours ago Success

result: Success time: 0s memory: 4596 kB returned value: 0
input:
```
gain
```
output:
```
GAIN
```
# 4: hide show clone input 594 days 8 hours ago Success

result: Success time: 0s memory: 4596 kB returned value: 0
input:
```
nyoro
ryo
```
output:
```
NYORO
RYO
```
# 3: hide show clone input 715 days 16 hours ago Success

result: Success time: 0s memory: 5348 kB returned value: 0
input:
```
appLe ipAd
```
output:
```
APPLE IPAD
```
# 2: hide show clone input 822 days 2 hours ago Success

result: Success time: 0s memory: 5300 kB returned value: 0
input:
```
hogehoge test
```
output:
```
HOGEHOGE TEST
```
# 1: hide show clone input 822 days 2 hours ago Success

result: Success time: 0s memory: 5300 kB returned value: 0

UsernamePassword