fun with user input
This commit is contained in:
parent
93cfa65b3e
commit
f39fc4dc24
15
cli/stdio.pl
Normal file
15
cli/stdio.pl
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
#!/usr/bin/env perl
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
|
||||||
|
print "What is your name?: ";
|
||||||
|
|
||||||
|
my $name = <STDIN>;
|
||||||
|
$name =~ s/\n//;
|
||||||
|
|
||||||
|
print "Your name is $name\n";
|
||||||
|
|
||||||
|
|
||||||
|
1;
|
||||||
|
__END__
|
Loading…
Reference in New Issue
Block a user