| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/nginx/html/JimMartinson/_Archive/CST1615/ExampleFiles/Lab02/ |
Upload File : |
#!/usr/bin/perl # One working method is to not chomp $string. print "string: "; $string = <STDIN>; chomp($string); print "repeat: "; $repeat = <STDIN>; chomp($repeat); # The "correct" method is to concat \n to $string. #print $string x $repeat; $stringnl = $string."\n"; print $stringnl x $repeat; #print "\n--- Hit Enter to exit ---";$wait = <STDIN>;